diff options
author | jkeenan <jkeenan@cpan.org> | 2011-11-19 20:19:56 -0500 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-22 16:27:21 -0800 |
commit | 2fe1f0f514f958ad10b72a18064180f210b9dbe0 (patch) | |
tree | 6e132311717aacb157d42a4ca711732c25bb3db2 | |
parent | 94e1fbaee725f13ea11dbd183be96755562bbbc5 (diff) | |
download | perl-2fe1f0f514f958ad10b72a18064180f210b9dbe0.tar.gz |
[RT #36079] Convert ` to '.
-rw-r--r-- | t/op/sub_lval.t | 2 | ||||
-rw-r--r-- | t/porting/diag.t | 4 | ||||
-rw-r--r-- | t/re/qr.t | 2 | ||||
-rw-r--r-- | t/re/regexp.t | 8 |
4 files changed, 8 insertions, 8 deletions
diff --git a/t/op/sub_lval.t b/t/op/sub_lval.t index ce5da8d924..ac3aaf3a5e 100644 --- a/t/op/sub_lval.t +++ b/t/op/sub_lval.t @@ -131,7 +131,7 @@ EOE #@out = ($x, a3, $y, b2, $z, c4, $t); #@in = (34 .. 41, (undef) x 4, 46); -#print "# `@out' ne `@in'\nnot " unless "@out" eq "@in"; +#print "# '@out' ne '@in'\nnot " unless "@out" eq "@in"; like($_, qr/Can\'t return an uninitialized value from lvalue subroutine/); print "ok 22\n"; diff --git a/t/porting/diag.t b/t/porting/diag.t index 50aa996f3d..d89988648f 100644 --- a/t/porting/diag.t +++ b/t/porting/diag.t @@ -384,10 +384,10 @@ Can't return array to lvalue scalar context Can't return a %s from lvalue subroutine Can't return hash to lvalue scalar context Can't spawn "%s": %s -Can't %s script `%s' with ARGV[0] being `%s' +Can't %s script '%s' with ARGV[0] being '%s' Can't %s "%s": %s Can't %s %s%s%s -Can't %s `%s' with ARGV[0] being `%s' (looking for executables only, not found) +Can't %s '%s' with ARGV[0] being '%s' (looking for executables only, not found) Can't take %s of %f Can't use '%c' after -mname Can't use string ("%s"%s) as a subroutine ref while "strict refs" in use @@ -10,7 +10,7 @@ plan tests => 5; my $rx = qr//; -is(ref $rx, "Regexp", "qr// blessed into `Regexp' by default"); +is(ref $rx, "Regexp", "qr// blessed into 'Regexp' by default"); # Make sure /$qr/ doesn’t clobber match vars before the match (bug 70764). diff --git a/t/re/regexp.t b/t/re/regexp.t index 815b877a96..3e5c6f8740 100644 --- a/t/re/regexp.t +++ b/t/re/regexp.t @@ -168,7 +168,7 @@ EOFCODE } chomp( my $err = $@ ); if ($result eq 'c') { - if ($err !~ m!^\Q$expect!) { print "not ok $test$todo (compile) $input => `$err'\n"; next TEST } + if ($err !~ m!^\Q$expect!) { print "not ok $test$todo (compile) $input => '$err'\n"; next TEST } last; # no need to study a syntax error } elsif ( $skip ) { @@ -180,7 +180,7 @@ EOFCODE next TEST; } elsif ($@) { - print "not ok $test$todo $input => error `$err'\n", _comment("$code\n$@\n"); next TEST; + print "not ok $test$todo $input => error '$err'\n", _comment("$code\n$@\n"); next TEST; } elsif ($result =~ /^n/) { if ($match) { print "not ok $test$todo ($study) $input => false positive\n"; next TEST } @@ -189,12 +189,12 @@ EOFCODE if (!$match || $got ne $expect) { eval { require Data::Dumper }; if ($@) { - print "not ok $test$todo ($study) $input => `$got', match=$match\n", _comment("$code\n"); + print "not ok $test$todo ($study) $input => '$got', match=$match\n", _comment("$code\n"); } else { # better diagnostics my $s = Data::Dumper->new([$subject],['subject'])->Useqq(1)->Dump; my $g = Data::Dumper->new([$got],['got'])->Useqq(1)->Dump; - print "not ok $test$todo ($study) $input => `$got', match=$match\n", _comment("$s\n$g\n$code\n"); + print "not ok $test$todo ($study) $input => '$got', match=$match\n", _comment("$s\n$g\n$code\n"); } next TEST; } |