Permalink
Browse files

various rakudo fudges and unfudges

  • Loading branch information...
1 parent 46ff167 commit a9de2f65ace11a383f780b27c0f4354e5bf66c25 @moritz moritz committed Jul 10, 2011
Showing with 4 additions and 8 deletions.
  1. +0 −6 S02-builtin_data_types/declare.t
  2. +3 −0 S02-literals/autoref.t
  3. +0 −1 S03-sequence/basic.t
  4. +0 −1 S06-multi/positional-vs-named.t
  5. +1 −0 S32-list/pick.t
@@ -80,13 +80,11 @@ plan 84;
isa_ok($porsi, Array);
}
-#?rakudo skip 'RT #68726: Could not build C3 linearization: ambiguous hierarchy'
{
my Hash $brodi;
isa_ok($brodi, Hash);
}
-#?rakudo skip 'Buf NYI'
{
my Buf $nacpoi;
isa_ok($nacpoi, Buf);
@@ -212,7 +210,6 @@ plan 84;
isa_ok($bi,Range );
}
-#?rakudo skip 'Bag not implemented'
{
my Bag $so;
isa_ok($so,Bag );
@@ -246,7 +243,6 @@ plan 84;
isa_ok($pavo,Duration );
}
-#?rakudo skip 'KeyHash not implemented'
{
my KeyHash $pamu;
isa_ok($pamu,KeyHash );
@@ -525,13 +521,11 @@ plan 84;
# my Hash:of(Array:of(Recipe)) %book;
# my Hash of Array of Recipe %book; my %book of Hash of Array of Recipe
-#?rakudo skip 'Array of Foo not yet implemented'
{
my Array of Int @box;
ok(1,'Array of Int @box');
}
-#?rakudo skip 'Array of Foo not yet implemented'
{
my Array of Array of Int @box;
ok(1,'Array of Array of Int @box');
@@ -50,6 +50,7 @@ plan 57;
my %hash = (a => 1, b => 2, c => 3);
my $ref = \%hash;
+ #?rakudo todo 'backslashes, captures'
is ~$ref.values.sort, "1 2 3", '$hashref = \%hash works (1)';
is +$ref.values, 3, '$hashref = \%hash works (2)';
}
@@ -168,6 +169,7 @@ plan 57;
my %hash = (a => 1, b => 2, c => 3);
my $pair = (key => \%hash);
+ #?rakudo todo 'backslashes, captures'
is ~$pair.value.values.sort, "1 2 3", '(key => \%hash) works (1)';
is +$pair.value.values, 3, '(key => \%hash) works (2)';
}
@@ -204,6 +206,7 @@ plan 57;
my %hash = (a => 1, b => 2, c => 3);
my $pair = (:key(\%hash));
+ #?rakudo todo 'backslashes, captures'
is ~$pair.value.values.sort, "1 2 3", '(:key(\%hash)) works (1)';
is +$pair.value.values, 3, '(:key(\%hash)) works (2)';
}
@@ -134,7 +134,6 @@ is (1, 2 ... 0).munch(3), (1,2,3), 'No more: limit value is on the wrong side';
# RT #75698
-#?rakudo skip 'junctions'
ok ?(one((-5 ... ^5).flat) == 0), '-5 ... ^5 produces just one zero';
# RT #75316
@@ -28,7 +28,6 @@ is( earth(him => 2, me => 1, her => 3), 'me 1 him 2 her 3', 'named him named me
is( earth(her => 3, me => 1, him => 2), 'me 1 him 2 her 3', 'named her named me named him');
is( earth(her => 3, him => 2, me => 1), 'me 1 him 2 her 3', 'named her named him named me');
-#?rakudo skip 'No applicable candidates found - bug?'
is( earth('b', you => 4), 'pos b you 4', 'pos, named you');
is( earth('c', her => 3), 'pos c her 3', 'pos, named her');
#?rakudo skip 'No applicable candidates found '
View
@@ -77,6 +77,7 @@ is (<a b c d>.pick(*).sort).Str, 'a b c d', 'pick(*) returns all the items in th
}
{
+ #?rakudo todo 'error on pick :replace'
dies_ok({ [1,2,3].pick(4, :replace) }, 'error on deprecated :replace');
}

0 comments on commit a9de2f6

Please sign in to comment.