add a first failing test for #85

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