diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-12-19 12:30:10 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-12-20 22:02:43 -0700 |
commit | 22dc422998d1f3b42774b30ce21e8c2ed33e841e (patch) | |
tree | 91f874510158c6272694ad405d6bd1af685b54a9 /t | |
parent | 1e84bf42ca8f2a2f0f80735a0391a0216121c61b (diff) | |
download | perl-22dc422998d1f3b42774b30ce21e8c2ed33e841e.tar.gz |
charnames tests: Add names to some more tests
Diffstat (limited to 't')
-rw-r--r-- | t/lib/charnames/alias | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/t/lib/charnames/alias b/t/lib/charnames/alias index eb09d91430..e234de3eff 100644 --- a/t/lib/charnames/alias +++ b/t/lib/charnames/alias @@ -1,6 +1,6 @@ Tests for use charnames with compilation errors and aliases. __END__ -# unsupported pragma +# NAME illegal :pragma use warnings; use charnames ":scoobydoo"; "Here: \N{e_ACUTE}!\n"; @@ -31,7 +31,7 @@ OPTIONS regex Undefined subroutine &charnames::string_vianame called at - line 2. Here: 4 ######## -# wrong type of alias (missing colon) +# NAME wrong type of alias (missing colon) no warnings; use charnames "alias"; "Here: \N{e_ACUTE}!\n"; @@ -39,7 +39,7 @@ EXPECT OPTIONS regex Unknown charname 'e_ACUTE' at ######## -# alias without an argument +# NAME alias without an argument use warnings; use charnames ":alias"; "Here: \N{e_ACUTE}!\n"; @@ -47,7 +47,7 @@ EXPECT OPTIONS regex :alias needs an argument in charnames at ######## -# reversed sequence +# NAME reversed sequence use warnings; use charnames ":alias" => ":full"; "Here: \N{e_ACUTE}!\n"; @@ -55,7 +55,7 @@ EXPECT OPTIONS regex :alias cannot use existing pragma :full \(reversed order\?\) at ######## -# alias with hashref but no :full +# NAME alias with hashref but no :full use warnings; use charnames ":alias" => { e_ACUTE => "LATIN SMALL LETTER E WITH ACUTE" }; "Here: \N{e_ACUTE}!\n"; @@ -63,7 +63,7 @@ EXPECT OPTIONS regex Unknown charname 'LATIN SMALL LETTER E WITH ACUTE' at ######## -# alias with hashref but with :short +# NAME alias with hashref but with :short use warnings; no warnings 'void'; use charnames ":short", ":alias" => { e_ACUTE => "LATIN SMALL LETTER E WITH ACUTE" }; @@ -72,7 +72,7 @@ EXPECT OPTIONS regex Unknown charname 'LATIN SMALL LETTER E WITH ACUTE' at ######## -# alias with hashref to :full OK +# NAME alias with hashref to :full OK use warnings; no warnings 'void'; use charnames ":full", ":alias" => { e_ACUTE => "LATIN SMALL LETTER E WITH ACUTE" }; @@ -81,7 +81,7 @@ EXPECT OPTIONS regex $ ######## -# alias with hashref to :loose OK +# NAME alias with hashref to :loose OK use warnings; no warnings 'void'; use charnames ":loose", ":alias" => { e_ACUTE => "LATIN SMALL LETTER E WITH ACUTE" }; @@ -90,7 +90,7 @@ EXPECT OPTIONS regex $ ######## -# alias with :loose requires :full type name +# NAME alias with :loose requires :full type name use warnings; no warnings 'void'; use charnames ":loose", ":alias" => { e_ACUTE => "latin SMALL LETTER E WITH ACUTE" }; @@ -99,7 +99,7 @@ EXPECT OPTIONS regex Unknown charname 'latin SMALL LETTER E WITH ACUTE' at ######## -# alias with hashref to :short but using :full +# NAME alias with hashref to :short but using :full use warnings; no warnings 'void'; use charnames ":full", ":alias" => { e_ACUTE => "LATIN:e WITH ACUTE" }; @@ -108,7 +108,7 @@ EXPECT OPTIONS regex Unknown charname 'LATIN:e WITH ACUTE' at ######## -# alias with hashref to :short OK +# NAME alias with hashref to :short OK use warnings; no warnings 'void'; use charnames ":short", ":alias" => { e_ACUTE => "LATIN:e WITH ACUTE" }; @@ -117,7 +117,7 @@ EXPECT OPTIONS regex $ ######## -# alias with bad hashref +# NAME alias with bad hashref use warnings; no warnings 'void'; use charnames ":short", ":alias" => "e_ACUTE"; @@ -126,7 +126,7 @@ EXPECT OPTIONS regex unicore/e_ACUTE_alias.pl cannot be used as alias file for charnames at ######## -# alias with arrayref +# NAME alias with arrayref use warnings; no warnings 'void'; use charnames ":short", ":alias" => [ e_ACUTE => "LATIN:e WITH ACUTE" ]; @@ -135,7 +135,7 @@ EXPECT OPTIONS regex Only HASH reference supported as argument to :alias at ######## -# alias with bad hashref +# NAME alias with bad hashref no warnings; use charnames ":short", ":alias" => { e_ACUTE => "LATIN:e WITH ACUTE", "a_ACUTE" }; "Here: \N{e_ACUTE}\N{a_ACUTE}!\n"; @@ -143,7 +143,7 @@ EXPECT OPTIONS regex Unknown charname 'a_ACUTE' at ######## -# alias with hashref two aliases +# NAME alias with hashref two aliases use warnings; no warnings 'void'; use charnames ":short", ":alias" => { @@ -155,7 +155,7 @@ EXPECT OPTIONS regex Unknown charname '' at ######## -# alias with hashref two aliases +# NAME alias with hashref two aliases use warnings; no warnings 'void'; use charnames ":short", ":alias" => { @@ -167,7 +167,7 @@ EXPECT OPTIONS regex $ ######## -# alias with hashref using mixed aliases +# NAME alias with hashref using mixed aliases use warnings; use charnames ":short", ":alias" => { e_ACUTE => "LATIN:e WITH ACUTE", @@ -178,7 +178,7 @@ EXPECT OPTIONS regex Unknown charname 'LATIN SMALL LETTER A WITH ACUT' at ######## -# alias with hashref using mixed aliases +# NAME alias with hashref using mixed aliases use warnings; use charnames ":short", ":alias" => { e_ACUTE => "LATIN:e WITH ACUTE", @@ -189,7 +189,7 @@ EXPECT OPTIONS regex Unknown charname 'LATIN SMALL LETTER A WITH ACUTE' at ######## -# alias with hashref using mixed aliases +# NAME alias with hashref using mixed aliases use warnings; no warnings 'void'; use charnames ":full", ":alias" => { @@ -201,7 +201,7 @@ EXPECT OPTIONS regex Unknown charname 'LATIN:e WITH ACUTE' at ######## -# alias with nonexisting file +# NAME alias with nonexisting file use warnings; no warnings 'void'; use charnames ":full", ":alias" => "xyzzy"; @@ -210,7 +210,7 @@ EXPECT OPTIONS regex unicore/xyzzy_alias.pl cannot be used as alias file for charnames at ######## -# alias with bad file name +# NAME alias with bad file name use warnings; no warnings 'void'; use charnames ":full", ":alias" => "xy 7-"; @@ -219,7 +219,7 @@ EXPECT OPTIONS regex Charnames alias files can only have identifier characters at ######## -# alias with non_absolute (existing) file name (which it should /not/ use) +# NAME alias with non_absolute (existing) file name (which it should /not/ use) use warnings; no warnings 'void'; use charnames ":full", ":alias" => "perl"; @@ -329,7 +329,7 @@ EXPECT OPTIONS regex $ ######## -# charnames with no import still works for runtime functions +# NAME charnames with no import still works for runtime functions use warnings; no warnings 'void'; use charnames (); |