Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

change some unary hypers to deepmaps

  • Loading branch information...
commit eb7b2df91c4fdcba37784d93b50101c5240cd57a 1 parent 7daa89c
@TimToady TimToady authored
Showing with 3 additions and 15 deletions.
  1. +3 −15 S03-metaops/hyper.t
View
18 S03-metaops/hyper.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 281;
+plan 277;
=begin pod
@@ -273,32 +273,20 @@ my @e;
{ # distribution for unary prefix
my @r;
- @r = ([1, 2], [3, [4, 5]]);
+ @r = ([1, 2], [3, [4, 5]]).deepmap: -*;
my @e = ([-1, -2], [-3, [-4, -5]]);
is(~@r, ~@e, "distribution for unary prefix");
is_deeply(@r, @e, "distribution for unary prefix, deep comparison");
-
- @r = -<< ([1, 2], [3, [4, 5]]);
- @e = ([-1, -2], [-3, [-4, -5]]);
- is(~@r, ~@e, "distribution for unary prefix, ASCII");
- is_deeply(@r, @e, "distribution for unary prefix, ASCII, deep comparison");
};
{ # distribution for unary postfix autoincrement
my @r;
@r = ([1, 2], [3, [4, 5]]);
- @r»++;
+ @r.deepmap: *++;
my @e = ([2, 3], [4, [5, 6]]);
#?pugs todo
is(~@r, ~@e, "distribution for unary postfix autoincr");
is_deeply(@r, @e, "distribution for unary postfix autoincr, deep comparison");
-
- @r = ([1, 2], [3, [4, 5]]);
- @r>>++;
- @e = ([2, 3], [4, [5, 6]]);
- #?pugs todo
- is(~@r, ~@e, "distribution for unary postfix autoincr, ASCII");
- is_deeply(@r, @e, "distribution for unary postfix autoincr, ASCII, deep comparison");
};
#?DOES 3
Please sign in to comment.
Something went wrong with that request. Please try again.