networks-tests: Fix the usage of stb.

This commit is contained in:
Sergiu Ivanov 2020-02-26 21:05:06 +01:00
parent 63b676b1ba
commit 5f4cb917bc

View file

@ -20,7 +20,7 @@
(test-case "States" (test-case "States"
(check-equal? (make-state-booleanize '((a . 0) (b . 1))) (check-equal? (make-state-booleanize '((a . 0) (b . 1)))
(st '((a . #f) (b . #t)))) (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)))) (st '((a . #f) (b . #t))))
(check-equal? (booleanize-state (st '((a . 0) (b . 1)))) (check-equal? (booleanize-state (st '((a . 0) (b . 1))))
(st '((a . #f) (b . #t))))) (st '((a . #f) (b . #t)))))