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 | |
15 | use sort 'fast'; |
16 | ok(sort::current() eq 'quicksort fast'); |
17 | |