diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/test.pl | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -452,10 +452,15 @@ sub like_yn ($$$@) { my $pass; $pass = $_[1] =~ /$expected/ if !$flip; $pass = $_[1] !~ /$expected/ if $flip; + my $display_got = $_[1]; + $display_got = display($display_got); + my $display_expected = $expected; + $display_expected = display($display_expected); unless ($pass) { - unshift(@mess, "# got '$_[1]'\n", + unshift(@mess, "# got '$display_got'\n", $flip - ? "# expected !~ /$expected/\n" : "# expected /$expected/\n"); + ? "# expected !~ /$display_expected/\n" + : "# expected /$display_expected/\n"); } local $Level = $Level + 1; _ok($pass, _where(), $name, @mess); |