Consider alternate location for system groups command

[p5sagit/p5-mst-13.2.git] / t / op / sort.t

diff --git a/t/op/sort.t b/t/op/sort.t
old mode 100644 (file)
new mode 100755 (executable)
index 73a3944..dc01e5f
--- a/t/op/sort.t
+++ b/t/op/sort.t
@@ -1,10 +1,10 @@
 #!./perl
 
-# $RCSfile: sort.t,v $$Revision: 4.0.1.1 $$Date: 91/11/05 18:43:47 $
+# $RCSfile: sort.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:24 $
 
-print "1..9\n";
+print "1..10\n";
 
-sub reverse { $a lt $b ? 1 : $a gt $b ? -1 : 0; }
+sub backwards { $a lt $b ? 1 : $a gt $b ? -1 : 0; }
 
 @harry = ('dog','cat','x','Cain','Abel');
 @george = ('gone','chased','yz','Punished','Axed');
@@ -12,7 +12,7 @@ sub reverse { $a lt $b ? 1 : $a gt $b ? -1 : 0; }
 $x = join('', sort @harry);
 print ($x eq 'AbelCaincatdogx' ? "ok 1\n" : "not ok 1\n");
 
-$x = join('', sort reverse @harry);
+$x = join('', sort( backwards @harry));
 print ($x eq 'xdogcatCainAbel' ? "ok 2\n" : "not ok 2\n");
 
 $x = join('', sort @george, 'to', @harry);
@@ -41,3 +41,8 @@ print ("@b" eq "4 3 2 1" ? "ok 8\n" : "not ok 8 (@b)\n");
 @a = (10,2,3,4);
 @b = sort {$a <=> $b;} @a;
 print ("@b" eq "2 3 4 10" ? "ok 9\n" : "not ok 9 (@b)\n");
+
+$sub = 'backwards';
+$x = join('', sort $sub @harry);
+print ($x eq 'xdogcatCainAbel' ? "ok 10\n" : "not ok 10\n");
+