[perl5.git] / lib / sort.t

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

use Test::More tests => 2;

BEGIN {
    require "sort.pm"; # require sort; does not work
    ok(sort::current() eq 'mergesort');
}

use sort qw( stable _qsort );
ok(sort::current() eq 'quicksort stable');
Commit	Line	Data
84d4ea48 JH	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	}
	7
	8	use Test::More tests => 2;
	9
	10	BEGIN {
	11	require "sort.pm"; # require sort; does not work
	12	ok(sort::current() eq 'mergesort');
	13	}
	14
c53fc8a6 JH	15	use sort qw( stable _qsort );
c53fc8a6 JH	16	ok(sort::current() eq 'quicksort stable');
84d4ea48	17