Merge pull request #6 from lilactown/auto-quote

automatically quote expectation-form in => tests
matthewdowney · Dec 11, 2022 · ce2b98c · ce2b98c
2 parents 2be8244 + f0b512d
commit ce2b98c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/src/com/mjdowney/rich_comment_tests.clj b/src/com/mjdowney/rich_comment_tests.clj
@@ -46,6 +46,9 @@
   ; doesn't start with =>
   (apply assoc {} (repeatedly 2 rand))
   ; {0.10999946790750348 0.4352718677404722}
+
+  (map inc [1 2 3])
+  ;; => (2 3 4)
   )
 
 ;;; End example code
@@ -191,7 +194,7 @@
        (drop 4)
        first
        :expectation-type)
-  ;=> '=>>
+  ;=> =>>
   )
 
 (defn clojure-test-reporting-active? [] (some? test/*report-counters*))

diff --git a/src/com/mjdowney/rich_comment_tests/emit_tests.clj b/src/com/mjdowney/rich_comment_tests/emit_tests.clj
@@ -75,7 +75,7 @@
         fname (.getName (io/file *file*))
         test-form (list '= test-sexpr expectation-form)]
     `(let [form-result# ~(try-bind-repl-vars test-sexpr line-number *file*)
-           test-result# (= form-result# ~expectation-form)]
+           test-result# (= form-result# '~expectation-form)]
 
        (if test-result#
          (test/do-report