From 0313d81c25045cd8766e0504f5a19603cbfccf49 Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Wed, 18 Nov 2020 01:08:40 +0100 Subject: [PATCH] network: Add another self-loop test for get-interaction-sign. --- networks.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/networks.rkt b/networks.rkt index 931bef3..a8bad84 100644 --- a/networks.rkt +++ b/networks.rkt @@ -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