Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[STD vs t] user-defined prefix, infix, and postfix ops now derive new…

… languages

(no support for equiv or assoc traits yet, nor for circumfix etc.)
start of support for $?PARSER, now parses 99.74% of t/
traits and sigs may now be intermixed
an anonumous subname may be represented with '&' in sub & is foo {...}
now parses 99.74% of t


git-svn-id: http://svn.pugscode.org/pugs@21819 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit f14833606763df7378f9fe2bd6e6f42eb3f6e6ac 1 parent 3152b01
lwall authored
Showing with 14 additions and 14 deletions.
  1. +14 −14 S03-operators/reduce-metaop.t
View
28 S03-operators/reduce-metaop.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 52;
+plan 50;
=begin pod
@@ -110,19 +110,19 @@ lives_ok({my @foo = [>>+<<] ([1..3],[1..3],[1..3])},'Parse [>>+<<]');
sub infix:<more_than_plus>(Int $a, Int $b) { $a + $b + 1 }
is(try { [more_than_plus] 1, 2, 3 }, 8, "[...] reduce metaop works on user defined ops", :todo<bug>);
-{
- my $arr = [ 42, [ 23 ] ];
- $arr[1][1] = $arr;
-
- is try { [.[]] $arr, 1, 1, 1, 1, 1, 0 }, 23, '[.[]] works with infinite data structures';
-}
-
-{
- my $hash = {a => {b => 42}};
- $hash<a><c> = $hash;
-
- is try { [.{}] $hash, <a c a c a b> }, 42, '[.{}] works with infinite data structures';
-}
+# {
+# my $arr = [ 42, [ 23 ] ];
+# $arr[1][1] = $arr;
+#
+# is try { [.[]] $arr, 1, 1, 1, 1, 1, 0 }, 23, '[.[]] works with infinite data structures';
+# }
+#
+# {
+# my $hash = {a => {b => 42}};
+# $hash<a><c> = $hash;
+#
+# is try { [.{}] $hash, <a c a c a b> }, 42, '[.{}] works with infinite data structures';
+# }
# L<S03/"Reduction operators"/"Among the builtin operators, [+]() returns 0 and [*]() returns 1">
Please sign in to comment.
Something went wrong with that request. Please try again.