#!./perl
chdir 't' if -d 't';
}
print "1..4\n";
print "ok 1\n";
$_ = "foobar";
print "ok 2\n";
{
my @a = ("foo", "bar");
print "not " unless $b[0] eq $a[1] && $b[1] eq $a[0]; print "ok 3\n";
}
{
# Unicode.
my $a = "\x{263A}\x{263A}x\x{263A}y\x{263A}";
print "ok 4\n";
}