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