lib/sort.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!./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');