print "1..5\n";

use Unicode::String qw(latin1 byteswap2 byteswap4);

$a = "12345678";
$b = "abcdefg";

my $warn = 0;
$SIG{__WARN__} = sub { print @_; $warn++; };


@a = byteswap2($a, $b);

print "not " unless @a == 2 &&
                    $a eq "12345678" &&
		    $b eq "abcdefg" &&
		    $a[0] eq "21436587" &&
		    $a[1] eq "badcfeg" &&
		    $warn == ($^W ? 1 : 0);
print "ok 1\n";
$warn = 0;

@a = byteswap4($a, $b);

print "not " unless @a == 2 &&
                    $a eq "12345678" &&
		    $b eq "abcdefg" &&
		    $a[0] eq "43218765" &&
		    $a[1] eq "dcbaefg" &&
		    $warn == ($^W ? 1 : 0);
print "ok 2\n";

# Try in-place change
byteswap2($a);
print "not " unless $a eq "21436587";
print "ok 3\n";

print "not " unless byteswap2(byteswap2($a)) eq $a;
print "ok 4\n";

# Try object method

$u = latin1("abc");
#print $u->hex, "\n";
$u->byteswap;
#print $u->hex, "\n";

print "not " unless $u->ucs2 eq "a\0b\0c\0";
print "ok 5\n";