1 files changed, 82 insertions, 0 deletions
diff --git a/t/uni/labels.t b/t/uni/labels.t
new file mode 100644
index 0000000000..8cb1ac4bde
--- /dev/null
+++ b/t/uni/labels.t
@@ -0,0 +1,82 @@
+#!./perl
+
+# Tests for labels in UTF-8
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    require './test.pl';
+}
+
+use utf8;
+use open qw( :utf8 :std );
+use warnings;
+use feature 'unicode_strings';
+
+use charnames qw( :full );
+
+plan(9);
+
+ＬＡＢＥＬ: {
+    pass("Sanity check, UTF-8 labels don't throw a syntax error.");
+}
+
+
+SKIP: {
+    skip_if_miniperl("no dynamic loading, no Encode");
+    no warnings 'exiting';
+    require Encode;
+
+    my $prog = 'last ＬＯＯＰ;';
+
+    ＬＯＯＰ: {
+        eval $prog;
+    }
+    is $@, '', "last with a UTF-8 label works,";
+
+    ＬＯＯＰ: {
+        Encode::_utf8_off($prog);
+        eval $prog;
+        like $@, qr/^Unrecognized character/, "..but turn off the UTF-8 flag and it explodes";
+    }
+}
+
+{
+    no warnings 'exiting';
+
+    eval "last Ｅ";
+    like $@, qr/Label not found for "last Ｅ" at/u, "last's error is UTF-8 clean";
+    
+    eval "redo Ｅ";
+    like $@, qr/Label not found for "redo Ｅ" at/u, "redo's error is UTF-8 clean";
+    
+    eval "next Ｅ";
+    like $@, qr/Label not found for "next Ｅ" at/u, "next's error is UTF-8 clean";
+}
+
+my $d = 4;
+LÁBEL: {
+    my $prog = "redo L\N{LATIN CAPITAL LETTER A WITH ACUTE}BEL";
+
+    if ($d % 2) {
+        utf8::downgrade($prog);
+    }
+    if ($d--) {
+        no warnings 'exiting';
+        eval $prog;
+    }
+}
+
+is $@, '', "redo to downgradeable labels works";
+is $d, -1, "Latin-1 labels reachable regardless of UTF-8ness";
+
+{
+    no warnings;
+    goto ここ;
+    
+    if (undef) {
+        ここ: {
+            pass("goto UTF-8 LABEL works.");
+        }
+    }
+}