use warnings;
use strict;

use Test::More tests => 56;

BEGIN { $^H |= 0x20000; }

my $t;

$t = "";
eval q{
	use XS::APItest qw(swaplabel);
	$t .= "a";
	$t .= "b";
	swaplabel $t .= "c";
	swaplabel $t .= "d";
	$t .= "e";
};
is $@, "";
is $t, "abcde";

$t = "";
eval q{
	use XS::APItest qw(swaplabel);
	$t .= "a";
	Lb: $t .= "b";
	swaplabel $t .= "c"; Lc:
	swaplabel $t .= "d"; Ld:
	Le: $t .= "e";
};
is $@, "";
is $t, "abcde";

$t = "";
eval q{
	use XS::APItest qw(swaplabel);
	$t .= "a";
	goto Lb;
	Lb: $t .= "b";
	swaplabel $t .= "c"; Lc:
	swaplabel $t .= "d"; Ld:
	Le: $t .= "e";
};
is $@, "";
is $t, "abcde";

$t = "";
eval q{
	use XS::APItest qw(swaplabel);
	$t .= "a";
	goto Lc;
	Lb: $t .= "b";
	swaplabel $t .= "c"; Lc:
	swaplabel $t .= "d"; Ld:
	Le: $t .= "e";
};
is $@, "";
is $t, "acde";

$t = "";
eval q{
	use XS::APItest qw(swaplabel);
	$t .= "a";
	goto Ld;
	Lb: $t .= "b";
	swaplabel $t .= "c"; Lc:
	swaplabel $t .= "d"; Ld:
	Le: $t .= "e";
};
is $@, "";
is $t, "ade";

$t = "";
eval q{
	use XS::APItest qw(swaplabel);
	$t .= "a";
	goto Le;
	Lb: $t .= "b";
	swaplabel $t .= "c"; Lc:
	swaplabel $t .= "d"; Ld:
	Le: $t .= "e";
};
is $@, "";
is $t, "ae";

$t = "";
eval q{
	use XS::APItest qw(swaplabel);
	$t .= "a";
	swaplabel $t .= "b"; y:
	$t .= "c";
};
isnt $@, "";
is $t, "";

$t = "";
eval q{
	use XS::APItest qw(swaplabel);
	if(1) { $t .= "a"; }
	if(1) { $t .= "b"; }
	swaplabel if(1) { $t .= "c"; }
	swaplabel if(1) { $t .= "d"; }
	if(1) { $t .= "e"; }
};
is $@, "";
is $t, "abcde";

$t = "";
eval q{
	use XS::APItest qw(swaplabel);
	if(1) { $t .= "a"; }
	Lb: if(1) { $t .= "b"; }
	swaplabel if(1) { $t .= "c"; } Lc:
	swaplabel if(1) { $t .= "d"; } Ld:
	Le: if(1) { $t .= "e"; }
};
is $@, "";
is $t, "abcde";

$t = "";
eval q{
	use XS::APItest qw(swaplabel);
	if(1) { $t .= "a"; }
	goto Lb;
	Lb: if(1) { $t .= "b"; }
	swaplabel if(1) { $t .= "c"; } Lc:
	swaplabel if(1) { $t .= "d"; } Ld:
	Le: if(1) { $t .= "e"; }
};
is $@, "";
is $t, "abcde";

$t = "";
eval q{
	use XS::APItest qw(swaplabel);
	if(1) { $t .= "a"; }
	goto Lc;
	Lb: if(1) { $t .= "b"; }
	swaplabel if(1) { $t .= "c"; } Lc:
	swaplabel if(1) { $t .= "d"; } Ld:
	Le: if(1) { $t .= "e"; }
};
is $@, "";
is $t, "acde";

$t = "";
eval q{
	use XS::APItest qw(swaplabel);
	if(1) { $t .= "a"; }
	goto Ld;
	Lb: if(1) { $t .= "b"; }
	swaplabel if(1) { $t .= "c"; } Lc:
	swaplabel if(1) { $t .= "d"; } Ld:
	Le: if(1) { $t .= "e"; }
};
is $@, "";
is $t, "ade";

$t = "";
eval q{
	use XS::APItest qw(swaplabel);
	if(1) { $t .= "a"; }
	goto Le;
	Lb: if(1) { $t .= "b"; }
	swaplabel if(1) { $t .= "c"; } Lc:
	swaplabel if(1) { $t .= "d"; } Ld:
	Le: if(1) { $t .= "e"; }
};
is $@, "";
is $t, "ae";

$t = "";
eval q{
	use XS::APItest qw(swaplabel);
	if(1) { $t .= "a"; }
	swaplabel if(1) { $t .= "b"; } y:
	if(1) { $t .= "c"; }
};
isnt $@, "";
is $t, "";

