[perl5.git] / t / uni / goto.t

#!./perl -w

BEGIN {
    require './test.pl';
}

plan tests => 4;

use utf8;
use open qw( :utf8 :std );

sub goto_baresub {
    goto &問題の原因;
}

sub goto_softref {
    goto &{"問題の原因"};
}

sub goto_softref_octal {
    goto &{"\345\225\217\351\241\214\343\201\256\345\216\237\345\233\240"};
}

sub 問題の原因 {
    1;
}

ok goto_baresub(), "Magical goto works on an UTF-8 sub,";
ok goto_softref(), "..and an UTF-8 softref sub,";

{
    local $@;
    eval { goto_softref_octal() };
    like $@, qr/Goto undefined subroutine &main::\345\225\217\351\241\214\343\201\256\345\216\237\345\233\240/, "But does NOT find the softref sub when it's lacking the UTF-8 flag";
}

{
    local $@;
    eval { goto &因 };
    like $@, qr/Goto undefined subroutine &main::因/, "goto undefined sub gets the right error message";
}
Commit	Line	Data
c271df94 BF	1	#!./perl -w
	2
	3	BEGIN {
	4	require './test.pl';
	5	}
	6
	7	plan tests => 4;
	8
	9	use utf8;
	10	use open qw( :utf8 :std );
	11
	12	sub goto_baresub {
	13	goto &問題の原因;
	14	}
	15
	16	sub goto_softref {
	17	goto &{"問題の原因"};
	18	}
	19
	20	sub goto_softref_octal {
	21	goto &{"\345\225\217\351\241\214\343\201\256\345\216\237\345\233\240"};
	22	}
	23
	24	sub 問題の原因 {
	25	1;
	26	}
	27
	28	ok goto_baresub(), "Magical goto works on an UTF-8 sub,";
	29	ok goto_softref(), "..and an UTF-8 softref sub,";
	30
	31	{
	32	local $@;
	33	eval { goto_softref_octal() };
	34	like $@, qr/Goto undefined subroutine &main::\345\225\217\351\241\214\343\201\256\345\216\237\345\233\240/, "But does NOT find the softref sub when it's lacking the UTF-8 flag";
	35	}
	36
	37	{
	38	local $@;
	39	eval { goto &因 };
	40	like $@, qr/Goto undefined subroutine &main::因/, "goto undefined sub gets the right error message";
	41	}