# This tests the behavior of sort() under the different 'use sort' forms.
# Algorithm by John P. Linderman.
-use strict;
-use warnings;
-
my ($BigWidth, $BigEnough, $RootWidth, $ItemFormat, @TestSizes, $WellSoaked);
BEGIN {
}
}
+use strict;
+use warnings;
+
use Test::More tests => @TestSizes * 2 # sort() tests
* 4 # number of pragmas to test
+ 1 # extra test for qsort instability