This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.003_06: t/lib/abbrev.t
[perl5.git] / t / op / sort.t
CommitLineData
a687059c
LW
1#!./perl
2
79072805 3# $RCSfile: sort.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:24 $
a687059c 4
988174c1 5print "1..10\n";
a687059c 6
463ee0b2 7sub backwards { $a lt $b ? 1 : $a gt $b ? -1 : 0; }
a687059c
LW
8
9@harry = ('dog','cat','x','Cain','Abel');
10@george = ('gone','chased','yz','Punished','Axed');
11
12$x = join('', sort @harry);
13print ($x eq 'AbelCaincatdogx' ? "ok 1\n" : "not ok 1\n");
14
a0d0e21e 15$x = join('', sort( backwards @harry));
a687059c
LW
16print ($x eq 'xdogcatCainAbel' ? "ok 2\n" : "not ok 2\n");
17
18$x = join('', sort @george, 'to', @harry);
19print ($x eq 'AbelAxedCainPunishedcatchaseddoggonetoxyz'?"ok 3\n":"not ok 3\n");
03a14243
LW
20
21@a = ();
22@b = reverse @a;
23print ("@b" eq "" ? "ok 4\n" : "not ok 4 (@b)\n");
24
25@a = (1);
26@b = reverse @a;
27print ("@b" eq "1" ? "ok 5\n" : "not ok 5 (@b)\n");
28
29@a = (1,2);
30@b = reverse @a;
31print ("@b" eq "2 1" ? "ok 6\n" : "not ok 6 (@b)\n");
32
33@a = (1,2,3);
34@b = reverse @a;
35print ("@b" eq "3 2 1" ? "ok 7\n" : "not ok 7 (@b)\n");
36
37@a = (1,2,3,4);
38@b = reverse @a;
39print ("@b" eq "4 3 2 1" ? "ok 8\n" : "not ok 8 (@b)\n");
55204971
LW
40
41@a = (10,2,3,4);
42@b = sort {$a <=> $b;} @a;
43print ("@b" eq "2 3 4 10" ? "ok 9\n" : "not ok 9 (@b)\n");
988174c1 44
463ee0b2 45$sub = 'backwards';
988174c1
LW
46$x = join('', sort $sub @harry);
47print ($x eq 'xdogcatCainAbel' ? "ok 10\n" : "not ok 10\n");
48