This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #111794] Make goto "" like goto ${\""}
[perl5.git] / t / op / goto.t
index cb9c6b6..f042f45 100644 (file)
@@ -10,7 +10,7 @@ BEGIN {
 
 use warnings;
 use strict;
-plan tests => 80;
+plan tests => 83;
 our $TODO;
 
 my $deprecated = 0;
@@ -636,3 +636,10 @@ ok(
    same_prefix_labels(),
    "perl 112316: goto and labels with the same prefix doesn't get mixed up"
 );
+
+eval { my $x = ""; goto $x };
+like $@, qr/^goto must have label at /, 'goto $x where $x is empty string';
+eval { goto "" };
+like $@, qr/^goto must have label at /, 'goto ""';
+eval { goto };
+like $@, qr/^goto must have label at /, 'argless goto';