(With the exception of the first test, which otherwise would need its own file)
__END__
# unsupported pragma
+use warnings;
use charnames ":scoobydoo";
"Here: \N{e_ACUTE}!\n";
EXPECT
unsupported special ':scoobydoo' in charnames at
########
# wrong type of alias (missing colon)
+no warnings;
use charnames "alias";
"Here: \N{e_ACUTE}!\n";
EXPECT
Unknown charname 'e_ACUTE' at
########
# alias without an argument
+use warnings;
use charnames ":alias";
"Here: \N{e_ACUTE}!\n";
EXPECT
:alias needs an argument in charnames at
########
# reversed sequence
+use warnings;
use charnames ":alias" => ":full";
"Here: \N{e_ACUTE}!\n";
EXPECT
:alias cannot use existing pragma :full \(reversed order\?\) at
########
# alias with hashref but no :full
+use warnings;
use charnames ":alias" => { e_ACUTE => "LATIN SMALL LETTER E WITH ACUTE" };
"Here: \N{e_ACUTE}!\n";
EXPECT
Unknown charname 'LATIN SMALL LETTER E WITH ACUTE' at
########
# alias with hashref but with :short
+use warnings;
+no warnings 'void';
use charnames ":short", ":alias" => { e_ACUTE => "LATIN SMALL LETTER E WITH ACUTE" };
"Here: \N{e_ACUTE}!\n";
EXPECT
Unknown charname 'LATIN SMALL LETTER E WITH ACUTE' at
########
# alias with hashref to :full OK
+use warnings;
+no warnings 'void';
use charnames ":full", ":alias" => { e_ACUTE => "LATIN SMALL LETTER E WITH ACUTE" };
"Here: \N{e_ACUTE}!\n";
EXPECT
$
########
# alias with hashref to :short but using :full
+use warnings;
+no warnings 'void';
use charnames ":full", ":alias" => { e_ACUTE => "LATIN:e WITH ACUTE" };
"Here: \N{e_ACUTE}!\n";
EXPECT
Unknown charname 'LATIN:e WITH ACUTE' at
########
# alias with hashref to :short OK
+use warnings;
+no warnings 'void';
use charnames ":short", ":alias" => { e_ACUTE => "LATIN:e WITH ACUTE" };
"Here: \N{e_ACUTE}!\n";
EXPECT
$
########
# alias with bad hashref
+use warnings;
+no warnings 'void';
use charnames ":short", ":alias" => "e_ACUTE";
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
EXPECT
unicore/e_ACUTE_alias.pl cannot be used as alias file for charnames at
########
# alias with arrayref
+use warnings;
+no warnings 'void';
use charnames ":short", ":alias" => [ e_ACUTE => "LATIN:e WITH ACUTE" ];
"Here: \N{e_ACUTE}!\n";
EXPECT
Only HASH reference supported as argument to :alias at
########
# 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";
EXPECT
Unknown charname 'a_ACUTE' at
########
# alias with hashref two aliases
+use warnings;
+no warnings 'void';
use charnames ":short", ":alias" => {
e_ACUTE => "LATIN:e WITH ACUTE",
a_ACUTE => "",
Unknown charname '' at
########
# alias with hashref two aliases
+use warnings;
+no warnings 'void';
use charnames ":short", ":alias" => {
e_ACUTE => "LATIN:e WITH ACUTE",
a_ACUTE => "LATIN:a WITH ACUTE",
$
########
# alias with hashref using mixed aliasses
+use warnings;
use charnames ":short", ":alias" => {
e_ACUTE => "LATIN:e WITH ACUTE",
a_ACUTE => "LATIN SMALL LETTER A WITH ACUT",
Unknown charname 'LATIN SMALL LETTER A WITH ACUT' at
########
# alias with hashref using mixed aliasses
+use warnings;
use charnames ":short", ":alias" => {
e_ACUTE => "LATIN:e WITH ACUTE",
a_ACUTE => "LATIN SMALL LETTER A WITH ACUTE",
Unknown charname 'LATIN SMALL LETTER A WITH ACUTE' at
########
# alias with hashref using mixed aliasses
+use warnings;
+no warnings 'void';
use charnames ":full", ":alias" => {
e_ACUTE => "LATIN:e WITH ACUTE",
a_ACUTE => "LATIN SMALL LETTER A WITH ACUTE",
Unknown charname 'LATIN:e WITH ACUTE' at
########
# alias with nonexisting file
+use warnings;
+no warnings 'void';
use charnames ":full", ":alias" => "xyzzy";
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
EXPECT
unicore/xyzzy_alias.pl cannot be used as alias file for charnames at
########
# alias with bad file name
+use warnings;
+no warnings 'void';
use charnames ":full", ":alias" => "xy 7-";
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
EXPECT
Charnames alias files can only have identifier characters at
########
# alias with non_absolute (existing) file name (which it should /not/ use)
+use warnings;
+no warnings 'void';
use charnames ":full", ":alias" => "perl";
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
EXPECT
#!perl
0;
--FILE--
+use warnings;
+no warnings 'void';
use charnames ":full", ":alias" => "xyzzy";
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
EXPECT
#!perl
();
--FILE--
+use warnings;
+no warnings 'void';
use charnames ":full", ":alias" => "xyzzy";
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
EXPECT
a_ACUTE => "LATIN:a WITH ACUTE",
);
--FILE--
+use warnings;
+no warnings 'void';
use charnames ":full", ":alias" => "xyzzy";
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
EXPECT
a_ACUTE => "LATIN:a WITH ACUTE",
);
--FILE--
+use warnings;
+no warnings 'void';
use charnames ":short", ":alias" => "xyzzy";
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
EXPECT
a_ACUTE => "LATIN SMALL LETTER A WITH ACUTE",
);
--FILE--
+use warnings;
+no warnings 'void';
use charnames ":short", ":alias" => "xyzzy";
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
EXPECT
a_ACUTE => "LATIN:a WITH ACUTE",
);
--FILE--
+use warnings;
+no warnings 'void';
use charnames ":alias" => ":xyzzy";
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
EXPECT
a_ACUTE => "LATIN SMALL LETTER A WITH ACUTE",
);
--FILE--
+use warnings;
+no warnings 'void';
use charnames ":alias" => ":xyzzy";
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
EXPECT