X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/7df8d42c144aa31a8337c62127c85bd86be563b1..57e2f37d5cde26a6dab938fc5dfe96b41f2b6909:/packages/context-coloring/test/fixtures/quote.el

diff --git a/packages/context-coloring/test/fixtures/quote.el b/packages/context-coloring/test/fixtures/quote.el
index 654bc705b..5fc126d0a 100644
--- a/packages/context-coloring/test/fixtures/quote.el
+++ b/packages/context-coloring/test/fixtures/quote.el
@@ -1,4 +1,15 @@
+(quote (lambda () free))
+(let () (backquote (,free)))
+
 (defun a (a)
   (or (eq a 'b)
       (equal a '(a b))
-      (equal a `(,(append () `(a b ,(+ 1 free) ,free b) free) b ,free))))
+      (equal a `(,(append () `(a b ,(+ 1 free) ,free b) free) b ,free
+                 "s" ; c
+                 ))))
+
+(append '("a" ; b
+          "b" ; a
+          ))
+
+(lambda () '((?\" ?\")))