Modify tests for Set.Str and KeySet.Str to conform to TimToady's sugg…

…estions: http://irclog.perlgeek.de/perl6/2012-03-27#i_5358044
Raku · Mar 27, 2012 · 014f5f8 · 014f5f8
1 parent 609b319
commit 014f5f8
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 9 deletions.
diff --git a/S02-types/keyset.t b/S02-types/keyset.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 112;
+plan 110;
 
 # L<S02/Mutable types/"KeyHash of Bool">
 
@@ -164,12 +164,10 @@ sub showset($s) { $s.keys.sort.join(' ') }
 }
 
 {
-    my $s = KeySet.new(<foo bar baz>);
+    my $s = set <foo bar baz>;
     lives_ok { $s = $s.Str }, ".Str lives";
     isa_ok $s, Str, "... and produces a string";
-    ok $s ~~ /foo/, "... which mentions foo";
-    ok $s ~~ /bar/, "... which mentions bar";
-    ok $s ~~ /baz/, "... which mentions baz";
+    is $s.split(" ").sort.join(" "), "bar baz foo", "... which only contains bar baz and foo separated by spaces";
 }
 
 {

diff --git a/S02-types/set.t b/S02-types/set.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 93;
+plan 91;
 
 sub showset($s) { $s.keys.sort.join(' ') }
 
@@ -136,9 +136,7 @@ sub showset($s) { $s.keys.sort.join(' ') }
     my $s = set <foo bar baz>;
     lives_ok { $s = $s.Str }, ".Str lives";
     isa_ok $s, Str, "... and produces a string";
-    ok $s ~~ /foo/, "... which mentions foo";
-    ok $s ~~ /bar/, "... which mentions bar";
-    ok $s ~~ /baz/, "... which mentions baz";
+    is $s.split(" ").sort.join(" "), "bar baz foo", "... which only contains bar baz and foo separated by spaces";
 }
 
 {