networks-tests: Fix the usage of stb.
This commit is contained in:
parent
63b676b1ba
commit
5f4cb917bc
1 changed files with 1 additions and 1 deletions
|
@ -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)))))
|
||||||
|
|
Loading…
Reference in a new issue