From f4f44d658c5179458c57c4af43429aac25bf8546 Mon Sep 17 00:00:00 2001 From: Robin Houston Date: Sun, 2 Apr 2006 18:20:24 +0100 Subject: Prevent "use sort 'stable'" from reversing the order Message-ID: <20060402162024.GA3854@rpc142.cs.man.ac.uk> p4raw-id: //depot/perl@27689 --- lib/sort.t | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lib/sort.t') diff --git a/lib/sort.t b/lib/sort.t index 62c5529c21..ca809b0ffa 100644 --- a/lib/sort.t +++ b/lib/sort.t @@ -26,7 +26,7 @@ use strict; use warnings; use Test::More tests => @TestSizes * 2 # sort() tests - * 4 # number of pragmas to test + * 6 # number of pragmas to test + 1 # extra test for qsort instability + 3 # tests for sort::current + 3; # tests for "defaults" and "no sort" @@ -163,16 +163,19 @@ main(sub { sort {&{$_[0]}} @{$_[1]} }, 0); no sort qw(_qsort); my $sort_current; BEGIN { $sort_current = sort::current(); } is($sort_current, 'stable', 'sort::current after no _qsort'); + main(sub { sort {&{$_[0]}} @{$_[1]} }, 0); } { use sort qw(defaults _qsort); my $sort_current; BEGIN { $sort_current = sort::current(); } is($sort_current, 'quicksort', 'sort::current after defaults _qsort'); + # Not expected to be stable, so don't test for stability here } { use sort qw(defaults stable); my $sort_current; BEGIN { $sort_current = sort::current(); } is($sort_current, 'stable', 'sort::current after defaults stable'); + main(sub { sort {&{$_[0]}} @{$_[1]} }, 0); } -- cgit v1.2.1