[detest] i/fixed

hyperfiddle · Oct 7, 2024 · 5a980ad · 5a980ad
1 parent da21ec6
commit 5a980ad
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/test/hyperfiddle/detest/incseq_test.cljc b/test/hyperfiddle/detest/incseq_test.cljc
@@ -83,3 +83,11 @@
     (let [ngn (dt/->engine)]
       (t/is (nil?
               (dt/exercise ngn {} (i/latest-concat (rand-lc-incseq ngn))))))))
+
+(t/deftest detest-fixed
+  (dotimes [_ 1000]
+    (let [ngn (dt/->engine)]
+      (t/is (nil?
+              (dt/exercise ngn {} (i/fixed (rand-incseq ngn) (rand-incseq ngn) (rand-incseq ngn)
+                                    (rand-incseq ngn) (rand-incseq ngn) (rand-incseq ngn)
+                                    (rand-incseq ngn) (rand-incseq ngn) (rand-incseq ngn))))))))