Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Merge pull request #61 from pmurias/master

change =:= to eqaddr
  • Loading branch information...
commit b0087db79521b37ee020a365fb3743d6197a5862 2 parents 51989fe + 08a69c5
@jnthn jnthn authored
Showing with 6 additions and 6 deletions.
  1. +6 −6 t/nqp/10-cmp.t
View
12 t/nqp/10-cmp.t
@@ -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");
Please sign in to comment.
Something went wrong with that request. Please try again.