Commits

Moritz Heidkamp  committed b3d58e2

Pass initial result to re-use

  • Participants
  • Parent commits 2d20a09

Comments (0)

Files changed (1)

File tests/run.scm

 
 (test-group "re-usig a plan realization result"
   (set! baz-count 0)
-  (let ((result (realize-plan a-plan 'baz #t)))
-    (test '(2) (alist-ref 'baz result))
-    (test '(2) (realize-plan a-plan 'baz result))
+  (let ((result (realize-plan a-plan 'baz #t '((lax . 2)))))
+    (test '(7) (alist-ref 'baz result))
+    (test '(7) (realize-plan a-plan 'baz result))
     (test-assert (list? (realize-plan a-plan result)))
     (test 1 baz-count)))