This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
charnames tests: Add names to some more tests
authorKarl Williamson <public@khwilliamson.com>
Mon, 19 Dec 2011 19:30:10 +0000 (12:30 -0700)
committerKarl Williamson <public@khwilliamson.com>
Wed, 21 Dec 2011 05:02:43 +0000 (22:02 -0700)
lib/charnames.t
t/lib/charnames/alias

index 30cff06..b512502 100644 (file)
@@ -41,21 +41,22 @@ use charnames ":full";
 1
 EOE
 
-    like($@, "above 0xFF");
-    ok(! defined $res);
+    like($@, "above 0xFF", "Verify get warning for \\N{above ff} under 'use bytes' with :full");
+    ok(! defined $res, "... and result is undefined");
 
     $res = eval <<'EOE';
 use charnames 'cyrillic';
 "Here: \N{Be}!";
 1
 EOE
-    like($@, "CYRILLIC CAPITAL LETTER BE.*above 0xFF");
+    like($@, "CYRILLIC CAPITAL LETTER BE.*above 0xFF", "Verify get warning under 'use bytes' with explicit script");
+    ok(! defined $res, "... and result is undefined");
 
     $res = eval <<'EOE';
 use charnames ':full', ":alias" => { BOM => "LATIN SMALL LETTER B" };
 "\N{BOM}";
 EOE
-    is ($@, "");
+    is ($@, "", "Verify that there is no warning for \\N{below 256} under 'use bytes'");
     is ($res, 'b', "Verify that can redefine a standard alias");
 }
 
index eb09d91..e234de3 100644 (file)
@@ -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 ();