This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 3.0: (no announcement message available)
[perl5.git] / t / op.sort
CommitLineData
a687059c
LW
1#!./perl
2
3# $Header: op.sort,v 3.0 89/10/18 15:31:19 lwall Locked $
4
5print "1..3\n";
6
7sub reverse { $a lt $b ? 1 : $a gt $b ? -1 : 0; }
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
15$x = join('', sort reverse @harry);
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");