Permalink
Browse files

[t/spec] fix and extend %h1 eqv %h2 tests

git-svn-id: http://svn.pugscode.org/pugs@27569 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 46a6159 commit 4081a4abc73b663006aaefce49c39821a310521e moritz committed Jul 15, 2009
Showing with 5 additions and 4 deletions.
  1. +5 −4 S03-operators/eqv.t
View
9 S03-operators/eqv.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan 43;
+plan 45;
# L<S03/Comparison semantics/Binary eqv tests equality much like === does>
# L<S32::Basics/Any/"=item eqv">
@@ -91,10 +91,11 @@ plan 43;
ok ([] eqv []), "eqv on anonymous array references (3)";
}
-#?rakudo skip 'hashes'
{
- ok !({a => 1} eqv {a => 2}), "eqv on anonymous hash references (1)";
- ok !({a => 1} eqv {a => 1}), "eqv on anonymous hash references (2)";
+ ok !({a => 1} eqv {a => 2}), "eqv on anonymous hash references (-)";
+ ok ({a => 1} eqv {a => 1}), "eqv on anonymous hash references (+)";
+ ok ({a => 2, b => 1} eqv { b => 1, a => 2}), 'order really does not matter';
+ ok !({a => 1} eqv {a => 1, b => 2}), 'hashes: different number of pairs';
}
#?rakudo skip 'captures'

0 comments on commit 4081a4a

Please sign in to comment.