perl 4.0 patch 18: patch #11, continued

See patch #11.

1 files changed, 6 insertions, 2 deletions

diff --git a/t/op/sort.t b/t/op/sort.t
index b1b2202d2b..73a394421c 100644
--- a/t/op/sort.t
+++ b/t/op/sort.t
@@ -1,8 +1,8 @@
 #!./perl
 
-# $Header: sort.t,v 4.0 91/03/20 01:54:38 lwall Locked $
+# $RCSfile: sort.t,v $$Revision: 4.0.1.1 $$Date: 91/11/05 18:43:47 $
 
-print "1..8\n";
+print "1..9\n";
 
 sub reverse { $a lt $b ? 1 : $a gt $b ? -1 : 0; }
 
@@ -37,3 +37,7 @@ print ("@b" eq "3 2 1" ? "ok 7\n" : "not ok 7 (@b)\n");
 @a = (1,2,3,4);
 @b = reverse @a;
 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");