networks: Fix the tests for print-org-tbn.

2020-11-02 23:05:05 +01:00 · 2020-11-02 23:05:05 +01:00 · c4a5327b4b
parent af5a9d07a9
commit c4a5327b4b
1 changed files with 2 additions and 1 deletions
--- a/networks.rkt
+++ b/networks.rkt
@ -1597,4 +1597,5 @@
  (test-case "print-org-tbn"
    (define tbn (make-tbn `((a . ,(make-sbf/state '((b . 1))))
                            (b . ,(make-tbf/state '((a . -1)) -1)))))
-    (print-org-tbn tbn)))
+    (check-equal? (print-org-tbn tbn)
+                  '((- a b θ) (a 0 1 0) (b -1 0 -1)))))