Array-Heap/t/03_pkg.t

print "1..2\n";

use Array::Heap;

package a;

our @b;
our @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;

our @b;
our @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.2
Committed:	Tue Jul 14 23:45:10 2015 UTC (11 years, 2 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-3_22, rel-3_21, HEAD
Changes since 1.1:	+4 -2 lines
Log Message:	3.21
#	Content
1	print "1..2\n";
2
3	use Array::Heap;
4
5	package a;
6
7	our @b;
8	our @a = qw(a b c);
9	Array::Heap::make_heap_cmp { $b cmp $a } @a;
10
11	print $a[0] eq "c" ? "" : "not ", "ok 1\n";
12
13	package b;
14
15	our @b;
16	our @a = qw(a b c);
17	Array::Heap::make_heap_cmp { $b cmp $a } @a;
18	print $a[0] eq "c" ? "" : "not ", "ok 2\n";