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

This commit is contained in:
Sergiu Ivanov 2020-11-05 23:23:48 +01:00
parent a7a1ad49a1
commit 000c2eeba7

View file

@ -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)))))