network: Add another self-loop test for get-interaction-sign.
This commit is contained in:
parent
c55113f27e
commit
0313d81c25
1 changed files with 2 additions and 1 deletions
|
@ -502,7 +502,8 @@
|
|||
(check-false (get-interaction-sign n-multi 123-doms 'x 'y))
|
||||
(check-equal? (get-interaction-sign n-multi 123-doms 'y 'x) 1)
|
||||
(check-equal? (get-interaction-sign n-multi 123-doms 'y 'z) -1)
|
||||
(check-equal? (get-interaction-sign n-multi 123-doms 'y 't) 0)))
|
||||
(check-equal? (get-interaction-sign n-multi 123-doms 'y 't) 0)
|
||||
(check-equal? (get-interaction-sign n-multi 123-doms 'y 'y) 1)))
|
||||
|
||||
;;; Given a network, builds its interaction graph. The graph has
|
||||
;;; variables as nodes and has a directed edge from x to y if
|
||||
|
|
Loading…
Reference in a new issue