From 000c2eeba7ab670bc52521044f9f12c51fec9b77 Mon Sep 17 00:00:00 2001
From: Sergiu Ivanov <sivanov@colimite.fr>
Date: Thu, 5 Nov 2020 23:23:48 +0100
Subject: [PATCH] networks: Fix the test for print-org-sbn.

---
 networks.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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