Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

pugs fudge

  • Loading branch information...
commit db2d1596e1f243a3c8eb5656a77b1940fea01fa8 1 parent b43c99f
@coke coke authored
View
1  S02-magicals/sub.t
@@ -25,6 +25,7 @@ sub postfix:<!!!> (Int $n) { $n < 2 ?? 1 !! $n * &?ROUTINE($n - 1) }
my $result3 = 3!!!;
is($result3, 6, 'the &?ROUTINE magical works correctly in overloaded operators' );
+#?pugs skip 'ROUTINE'
{
my $variable;
my regex foo { a { $variable = &?ROUTINE; } }
View
2  S03-operators/assign.t
@@ -959,9 +959,9 @@ sub l () { 1, 2 };
}
# RT #77174
-#?pugs todo
{
my @a //= (3);
+ #?pugs todo
is @a, "";
my @b ||= (3);
is @b, "3";
View
1  S03-operators/range.t
@@ -245,7 +245,6 @@ is (1..6 Z 'a' .. 'c').join, '1a2b3c', 'Ranges and infix:<Z>';
# Lists are allowed on the rhs if the lhs is numeric (Real):
#?niecza todo 'allow List as rhs endpoint'
-#?pugs todo
is ~(2 .. [<a b c d e>]), "2 3 4 5", '2 .. @list is legal';
# RT #68788
View
1  S04-statements/terminator.t
@@ -41,6 +41,7 @@ eval_dies_ok('my $x = ', 'incomplete expression');
+ 2 ];
';
+ #?pugs todo
is($z[0], 2, 'auto-curly applies inside array composer');
}
View
1  S05-metasyntax/charset.t
@@ -39,7 +39,6 @@ is($0, 'y', 'Difference set capture');
# RT #115802
#?pugs todo
ok( "abc" ~~ m/<[\w]-[\n]>/, 'Difference set match 1');
-#?pugs todo
ok(!("abc" ~~ m/<[\w]-[\N]>/), 'Difference set match 2');
#?pugs todo
is(("abc123" ~~ m/<[\w]-[a\d]>+/), 'bc', 'Difference set match 3');
View
3  S06-operator-overloading/imported-subs.t
@@ -41,8 +41,11 @@ BEGIN { @*INC.push: 't/spec/packages' };
dies_ok { eval('3 notthere 4') }, 'not-exported operator was not imported';
{
+ #?pugs emit #
my $fail = try eval q{3 notthere 4};
+ #?pugs skip 'eek'
ok $! ~~ X::Syntax::Confused, 'not imported operator fails with X::Syntax::Confused.';
+ #?pugs skip 'eek'
is $!.reason, "Two terms in a row", 'the reason is "Two terms in a row"';
}
}
Please sign in to comment.
Something went wrong with that request. Please try again.