Lines Matching refs:sort
3 # This tests the behavior of sort() under the different 'use sort' forms.
28 use Test::More tests => @TestSizes * 2 # sort() tests
31 + 3 # tests for sort::current
32 + 3; # tests for "defaults" and "no sort"
34 # Generate array of specified size for testing sort.
99 # Test sort on arrays of various sizes (set up in @TestSizes)
111 @sorted = sort { substr($a, 0, $RootWidth)
122 @sorted = sort { substr($a, $RootWidth)
140 # Currently 'use sort' modifies $sort::hints at compile-time, but
145 use sort qw(_qsort);
146 is(sort::current(), 'quicksort', 'sort::current for _qsort');
152 use sort qw(_mergesort);
153 is(sort::current(), 'mergesort', 'sort::current for _mergesort');
159 use sort qw(_qsort stable);
160 is(sort::current(), 'quicksort stable', 'sort::current for _qsort stable');
165 # Tests added to check "defaults" subpragma, and "no sort"
168 no sort qw(_qsort);
169 is(sort::current(), 'stable', 'sort::current after no _qsort');
174 use sort qw(defaults _qsort);
175 is(sort::current(), 'quicksort', 'sort::current after defaults _qsort');
180 use sort qw(defaults stable);
181 is(sort::current(), 'stable', 'sort::current after defaults stable');