network: Add another self-loop test for get-interaction-sign.

This commit is contained in:
Sergiu Ivanov 2020-11-18 01:08:40 +01:00
parent c55113f27e
commit 0313d81c25

View File

@ -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