From 5f4cb917bcd2dee97cdbb88ac02e5811d2db7866 Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Wed, 26 Feb 2020 21:05:06 +0100 Subject: [PATCH] networks-tests: Fix the usage of stb. --- networks-tests.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/networks-tests.rkt b/networks-tests.rkt index 2d154d7..b8d8742 100644 --- a/networks-tests.rkt +++ b/networks-tests.rkt @@ -20,7 +20,7 @@ (test-case "States" (check-equal? (make-state-booleanize '((a . 0) (b . 1))) (st '((a . #f) (b . #t)))) - (check-equal? (stb '((a . 0) (b . 1))) + (check-equal? (stb #hash((a . 0) (b . 1))) (st '((a . #f) (b . #t)))) (check-equal? (booleanize-state (st '((a . 0) (b . 1)))) (st '((a . #f) (b . #t)))))