{
    use utf8;
    use open qw( :utf8 :std );
    
    $t = "";
    eval q{
            use XS::APItest qw(swaplabel);
            $t .= "ㅏ";
            $t .= "Ḇ";
            swaplabel $t .= "ᶜ";
            swaplabel $t .= "ᛑ";
            $t .= "ᶟ";
    };
    is $@, "";
    is $t, "ㅏḆᶜᛑᶟ";
    
    $t = "";
    eval q{
            use XS::APItest qw(swaplabel);
            $t .= "ㅏ";
            LḆ: $t .= "Ḇ";
            swaplabel $t .= "ᶜ"; Lᶜ:
            swaplabel $t .= "ᛑ"; Lᛑ:
            Lᶟ: $t .= "ᶟ";
    };
    is $@, "";
    is $t, "ㅏḆᶜᛑᶟ";
    
    $t = "";
    eval q{
            use XS::APItest qw(swaplabel);
            $t .= "ㅏ";
            goto LḆ;
            LḆ: $t .= "Ḇ";
            swaplabel $t .= "ᶜ"; Lᶜ:
            swaplabel $t .= "ᛑ"; Lᛑ:
            Lᶟ: $t .= "ᶟ";
    };
    is $@, "";
    is $t, "ㅏḆᶜᛑᶟ";
    
    $t = "";
    eval q{
            use XS::APItest qw(swaplabel);
            $t .= "ㅏ";
            goto Lᶜ;
            LḆ: $t .= "Ḇ";
            swaplabel $t .= "ᶜ"; Lᶜ:
            swaplabel $t .= "ᛑ"; Lᛑ:
            Lᶟ: $t .= "ᶟ";
    };
    is $@, "";
    is $t, "ㅏᶜᛑᶟ";
    
    $t = "";
    eval q{
            use XS::APItest qw(swaplabel);
            $t .= "ㅏ";
            goto Lᛑ;
            LḆ: $t .= "Ḇ";
            swaplabel $t .= "ᶜ"; Lᶜ:
            swaplabel $t .= "ᛑ"; Lᛑ:
            Lᶟ: $t .= "ᶟ";
    };
    is $@, "";
    is $t, "ㅏᛑᶟ";
    
    $t = "";
    eval q{
            use XS::APItest qw(swaplabel);
            $t .= "ㅏ";
            goto Lᶟ;
            LḆ: $t .= "Ḇ";
            swaplabel $t .= "ᶜ"; Lᶜ:
            swaplabel $t .= "ᛑ"; Lᛑ:
            Lᶟ: $t .= "ᶟ";
    };
    is $@, "";
    is $t, "ㅏᶟ";
    
    $t = "";
    eval q{
            use XS::APItest qw(swaplabel);
            $t .= "ㅏ";
            swaplabel $t .= "Ḇ"; y:
            $t .= "ᶜ";
    };
    isnt $@, "";
    is $t, "";
    
    $t = "";
    eval q{
            use XS::APItest qw(swaplabel);
            if(1) { $t .= "ㅏ"; }
            if(1) { $t .= "Ḇ"; }
            swaplabel if(1) { $t .= "ᶜ"; }
            swaplabel if(1) { $t .= "ᛑ"; }
            if(1) { $t .= "ᶟ"; }
    };
    is $@, "";
    is $t, "ㅏḆᶜᛑᶟ";
    
    $t = "";
    eval q{
            use XS::APItest qw(swaplabel);
            if(1) { $t .= "ㅏ"; }
            LḆ: if(1) { $t .= "Ḇ"; }
            swaplabel if(1) { $t .= "ᶜ"; } Lᶜ:
            swaplabel if(1) { $t .= "ᛑ"; } Lᛑ:
            Lᶟ: if(1) { $t .= "ᶟ"; }
    };
    is $@, "";
    is $t, "ㅏḆᶜᛑᶟ";
    
    $t = "";
    eval q{
            use XS::APItest qw(swaplabel);
            if(1) { $t .= "ㅏ"; }
            goto LḆ;
            LḆ: if(1) { $t .= "Ḇ"; }
            swaplabel if(1) { $t .= "ᶜ"; } Lᶜ:
            swaplabel if(1) { $t .= "ᛑ"; } Lᛑ:
            Lᶟ: if(1) { $t .= "ᶟ"; }
    };
    is $@, "";
    is $t, "ㅏḆᶜᛑᶟ";
    
    $t = "";
    eval q{
            use XS::APItest qw(swaplabel);
            if(1) { $t .= "ㅏ"; }
            goto Lᶜ;
            LḆ: if(1) { $t .= "Ḇ"; }
            swaplabel if(1) { $t .= "ᶜ"; } Lᶜ:
            swaplabel if(1) { $t .= "ᛑ"; } Lᛑ:
            Lᶟ: if(1) { $t .= "ᶟ"; }
    };
    is $@, "";
    is $t, "ㅏᶜᛑᶟ";
    
    $t = "";
    eval q{
            use XS::APItest qw(swaplabel);
            if(1) { $t .= "ㅏ"; }
            goto Lᛑ;
            LḆ: if(1) { $t .= "Ḇ"; }
            swaplabel if(1) { $t .= "ᶜ"; } Lᶜ:
            swaplabel if(1) { $t .= "ᛑ"; } Lᛑ:
            Lᶟ: if(1) { $t .= "ᶟ"; }
    };
    is $@, "";
    is $t, "ㅏᛑᶟ";
    
    $t = "";
    eval q{
            use XS::APItest qw(swaplabel);
            if(1) { $t .= "ㅏ"; }
            goto Lᶟ;
            LḆ: if(1) { $t .= "Ḇ"; }
            swaplabel if(1) { $t .= "ᶜ"; } Lᶜ:
            swaplabel if(1) { $t .= "ᛑ"; } Lᛑ:
            Lᶟ: if(1) { $t .= "ᶟ"; }
    };
    is $@, "";
    is $t, "ㅏᶟ";
    
    $t = "";
    eval q{
            use XS::APItest qw(swaplabel);
            if(1) { $t .= "ㅏ"; }
            swaplabel if(1) { $t .= "Ḇ"; } y:
            if(1) { $t .= "ᶜ"; }
    };
    isnt $@, "";
    is $t, "";
}

1;