Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[t/spec] Add fudged test for >>. on hash.

git-svn-id: http://svn.pugscode.org/pugs@31103 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit cdd392fcc136b9de51dad14b899060bb88ac5b4e 1 parent 60d1184
colomon authored
Showing with 10 additions and 0 deletions.
  1. +10 −0 S03-metaops/hyper.t
View
10 S03-metaops/hyper.t
@@ -518,6 +518,16 @@ my @e;
is %r<c>, 8, 'hash - correct result from <<**>>';
}
+#?rakudo skip '>>. NYI on hashes'
+{
+ my %a = a => 1, b => -2, c => 3;
+ my %r = %a>>.abs;
+ is +%r, 3, 'hash - >>.abs result has right number of keys';
+ is %r<a>, 1, 'hash - correct result from >>.abs';
+ is %r<b>, 2, 'hash - correct result from >>.abs';
+ is %r<c>, 3, 'hash - correct result from >>.abs';
+}
+
{
my @a = (1, { a => 2, b => 3 }, 4);
my @b = <a b c>;
Please sign in to comment.
Something went wrong with that request. Please try again.