Permalink
Browse files

Add some got/expected output to t/qregex/01-qregex.t .

  • Loading branch information...
1 parent b9d44ce commit 66edbf6a36ceb9ccfdb43d24e8ebd3190bdda5d2 @pmichaud pmichaud committed Jul 7, 2012
Showing with 3 additions and 1 deletion.
  1. +3 −1 t/qregex/01-qregex.t
View
@@ -49,8 +49,10 @@ sub test_line($line) {
my $cursor := NQPCursor."!cursor_init"($target, :c(0));
my $match := $rxsub($cursor).MATCH;
if $expect_substr {
- my $m := nqp::index($match."!dump_str"('mob'), $expect_substr) >= 0;
+ my $got := ~$match."!dump_str"('mob');
+ my $m := nqp::index($got, $expect_substr) >= 0;
ok($m, $desc);
+ say("# got: $got\n# expected: $expect_substr") unless $m;
}
else {
ok($expect eq 'y' ?? $match !! !$match, $desc);

0 comments on commit 66edbf6

Please sign in to comment.