summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/t/op/reverse.t
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/perl5/t/op/reverse.t')
-rwxr-xr-xcontrib/perl5/t/op/reverse.t33
1 files changed, 0 insertions, 33 deletions
diff --git a/contrib/perl5/t/op/reverse.t b/contrib/perl5/t/op/reverse.t
deleted file mode 100755
index bb7b9b7..0000000
--- a/contrib/perl5/t/op/reverse.t
+++ /dev/null
@@ -1,33 +0,0 @@
-#!./perl
-
-BEGIN {
- chdir 't' if -d 't';
- @INC = '../lib';
-}
-
-print "1..4\n";
-
-print "not " unless reverse("abc") eq "cba";
-print "ok 1\n";
-
-$_ = "foobar";
-print "not " unless reverse() eq "raboof";
-print "ok 2\n";
-
-{
- my @a = ("foo", "bar");
- my @b = reverse @a;
-
- 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}";
- my $b = scalar reverse($a);
- my $c = scalar reverse($b);
- print "not " unless $a eq $c;
- print "ok 4\n";
-}
OpenPOWER on IntegriCloud