Commit | Line | Data |
---|---|---|
84d4ea48 | 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 | 15 | use sort qw( stable _qsort ); |
16 | ok(sort::current() eq 'quicksort stable'); | |
84d4ea48 | 17 |