[v6.d REVIEW] Use is-eqv for Seq test in Set[Hash].roll

Orig: c4c10d506
Raku · Sep 16, 2018 · 445c3c5 · 445c3c5
1 parent e21d102
commit 445c3c5
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/S02-types/set.t b/S02-types/set.t
@@ -1,5 +1,7 @@
 use v6;
+use lib $?FILE.IO.parent(2).add: 'packages';
 use Test;
+use Test::Util;
 
 plan 227;
 
@@ -262,7 +264,7 @@ dies-ok { set(1, 2) «+» set(3, 4) }, 'Set «+» Set is illegal';
       -1,   '-1',
       -Inf, '-Inf'
     -> $p, $t {
-        is-deeply set().roll($p), ().Seq, "empty set.roll($t) -> ().Seq"
+        is-eqv set().roll($p), ().Seq, "empty set.roll($t) -> ().Seq"
     }
     dies-ok { set().roll(NaN) }, 'empty set.roll(NaN) should die';
 }
@@ -304,7 +306,7 @@ dies-ok { set(1, 2) «+» set(3, 4) }, 'Set «+» Set is illegal';
       -1,   '-1',
       -Inf, '-Inf'
     -> $p, $t {
-        is-deeply set().pick($p), ().Seq, "empty set.pick($t) -> ().Seq"
+        is-eqv set().pick($p), ().Seq, "empty set.pick($t) -> ().Seq"
     }
     dies-ok { set().pick(NaN) }, 'empty set.pick(NaN) should die';
 }

diff --git a/S02-types/sethash.t b/S02-types/sethash.t
@@ -1,4 +1,6 @@
 use v6;
+use lib $?FILE.IO.parent(2).add: 'packages';
+use Test::Util;
 use Test;
 
 plan 257;
@@ -263,7 +265,7 @@ sub showset($s) { $s.keys.sort.join(' ') }
       -1,   '-1',
       -Inf, '-Inf'
     -> $p, $t {
-        is-deeply ().SetHash.roll($p), ().Seq, "().SetHash.roll($t) -> ().Seq"
+        is-eqv ().SetHash.roll($p), ().Seq, "().SetHash.roll($t) -> ().Seq"
     }
     dies-ok { ().SetHash.roll(NaN) }, '().SetHash.roll(NaN) should die';
 }
@@ -307,7 +309,7 @@ sub showset($s) { $s.keys.sort.join(' ') }
       -1,   '-1',
       -Inf, '-Inf'
     -> $p, $t {
-        is-deeply ().SetHash.pick($p), ().Seq, "().SetHash.pick($t) -> ().Seq"
+        is-eqv ().SetHash.pick($p), ().Seq, "().SetHash.pick($t) -> ().Seq"
     }
     dies-ok { ().SetHash.pick(NaN) }, '().SetHash.pick(NaN) should die';
 }