networks: Fix the test for print-org-sbn.

2020-11-05 23:23:48 +01:00 · 2020-11-05 23:23:48 +01:00 · 000c2eeba7
commit 000c2eeba7
parent a7a1ad49a1
1 changed files with 2 additions and 1 deletions
--- a/networks.rkt
+++ b/networks.rkt
@ -1631,4 +1631,5 @@
                 (tbf/state (hash 'b 2) 0)
                 'b
                 (tbf/state (hash 'a 2) 0)))
-    (print-org-sbn sbn)))
+    (check-equal? (print-org-sbn sbn)
+                  '((- a b) (a 0 2) (b 2 0)))))