Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

pugs fudge

  • Loading branch information...
commit d9156948858e7f73793ac92ee8210bdee286657b 1 parent ff603bb
@coke coke authored
View
2  S02-types/array_ref.t
@@ -7,7 +7,7 @@ plan 45;
# array_ref of strings
my $array_ref1 = ("foo", "bar", "baz");
-#?pugs todo 'Array, not parcel'
+#?pugs skip 'Parcel'
isa_ok($array_ref1, Parcel);
is(+$array_ref1, 3, 'the array_ref1 has 3 elements');
View
2  S02-types/lists.t
@@ -158,7 +158,7 @@ plan 28;
}
# RT #66304
-#?pugs todo
+#?pugs skip 'Parcel'
{
my $rt66304 = (1, 2, 4);
isa_ok $rt66304, Parcel, 'List assigned to scalar is-a Parcel';
View
1  S03-operators/context.t
@@ -48,6 +48,7 @@ plan 32;
#?niecza 4 skip 'Excess arguments to item, used 1 of 2 positionals'
isa_ok((item $a, $b).WHAT, Array, '(item $a, $b) makes an Array');
isa_ok(item($a, $b).WHAT, Array, 'item $a, $b makes an Array');
+ #?pugs skip 'Parcel'
isa_ok($($a, $b).WHAT, Parcel, '$ $a, $b makes a Parcel');
my @array = ($a, $b);
is((item $a, $b), @array, 'item($a, $b) is the same as <<$a $b>> in an array');
View
11 S32-list/map.t
@@ -109,7 +109,6 @@ should be equivalent to
}
-#?pugs skip 'unimpl'
{
my @a = (1, 2, 3);
my @b = map { hash("v"=>$_, "d" => $_*2) }, @a;
@@ -123,12 +122,11 @@ should be equivalent to
# Map with mutating block
# L<S02/Names/"$_, $!, and $/ are context<rw> by default">
+#?pugs todo
{
my @array = <a b c d>;
- #?pugs todo
is ~(try { @array.map: { $_ ~= "c"; $_ ~ "d" } }), "acd bcd ccd dcd",
'mutating $_ in map works (1)';
- #?pugs todo
is ~@array, "ac bc cc dc",
'mutating $_ in map works (2)';
}
@@ -162,12 +160,12 @@ is( ~((1..3).map: { dbl( $_ ) }),'2 4 6','extern method in map');
is +@result, 4, "map works with the map body returning an empty arrayref";
}
+#?pugs todo
{
my @array = <a b c d>;
my $empty = [];
my @result = map { $empty }, @array;
- #?pugs todo 'bug'
is +@result, 4, "map works with the map body returning an empty arrayref variable";
}
@@ -227,7 +225,7 @@ is( ~((1..3).map: { dbl( $_ ) }),'2 4 6','extern method in map');
is ~(({1},{2},{3}).map: { .() }), "1 2 3", 'lone .() in map should work (2)';
}
-#?pugs skip 'unimpl'
+#?pugs skip "Cannot use this control structure outside a 'loop' structure"
#?DOES 2
{
is (1..4).map({ next if $_ % 2; 2 * $_ }).join('|'),
@@ -237,7 +235,7 @@ is( ~((1..3).map: { dbl( $_ ) }),'2 4 6','extern method in map');
}
# RT #62332
-#?pugs skip 'unimpl'
+#?pugs skip 'No such method in class Str: "&key"'
#?DOES 2
{
my $x = :a<5>;
@@ -247,6 +245,7 @@ is( ~((1..3).map: { dbl( $_ ) }),'2 4 6','extern method in map');
# RT #112596
#?pugs skip 'hangs'
+#?DOES 1
{
my @a = map &sprintf.assuming("%x"), 9..12;
is(@a, <9 a b c>, "map over a callable with a slurpy");

0 comments on commit d915694

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