test: check that pfor actually is eager

teknql · Dec 11, 2023 · 088a5c0 · 088a5c0
1 parent a0b99d3
commit 088a5c0
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/test/tapestry/core_test.clj b/test/tapestry/core_test.clj
@@ -129,7 +129,9 @@
 (deftest pfor-test
   (testing "works"
     (is (= '(1 2 3)
-           (sut/pfor [x (range 3)] (inc x))))))
+           (sut/pfor [x (range 3)] (inc x)))))
+  (testing "is eager"
+    (is (realized? (sut/pfor [x (range 3)] (inc x))))))
 
 (deftest interrupt-test
   (let [f (sut/fiber (Thread/sleep 10000))]