+# XS
+
+{
+ my $desc = 'uplevel to XS 1';
+ local $@;
+ eval {
+ sub {
+ my $cxt = HERE;
+ pass "$desc: before";
+ &uplevel(\&HERE => $cxt);
+ is HERE, $cxt, "$desc: after";
+ }->();
+ };
+ is $@, '', "$desc: no error";
+}
+
+{
+ my $desc = 'uplevel to XS 1';
+ local $@;
+ eval {
+ sub {
+ my $up = HERE;
+ sub {
+ is UP, $up, "$desc: before";
+ &uplevel(\&HERE => $up);
+ isnt HERE, $up, "$desc: after 1";
+ }->();
+ is HERE, $up, "$desc: after 2";
+ }->();
+ };
+ is $@, '', "$desc: no error";
+}
+