redo roundrobin tests; delete tests for unspecced features

Author: moritz

S32-container/roundrobin.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 8;
+plan 5;
 
 # L<S32::Containers/Container/"=item roundrobin">
 
@@ -15,34 +15,17 @@ Tests of
 
 =end pod
 
-ok(roundrobin() eqv (), 'roundrobin null identity');
+is roundrobin().elems, 0, 'roundrobin null identity';
 
-ok(roundrobin(1) eqv (1,), 'roundrobin scalar identity');
+is roundrobin(1).join, '1', 'roundrobin scalar identity';
 
-ok(roundrobin(1..3) eqv 1..3, 'roundrobin list identity');
+is(roundrobin(1..3).Str,  (1..3).Str, 'roundrobin list identity');
 
-ok(roundrobin([1..3]) eqv 1..3, 'roundrobin array identity');
+#?rakudo todo 'over-flattening
+is(roundrobin([1..3]).elems, 1, 'roundrobin does not flatten array items');
 
-# Next 2 work.  Just waiting on eqv.
-#
-#?pugs 2 todo 'These tests depend on eqv'
-ok(roundrobin({'a'=>1,'b'=>2,'c'=>3}) eqv ('a'=>1,'b'=>2,'c'=>3),
-    'roundrobin hash identity');
 
-ok(roundrobin((); 1; 2..4; [5..7]; {'a'=>1,'b'=>2})
-    eqv (1, 2, 5, 'a'=>1, 3, 6, 'b'=>2, 4, 7), 'basic roundrobin');
-
-#?pugs skip 'Named argument found where no matched parameter expected'
-ok(roundrobin(:shortest, 1; 1..2; 1..3) eqv (1), 'roundrobin :shortest');
-
-#?pugs todo
-flunk('roundrobin :finite');
-
-=begin lazy_roundrobin
-
-#?pugs todo 'feature'
-ok(roundrobin(:finite, 1; 1..2; 1..3) eqv (1), 'roundrobin :shortest');
-
-=end lazy_roundrobin
+is(roundrobin((); 1; 2..4; (5..7); <a b>).join(' '),
+   (1, 2, 5, 'a', 3, 6, 'b', 4, 7).join(' '), 'basic roundrobin');
 
 # vim: ft=perl6