Array-Heap/t/03_pkg.t

print "1..2\n";

use Array::Heap;

package a;

my @a = qw(a b c);
Array::Heap::make_heap_cmp { $b cmp $a } @a;

print $a[0] eq "c" ? "" : "not ", "ok 1\n";

package b;

my @a = qw(a b c);
Array::Heap::make_heap_cmp { $b cmp $a } @a;
print $a[0] eq "c" ? "" : "not ", "ok 2\n";
Revision:	1.1
Committed:	Tue Jul 14 23:28:10 2015 UTC (8 years, 10 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-3_2
Log Message:	3.2
#	Content
1	print "1..2\n";
2
3	use Array::Heap;
4
5	package a;
6
7	my @a = qw(a b c);
8	Array::Heap::make_heap_cmp { $b cmp $a } @a;
9
10	print $a[0] eq "c" ? "" : "not ", "ok 1\n";
11
12	package b;
13
14	my @a = qw(a b c);
15	Array::Heap::make_heap_cmp { $b cmp $a } @a;
16	print $a[0] eq "c" ? "" : "not ", "ok 2\n";