scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

networks-test: Use make-boolean-domains.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-02-23 00:55:34 +01:00
parent 251a7dcf23
commit 798178852c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
networks-tests.rkt
View file

@ -76,6 +76,6 @@
'((a . (#f #t)) (b . (#f #t)))) '((a . (#f #t)) (b . (#f #t))))
(let ([n #hash((a . (not b)) (b . a))] (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 'a 'b) '+)
(check-equal? (get-interaction-sign n doms 'b 'a) '-))) (check-equal? (get-interaction-sign n doms 'b 'a) '-)))