diff --git a/tests.txt b/tests.txt index 96ffa15..bab3a44 100644 --- a/tests.txt +++ b/tests.txt @@ -697,6 +697,23 @@ weak-components-two-connected-directed-pairs length nw:weak-component-clusters => 2 (word sort (map [(word sort [who] of turtle-set ?)] nw:weak-component-clusters)) => "[[0 1] [2 3]]" +weak-components-three-turtles-connected-by-two-link-breeds + extensions [ nw ] + O> crt 3 + O> ask turtle 0 [ create-undirected-link-with turtle 1 ] + O> ask turtle 1 [ create-directed-link-to turtle 2 ] + O> nw:set-context turtles undirected-links + length nw:weak-component-clusters => 2 + O> nw:set-context turtles (link-set undirected-links) + length nw:weak-component-clusters => 2 + O> nw:set-context turtles directed-links + length nw:weak-component-clusters => 2 + O> nw:set-context turtles (link-set directed-links) + length nw:weak-component-clusters => 2 + O> nw:set-context turtles links + length nw:weak-component-clusters => 1 + O> nw:set-context turtles (link-set links) + length nw:weak-component-clusters => 1 # graphml tests