This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
44aaf8ffae28750089b80bfd1dd962434c37efd4
[perl5.git] / lib / sort.t
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 qw( stable _qsort );
16 ok(sort::current() eq 'quicksort stable');
17