Skip to content
Browse files

[t/spec]: rakudo fudging and test fixes

git-svn-id: http://svn.pugscode.org/pugs@24399 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 0e50af5 commit b21f28dbb970b8c1759a3b824faaa5a2fe673c1e pmichaud committed
Showing with 8 additions and 6 deletions.
  1. +1 −1 S02-builtin_data_types/hash_ref.t
  2. +5 −3 S03-operators/value_equivalence.t
  3. +2 −2 S29-list/map.t
View
2 S02-builtin_data_types/hash_ref.t
@@ -86,8 +86,8 @@ plan 32;
my %hash = (val => 42);
%hash<ref> = \%hash;
isa_ok %hash, "Hash";
+ #?rakudo 4 skip 'not implemented in class Undef'
isa_ok %hash<ref>, "Hash";
- #?rakudo 3 skip 'not implemented in class Undef'
isa_ok %hash<ref><ref>, "Hash";
is %hash<ref><val>, 42, "access to infinite HoHoHoH... (1)";
is %hash<ref><ref><val>, 42, "access to infinite HoHoHoH... (2)";
View
8 S03-operators/value_equivalence.t
@@ -63,7 +63,8 @@ plan 51;
ok ($a === $a), "=== on scalar references (1-1)";
ok ($b === $b), "=== on scalar references (1-2)";
- ok !($a === $b), "=== on scalar references (1-3)", :todo<bug>;
+ #?rakudo todo 'scalar reference equivalence'
+ ok !($a === $b), "=== on scalar references (1-3)";
}
{
@@ -105,8 +106,9 @@ plan 51;
{
ok !(\3 === \4), "=== on anonymous scalar references (1)";
- ok !(\3 === \3), "=== on anonymous scalar references (2)", :todo<bug>;
- ok !(\undef === \undef), "=== on anonymous scalar references (3)", :todo<bug>;
+ #?rakudo todo 'scalar reference equivalence'
+ ok !(\3 === \3), "=== on anonymous scalar references (2)";
+ ok !(\undef === \undef), "=== on anonymous scalar references (3)";
}
# Chained === (not specced, but obvious)
View
4 S29-list/map.t
@@ -147,11 +147,11 @@ should be equivalent to
my @a = (1, 2, 3);
# XXX is hash { ... } legal?
my @b = map { hash {"v"=>$_, "d" => $_*2} }, @a;
- is(+@b,3, "should be 3 elemens");
+ is(+@b, 6, "should be 6 elements (list context)");
my @c = map { {"v"=>$_, "d" => $_*2} }, @a;
#?pugs todo 'unimpl'
- is(+@c,3, "should be 3 elemens without the hash keyword as well");
+ is(+@c, 3, "should be 3 elements (3 hashrefs)");
}
# Map with mutating block

0 comments on commit b21f28d

Please sign in to comment.
Something went wrong with that request. Please try again.