Add test for reverse().

p4raw-id: //depot/perl@8030

diff --git a/MANIFEST b/MANIFEST
index 2845406..8a58d9f 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1557,6 +1557,7 @@ t/op/regexp.t             See if regular expressions work
 t/op/regexp_noamp.t    See if regular expressions work with optimizations
 t/op/regmesg.t         See if one can get regular expression errors
 t/op/repeat.t          See if x operator works
+t/op/reverset.t                See if reverse operator works
 t/op/runlevel.t                See if die() works from perl_call_*()
 t/op/sleep.t           See if sleep works
 t/op/sort.t            See if sort works

diff --git a/t/op/reverse.t b/t/op/reverse.t
new file mode 100644 (file)
index 0000000..bb7b9b7
--- /dev/null
+++ b/t/op/reverse.t
@@ -0,0 +1,33 @@
+#!./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";
+}