add test for adverbial block form of min (RT #53804)

Raku · May 30, 2012 · ed219b0 · ed219b0
1 parent 7a70097
commit ed219b0
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/S32-list/minmax.t b/S32-list/minmax.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 58;
+plan 59;
 
 # L<S32::Containers/List/=item min>
 # L<S32::Containers/List/=item max>
@@ -23,6 +23,9 @@ is min(@array), -9, 'min(list)';
 is (@array.min: { $^a <=> $^b }), -9,
   "method form of min with identity comparison block works";
 
+is (@array.min:{ $^a <=> $^b }), -9,
+  "adverbial block form of min with identity comparison block works (RT #53804)";
+
 is min(:by({ $^a <=> $^b }), @array), -9,
   "subroutine form of min with identity comparison block works";