+# goto XS
+
+SKIP: {
+ skip "goto to an uplevel'd stack frame does not work on perl 5\.6" => 5
+ if "$]" < 5.008;
+
+ my $desc = 'uplevel() calling goto &uplevel';
+ local $@;
+ eval {
+ sub {
+ my $outer_cxt = HERE;
+ sub {
+ my $inner_cxt = HERE;
+ sub {
+ uplevel {
+ is HERE, $inner_cxt, "$desc: context inside first uplevel";
+ is "@_", '1 2 3', "$desc: arguments inisde first uplevel";
+ unshift @_, 0;
+ push @_, 4;
+ unshift @_, sub {
+ is HERE, $outer_cxt, "$desc: context inside second uplevel";
+ is "@_", '0 1 2 3 4', "$desc: arguments inisde second uplevel";
+ };
+ push @_, UP;
+ goto \&uplevel;
+ } 1 .. 3 => UP;
+ }->();
+ }->();
+ }->();
+ };
+ is $@, '', "$desc: no error";
+}
+