diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-06-07 09:13:51 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-06-07 09:13:51 +0000 |
| commit | eb915052db897571e1414bc47662e79909c6c291 (patch) | |
| tree | 3d06e7e959dbc10987c5f300b11b9475451df943 /lib/charnames.t | |
| parent | c0cd9745eff7ade24b21241c8d00f081a66d24b8 (diff) | |
| download | perl-eb915052db897571e1414bc47662e79909c6c291.tar.gz | |
Add a regression test to ensure that charnames pragma
is propagated to eval("")
p4raw-id: //depot/perl@28366
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index efb66082b6..d0139070cf 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -15,7 +15,7 @@ require File::Spec; $| = 1; -print "1..76\n"; +print "1..78\n"; use charnames ':full'; @@ -349,6 +349,15 @@ if (ord('A') == 65) { # as on ASCII or UTF-8 machines print "ok 76\n"; } +# Verify that charnames propagate to eval("") +my $evaltry = eval q[ "Eval: \N{LEFT-POINTING DOUBLE ANGLE QUOTATION MARK}" ]; +if ($@) { + print "# $@not ok 77\nnot ok 78\n"; +} else { + print "ok 77\n"; + print "not " unless $evaltry eq "Eval: \N{LEFT-POINTING DOUBLE ANGLE QUOTATION MARK}"; + print "ok 78\n"; +} __END__ # unsupported pragma |