Add (anything) to tests that match... anything

test.scm

@@ -1,7 +1,7 @@
 (use-modules (d-)
-	     (d- test)
 	     (d- json)
-	     (srfi srfi-1))
+	     (srfi srfi-1)
+	     (d- test))
 
 (define-test-suite "~>"
   (define-test "unwrapped"
@@ -116,6 +116,10 @@
         (list betty ethel joan kitty mary)))
     (assert-equal '(3 5 2 1 4) (liars))))
 
+(define-test-suite "test"
+  (define-test "anything"
+    (assert-equal `(dog ,(anything)) '(dog cat))))
+
 (define-test-suite "json"
   (define-test "boolean"
     (assert-equal #t (json "true"))