Browse files

[reduce.t] Added test for [^^] on an empty list (thundergnat++).

  • Loading branch information...
1 parent de5c0ff commit 689122d5396bfc1998fe18c23f2c4e2fa42f95a2 Kodi Arfer committed Jan 24, 2011
Showing with 3 additions and 1 deletion.
  1. +3 −1 S03-metaops/reduce.t
View
4 S03-metaops/reduce.t
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan 148;
+plan 149;
=begin pod
@@ -220,6 +220,8 @@ is( ([\R~] 'a'..*).[^8].join(', '), 'a, ba, cba, dcba, edcba, fedcba, gfedcba, h
is ([^^] 0, 9, 0), (0 ^^ 9 ^^ 0), '[^^] mix 5';
is ([^^] 0, 0, 17), (0 ^^ 0 ^^ 17), '[^^] mix 6';
+ nok ([^^] ()), 'reduce empty list ok';
+
# test False / undefined things
my $msg1 = 'reduce [^^] false variable test';
my $msg2 = 'infix ^^ false variable test';

0 comments on commit 689122d

Please sign in to comment.