Fix some incorrect assumptions in baghash.t

there are more to fix in this file, but not by me.
Raku · Aug 22, 2015 · b143d8a · b143d8a
1 parent 217b1af
commit b143d8a
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/S02-types/baghash.t b/S02-types/baghash.t
@@ -141,9 +141,9 @@ sub showkv($x) {
 }
 
 {
-    my $b = BagHash.new([ foo => 10, bar => 17, baz => 42, santa => 0 ]);
-    isa-ok $b, BagHash, '&BagHash.new given an array of pairs produces a BagHash';
-    is +$b, 1, "... with one element";
+    my $b = BagHash.new(1, [ foo => 10, bar => 17, baz => 42, santa => 0 ]);
+    isa-ok $b, BagHash, '&BagHash.new given something and an array of pairs produces a BagHash';
+    is +$b, 2, "... with two elements";
 }
 
 {
@@ -155,9 +155,9 @@ sub showkv($x) {
 }
 
 {
-    my $b = BagHash.new({ foo => 10, bar => 17, baz => 42, santa => 0 });
-    isa-ok $b, BagHash, '&BagHash.new given a Hash produces a BagHash';
-    is +$b, 1, "... with one element";
+    my $b = BagHash.new(1, { foo => 10, bar => 17, baz => 42, santa => 0 });
+    isa-ok $b, BagHash, '&BagHash.new given a Hash and something produces a BagHash';
+    is +$b, 2, "... with one element";
 }
 
 {