From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 8 Dec 2000 01:23:54 +0000 (+0000)
Subject: Add test for reverse().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3168554e5939cff15d64726add52097929d2f256;p=p5sagit%2Fp5-mst-13.2.git

Add test for reverse().

p4raw-id: //depot/perl@8030
---

diff --git a/MANIFEST b/MANIFEST
index 2845406..8a58d9f 100644
--- 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
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";
+}