networks: Fix the test case for print-org-tbfs/state.
This commit is contained in:
parent
7b3b31b211
commit
0987ce332a
1 changed files with 3 additions and 1 deletions
|
@ -1082,7 +1082,9 @@
|
||||||
(test-case "print-org-tbfs/state"
|
(test-case "print-org-tbfs/state"
|
||||||
(define tbfs (list (make-tbf/state '((a . 1) (b . 2)) 3)
|
(define tbfs (list (make-tbf/state '((a . 1) (b . 2)) 3)
|
||||||
(make-tbf/state '((a . -2) (b . 1)) 1)))
|
(make-tbf/state '((a . -2) (b . 1)) 1)))
|
||||||
(print-org-tbfs/state tbfs)))
|
(check-equal? (print-org-tbfs/state tbfs)
|
||||||
|
'((a b θ) (1 2 3) (-2 1 1)))))
|
||||||
|
|
||||||
|
|
||||||
;;; A TBN is a network form mapping TBFs to variables.
|
;;; A TBN is a network form mapping TBFs to variables.
|
||||||
(define tbn? (hash/c variable? tbf?))
|
(define tbn? (hash/c variable? tbf?))
|
||||||
|
|
Loading…
Reference in a new issue