Browse files

pugs fudges

Recent spec updates mean we no longer conform. (plus some new tests we never passed)
  • Loading branch information...
1 parent b10025a commit 7156048a2663c5192a2736d27837e87f627dd33f @coke coke committed Mar 3, 2013
View
1 S02-literals/quoting.t
@@ -601,6 +601,7 @@ is "foo $( my $x = 3 + 4; "bar" ) baz", 'foo bar baz', 'declaration in interpola
#?pugs todo "Weird quoting issue"
is <<<\>'n'>>.join('|'), '<>|n', 'texas quotes edge case';
+#?pugs todo
{
$_ = 'abc';
/a./;
View
1 S02-types/subset.t
@@ -222,6 +222,7 @@ my $a = 1;
}
# RT #74352
+#?pugs skip 'parsefail'
{
subset A of Array;
subset B of A;
View
1 S03-operators/assign.t
@@ -959,6 +959,7 @@ sub l () { 1, 2 };
}
# RT #77174
+#?pugs todo
{
my @a //= (3);
is @a.perl, "Array.new()";
View
1 S04-statements/for.t
@@ -574,6 +574,7 @@ dies_ok
}, 'for in called method runs (was a sink context bug)';
# RT #77460
+#?pugs todo
{
my @a = 1;
for 1..10 {
View
3 S05-interpolation/regex-in-variable.t
@@ -44,7 +44,6 @@ ok("aaaaab" ~~ m/<{$foo}>/, 'Rulish scalar match 4');
#?pugs todo
ok("aaaaab" ~~ m/<$foo>/, 'Rulish scalar match 5');
ok(!("aaaaab" ~~ m/$foo/), 'Rulish scalar match 6');
-#?pugs todo
ok(!('aaaaab' ~~ m/"$foo"/), 'Rulish scalar match 7');
# RT #61960
@@ -69,7 +68,7 @@ ok(!( "!" ~~ m/@var/ ), 'Simple array match (!)');
ok("!!!!a!!!!!" ~~ m/@var/, 'Nested array match (a)');
#?pugs todo
ok("!!!!e!!!!!" ~~ m/@var/, 'Nested array match (e)');
-#?pugs todo
+#?pugs skip 'parsefail'
is("foo123bar" ~~ /@( rx/\d+/ )/, '123', 'Match from correct position');
#?pugs todo
View
2 S05-mass/rx.t
@@ -2577,7 +2577,9 @@ ok 'baaabbb' ~~ /a**:!2..4/, 'three "a" characters (explicit greed)';
}
# RT 115298
+#?pugs todo
ok 'foobar' ~~ /$( $_ )/, '$( $_ ) will match literally';
+#?pugs todo
is $/, 'foobar', '... will match correctly';
#### <ident> 2+3 ab2 /mob<ident>: <ab2 @ 4>/ capturing builtin <ident>
View
3 S05-metasyntax/charset.t
@@ -37,9 +37,12 @@ ok("y" ~~ m/(<[a..z]-[aeiou]>)/, 'Difference set match');
is($0, 'y', 'Difference set capture');
# RT #115802
+#?pugs todo
ok( "abc" ~~ m/<[\w]-[\n]>/, 'Difference set match');
ok(!("abc" ~~ m/<[\w]-[\N]>/), 'Difference set match');
+#?pugs todo
is(("abc123" ~~ m/<[\w]-[a\d]>+/), 'bc', 'Difference set match');
+#?pugs todo
is(("abc123" ~~ m/<[\w]-[1\D]>+/), '23', 'Difference set match');
ok(!( "a" ~~ m/(<+alpha-[aeiou]>)/ ), 'Named difference set failure');
View
1 S05-metasyntax/litvar.t
@@ -66,6 +66,7 @@ is("abc" ~~ m/ || @var /, 'a', 'Array using explicit sequential semantics');
# contextializer $( )
# RT 115298
+#?pugs 4 todo
ok 'foobar' ~~ /$( $_ )/, '$( $_ ) will match';
is $/, 'foobar', '... $( $_ ) matched entire string';
is 'foobar' ~~ /$( $_.substr(3) )/, 'bar', 'Contextualizer with functions calls';
View
1 S12-class/lexical.t
@@ -30,6 +30,7 @@ eval_dies_ok '{ my class B {}; B.new; }; B.new',
ok $pint ~~ WeissBier, 'can smart-match against lexical class';
is $pint.name, 'Erdinger', 'attribute in lexical class works';
is $pint.describe, 'outstanding flavour', 'method call on lexical class works';
+ #?pugs todo
is WeissBier.gist, '(WeissBier)', 'lexical type object stringifies correct';
my class LessThanAmazingWeissBier is WeissBier {
View
1 S14-roles/lexical.t
@@ -24,6 +24,7 @@ eval_dies_ok '{ my class R3 {}; R3; }; R3',
method catwalk() { 'ooh pretty!' }
}
+ #?pugs todo
is Model.gist, '(Model)', 'lexical role type object stringifies OK';
is Model.catwalk, 'ooh pretty!', 'can pun lexical role';
View
1 S32-list/pick.t
@@ -171,6 +171,7 @@ is (1..^2).pick, 1, 'pick on 1-elem range';
ok ('a'..'z').pick ~~ /\w/, 'Range.pick on non-Int range';
# RT #109586
+#?pugs skip 'hogs memory'
nok ([==] (^2**64).roll(10).map(* +& 15)), 'Range.pick has enough entropy';
# vim: ft=perl6
View
1 S32-num/rat.t
@@ -23,6 +23,7 @@ isa_ok( eval(Rat.new(1, 3).perl), Rat, 'eval Rat.new(1, 3).perl is Rat' );
is( (eval Rat.new(1, 3).perl), 1/3, 'eval Rat.new(1, 3).perl is 1/3' );
isa_ok( eval((1/3).perl), Rat, 'eval (1/3).perl is Rat' );
is( (eval (1/3).perl), 1/3, 'eval (1/3).perl is 1/3' );
+#?pugs 3 todo 'tenths'
is( (1/10).perl, "0.1", '(1/10).perl is 0.1' );
is( (1/5).perl, "0.2", '(1/5).perl is .2' );
is( (1/2).perl, "0.5", '(1/2).perl is .5' );
View
1 integration/advent2009-day01.t
@@ -7,6 +7,7 @@ plan(2);
# say "Hello World";
+#?pugs todo 'gist spec changed'
is( (10/7).WHAT.gist, '(Rat)', 'WHAT');
is(([+] (1..999).grep( { $_ % 3 == 0 || $_ % 5 == 0 } )), 233168, 'Project Euler #1');

0 comments on commit 7156048

Please sign in to comment.