Add eval region test

nextjournal · Nov 20, 2023 · e32fd69 · e32fd69
1 parent 8a334cf
commit e32fd69
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/test/nextjournal/clojure_mode_tests.cljc b/test/nextjournal/clojure_mode_tests.cljc
@@ -323,6 +323,10 @@
       "(()|)" "(()\n |)"
       "(a |b)" "(a\n  |b)"
       "(a b|c)" "(a b\n  |c)"
-      )))
+      ))
+
+  (deftest eval-region-test
+    (are [input f expected]
+        (= (f (test-utils/make-state extensions input)) expected)
+      "(+ |1 2 3)" eval-region/cursor-node-string "1")))
 
-#_(prn (eval-region/cursor-node-string (test-utils/make-state extensions "(+ |1 2 3)")))