Permalink
Browse files

Make chained regex test less specific

To fix test breakage by 5ac593e
  • Loading branch information...
lizmat committed Oct 27, 2016
1 parent 1f553c2 commit 40b8c3ebf1add22b9f982cba5c2b0324a1521566
Showing with 3 additions and 3 deletions.
  1. +3 −3 S03-operators/relational.t
@@ -137,9 +137,9 @@ is(0 ~~ 0 !~~ 0, 0 ~~ 0 && 0 !~~ 0, "chained smartmatch ~~ !~~ false");
is(0 ~~ 0 !~~ 1, 0 ~~ 0 && 0 !~~ 1, "chained smartmatch ~~ !~~ true");
is("a" lt "foo" ~~ "foo" ge "bar", "a" lt "foo" && "foo" ~~ "foo" && "foo" ge "bar", "chained mixed ~~ and ge");
is(0 ~~ 0 ~~ /0/, True, "chained smartmatch ~~ ~~ with regex true");
is(0 ~~ 0 ~~ /1/, False, "chained smartmatch ~~ ~~ with regex false");
is(0 == 0 ~~ /0/, True, "chained smartmatch == ~~ with regex");
ok( 0 ~~ 0 ~~ /0/, "chained smartmatch ~~ ~~ with regex true");
nok(0 ~~ 0 ~~ /1/, "chained smartmatch ~~ ~~ with regex false");
ok( 0 == 0 ~~ /0/, "chained smartmatch == ~~ with regex");
is(0 == 0 ~~ (* == 0), 0 ~~ 0 && 0 ~~ (* == 0), "chained smartmatch == ~~ with closure");
{
my $a = my $b = my $c = "pink";

0 comments on commit 40b8c3e

Please sign in to comment.