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