Permalink
Browse files

Merge pull request #61 from pmurias/master

change =:= to eqaddr
  • Loading branch information...
2 parents 51989fe + 08a69c5 commit b0087db79521b37ee020a365fb3743d6197a5862 @jnthn jnthn committed Oct 18, 2012
Showing with 6 additions and 6 deletions.
  1. +6 −6 t/nqp/10-cmp.t
View
@@ -64,35 +64,35 @@ say("ok 14 # coerce string -14 into an integer");
##Containers
-if (1,2) =:= (1,2) {
+if nqp::eqaddr((1,2),(1,2)) {
print("not ");
}
say("ok 15 # container equality, unnamed arrays");
my @a := (1, 2);
-unless @a =:= @a {
+unless nqp::eqaddr(@a,@a) {
print("not ");
}
say("ok 16 # container equality, self");
my @b := @a;
-unless @a =:= @b {
+unless nqp::eqaddr(@a,@b) {
print("not ");
}
say("ok 17 # container equality, named arrays");
my $x := 'foo';
my $y := $x;
-my $z := 'foo';
+my $z := 'bar';
-unless $x =:= $y {
+unless nqp::eqaddr($x,$y) {
print("not ");
}
say("ok 18 # container equality, string binding");
-if $x =:= $z {
+if nqp::eqaddr($x,$z) {
print("not ");
}
say("ok 19 # container equality, string value");

0 comments on commit b0087db

Please sign in to comment.