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

network-tests: Factor out a convenient set of states.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-02-23 15:09:02 +01:00
parent a26ce5aebc
commit ef76e143f2
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
networks-tests.rkt
View file

@ -111,14 +111,15 @@
(let* ([n (nn '((a . (not a)) (b . b)))] (let* ([n (nn '((a . (not a)) (b . b)))]
[asyn (make-asyn-dynamics n)] [asyn (make-asyn-dynamics n)]
[syn (make-syn-dynamics n)] [syn (make-syn-dynamics n)]
[s (st '((a . #t) (b . #f)))]) [s (st '((a . #t) (b . #f)))]
[ss (set (st '((a . #t) (b . #t)))
(st '((a . #f) (b . #t))))])
(check-equal? (dds-step-one asyn s) (set (st '((a . #f) (b . #f))) (check-equal? (dds-step-one asyn s) (set (st '((a . #f) (b . #f)))
(st '((a . #t) (b . #f))))) (st '((a . #t) (b . #f)))))
(check-equal? (dds-step-one-annotated asyn s) (check-equal? (dds-step-one-annotated asyn s)
(set (cons (set 'b) '#hash((a . #t) (b . #f))) (set (cons (set 'b) '#hash((a . #t) (b . #f)))
(cons (set 'a) '#hash((a . #f) (b . #f))))) (cons (set 'a) '#hash((a . #f) (b . #f)))))
(check-equal? (dds-step-one syn s) (set (st '((a . #f) (b . #f))))) (check-equal? (dds-step-one syn s) (set (st '((a . #f) (b . #f)))))
(check-equal? (dds-step asyn (set (st '((a . #t) (b . #t))) (check-equal? (dds-step asyn ss)
(st '((a . #f) (b . #t)))))
(set (st '((a . #f) (b . #t))) (set (st '((a . #f) (b . #t)))
(st '((a . #t) (b . #t))))))) (st '((a . #t) (b . #t)))))))