diff --git a/networks.rkt b/networks.rkt index 95829a3..235121e 100644 --- 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)))))