networks-test: Use make-boolean-domains.

2020-02-23 00:55:34 +01:00 · 2020-02-23 00:55:34 +01:00 · 798178852c
commit 798178852c
parent 251a7dcf23
1 changed files with 1 additions and 1 deletions
--- a/networks-tests.rkt
+++ b/networks-tests.rkt
@ -76,6 +76,6 @@
                '((a . (#f #t)) (b . (#f #t))))

  (let ([n #hash((a . (not b)) (b . a))]
-        [doms (make-immutable-hash (for/list ([var '(a b)]) (cons var '(#f #t))))])
+        [doms (make-boolean-domains '(a b))])
    (check-equal? (get-interaction-sign n doms 'a 'b) '+)
    (check-equal? (get-interaction-sign n doms 'b 'a) '-)))