diff options
Diffstat (limited to 'ext/XS-APItest/t/labelconst.t')
| -rw-r--r-- | ext/XS-APItest/t/labelconst.t | 77 |
1 files changed, 76 insertions, 1 deletions
diff --git a/ext/XS-APItest/t/labelconst.t b/ext/XS-APItest/t/labelconst.t index 79fe9d2212..f3a7d9c9cd 100644 --- a/ext/XS-APItest/t/labelconst.t +++ b/ext/XS-APItest/t/labelconst.t @@ -1,7 +1,7 @@ use warnings; use strict; -use Test::More tests => 18; +use Test::More tests => 32; BEGIN { $^H |= 0x20000; } @@ -93,4 +93,79 @@ $t = do("t/labelconst.aux"); is $@, ""; is $t, "FOOBARBAZQUUX"; +{ + use utf8; + use open qw( :utf8 :std ); + + $t = ""; + eval q{ + use XS::APItest qw(labelconst); + $t .= "ㅏ"; + $t .= labelconst ᛒ:; + $t .= "ḉ"; + }; + is $@, ""; + is $t, "ㅏᛒḉ"; + + $t = ""; + eval q{ + use XS::APItest qw(labelconst); + $t .= "ㅏ"; + $t .= "ᛒ" . labelconst ＦǑǑ: . "ḉ"; + $t .= "ｄ"; + }; + is $@, ""; + is $t, "ㅏᛒＦǑǑḉｄ"; + + $t = ""; + eval q{ + use XS::APItest qw(labelconst); + $t .= "ㅏ"; + $t .= labelconst ＦǑǑ :; + $t .= "ᛒ"; + }; + is $@, ""; + is $t, "ㅏＦǑǑᛒ"; + + $t = ""; + eval q{ + use XS::APItest qw(labelconst); + $t .= "ㅏ"; + $t .= labelconst Ｆ_1Ḅ:; + $t .= "ᛒ"; + }; + is $@, ""; + is $t, "ㅏＦ_1Ḅᛒ"; + + $t = ""; + eval q{ + use XS::APItest qw(labelconst); + $t .= "ㅏ"; + $t .= labelconst _AḄ:; + $t .= "ᛒ"; + }; + is $@, ""; + is $t, "ㅏ_AḄᛒ"; + + $t = ""; + eval q{ + use XS::APItest qw(labelconst); + no warnings; + $t .= "ㅏ"; + $t .= labelconst 1AḄ:; + $t .= "ᛒ"; + }; + isnt $@, ""; + is $t, ""; + +} + +{ + use utf8; + $t = ""; + $t = do("t/labelconst_utf8.aux"); + is $@, ""; + is $t, "ＦǑǑBÀRᛒÀZQÙÙX"; +} + 1; |