networks: Fix the test case for print-org-tbfs/state.

2020-10-12 00:47:25 +02:00 · 2020-10-12 00:47:25 +02:00 · 0987ce332a
commit 0987ce332a
parent 7b3b31b211
1 changed files with 3 additions and 1 deletions
--- a/networks.rkt
+++ b/networks.rkt
@ -1082,7 +1082,9 @@
  (test-case "print-org-tbfs/state"
    (define tbfs (list (make-tbf/state '((a . 1) (b . 2)) 3)
                       (make-tbf/state '((a . -2) (b . 1)) 1)))
-    (print-org-tbfs/state tbfs)))
+    (check-equal? (print-org-tbfs/state tbfs)
+                  '((a b θ) (1 2 3) (-2 1 1)))))
+

 ;;; A TBN is a network form mapping TBFs to variables.
 (define tbn? (hash/c variable? tbf?))