summaryrefslogtreecommitdiff
path: root/ext/B/t
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2004-11-18 17:25:19 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2004-11-18 17:25:19 +0000
commit3ac6e0f94cbac2937b08ea7ee5d77e4a19c63780 (patch)
treec20f8ec162cc31c8bb1548b9b66243c16cb0bff6 /ext/B/t
parent615a2b9b5fd38672499052f0b6c19ccd271f6550 (diff)
downloadperl-3ac6e0f94cbac2937b08ea7ee5d77e4a19c63780.tar.gz
Fix deparsing of reversed sort and descending sorts,
due to the recent optimisations on this part of the optree. p4raw-id: //depot/perl@23513
Diffstat (limited to 'ext/B/t')
-rw-r--r--ext/B/t/deparse.t14
1 files changed, 13 insertions, 1 deletions
diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t
index fed9cf0113..6c5bcb9f93 100644
--- a/ext/B/t/deparse.t
+++ b/ext/B/t/deparse.t
@@ -20,7 +20,7 @@ use warnings;
use strict;
use Config;
-print "1..32\n";
+print "1..35\n";
use B::Deparse;
my $deparse = B::Deparse->new() or print "not ";
@@ -265,3 +265,15 @@ my $i;
foreach our $i (1, 2) {
my $z = 1;
}
+####
+# 29
+my @x;
+print reverse sort(@x);
+####
+# 30
+my @x;
+print((sort {$b cmp $a} @x));
+####
+# 31
+my @x;
+print((reverse sort {$b <=> $a} @x));