Permalink
Browse files

[t/spec] Add a few tests for the one-argument case.

git-svn-id: http://svn.pugscode.org/pugs@30289 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
colomon
colomon committed Apr 3, 2010
1 parent a246cb9 commit 2d7d862d0f24960f9af2fda6029aa4b1dba09236
Showing with 7 additions and 1 deletion.
  1. +7 −1 S03-metaops/reduce.t
View
@@ -1,7 +1,7 @@
use v6;
use Test;
-plan 71;
+plan 76;
=begin pod
@@ -175,6 +175,12 @@ lives_ok({my @foo = [>>+<<] ([1..3],[1..3],[1..3])},'Parse [>>+<<]');
is( ([*]()), 1, "[*]() returns 1");
is( ([+]()), 0, "[+]() returns 0");
+is( ([*] 41), 41, "[*] 41 returns 41");
+is( ([*] 42), 42, "[*] 42 returns 42");
+is( ([~] 'towel'), 'towel', "[~] 'towel' returns 'towel'");
+is( ([~] 'washcloth'), 'washcloth', "[~] 'washcloth' returns 'washcloth'");
+is( ([<] 42), Bool::True, "[<] 42 returns true");
+
# RT #65164 (TODO: implement [^^])
#?rakudo skip 'implement [^^]'
{

0 comments on commit 2d7d862

Please sign in to comment.