Skip to content
Browse files

pugs fudge

  • Loading branch information...
1 parent dee9fde commit 31d14e767d781b91a249adb6f9ac82635f8e4ef6 @coke coke committed Jan 14, 2013
View
1 S02-literals/misc-interpolation.t
@@ -63,6 +63,7 @@ is('$world @list[] %hash{} &func()', '$world @list[] %hash{} &func()', 'single q
is("Hello $world!", "Hello World!", "! is not a part of var names");
sub list_count (*@args) { +@args }
is(list_count("@list[]"), 1, 'quoted interpolation gets string context');
+#?pugs todo
is(qq{a{chr 98}c}, 'a{chr 98}c', "curly brace delimiters interfere with closure interpolation");
# Quoting constructs
View
4 S02-literals/quoting.t
@@ -446,6 +446,7 @@ Hello, World
is q:x/echo 一/, "\n", "Testing for q:x operator. (utf8)";
}
+#?pugs todo
{
my $world = 'world';
ok qq:x/echo hello $world/ ~~ /^'hello world'\n$/, 'Testing qq:x operator';
@@ -588,13 +589,16 @@ Hello, World
}
# RT #90124
+#?pugs todo
eval_dies_ok q["@a<"], 'unclosed quote after array variable is an error';
# RT #114090
+#?pugs skip 'parsefail'
is "foo $( my $x = 3 + 4; "bar" ) baz", 'foo bar baz', 'declaration in interpolation';
#115272
#?niecza todo "Weird quoting issue"
+#?pugs todo "Weird quoting issue"
is <<<\>'n'>>.join('|'), '<>|n', 'texas quotes edge case';
done;
View
1 S02-literals/sub-calls.t
@@ -33,6 +33,7 @@ plan 20;
ok eval(q/foo 1, 2; /), 'call with two args, no parens';
ok eval(q/foo(1, 2);/), 'call with two args, has parens';
+ #?pugs todo
dies_ok { eval(q/foo:bar; /) }, 'call with adverb after no space';
ok eval(q/foo :bar; /), 'call with adverb after space';
View
1 S02-types/array.t
@@ -338,6 +338,7 @@ my @array2 = ("test", 1, Mu);
}
#?niecza skip "throws_like"
+#?pugs skip 'Test Util parsefail'
#?DOES 8
{
use lib "t/spec/packages";
View
2 S02-types/nested_pairs.t
@@ -24,6 +24,7 @@ is($list.value.value.value, 4, 'the list.value.value.value is 4');
is($list, 1 => 2 => 3 => 4, 'pair operator nests right-associatively');
+#?pugs todo
is($list.perl, '1 => 2 => 3 => 4', 'right-associative nested pairs .perl correctly');
my $r-list = (((1 => 2) => 3) => 4);
@@ -34,6 +35,7 @@ is($r-list.value, 4, 'the value is a number');
is($r-list.key.value, 3, 'the value of the key is a number');
#?niecza todo "key-nested pairs do not .perl correctly"
+#?pugs todo
is($r-list.perl, '((1 => 2) => 3) => 4', 'key-nested pairs .perl correctly');
# vim: ft=perl6
View
1 S02-types/subset.t
@@ -190,6 +190,7 @@ lives_ok { my Bug::RT80930 $rt80930 }, 'subset with "::" in the name';
# RT #65308
#?niecza skip 'Methods must be used in some kind of package'
+#?pugs todo
{
subset FooStr of Str where /^foo/;
my multi method uc(FooStr $self:) { return "OH HAI" }; #OK not used
View
1 S04-declarations/my.t
@@ -304,6 +304,7 @@ eval_lives_ok 'multi f(@a) { }; multi f(*@a) { }; f(my @a = (1, 2, 3))',
# RT #114202
# # check that anonymous variables don't overshare.
+#?pugs skip 'parsefail'
{
my @ = 1, 2, 3;
my % = a => 1, b => 2, c => 3;
View
1 S04-statements/repeat.t
@@ -128,6 +128,7 @@ plan 21;
# RT #114432
#?niecza skip "throws_like"
+#?pugs skip 'Test Util parsefail'
#?DOES 3
{
use lib "t/spec/packages";
View
1 S04-statements/try.t
@@ -16,6 +16,7 @@ plan 26;
# try should return Nil if an exception was caught
#?niecza skip "=== and Nil NYI"
+#?pugs skip 'Nil'
{
ok (try { die 'foo' }) === Nil, 'try returns Nil when exception was caught';
ok (try { die 'foo'; CATCH { default { } } }) === Nil, '... even when there was a CATCH block';
View
1 S05-mass/rx.t
@@ -3,6 +3,7 @@ use Test;
plan 733;
### for now
+#?pugs emit #
sub matchcheck(*@) { 1 }
# L<S05/Backtracking control/"To force the preceding atom to do no
View
1 S05-modifier/perl5_9.t
@@ -19,6 +19,7 @@ my $bang = '!';
ok(("123\nabcabcabcabc\n" ~~ rx:P5/(?m)^.{9}abc.*\n/), 're_tests 1215 (1419)');
ok((not ("a" ~~ rx:P5/^(a)?(?(1)a|b)+$/)), 're_tests 1216 (1420)');
+#?pugs todo
is(("aaaaaa" ~~ rx:P5/^(a\1?){4}$/ && $0), "aa", 're_tests 1218/1 (1422)');
ok(("x1" ~~ rx:P5/^(0+)?(?:x(1))?/), 're_tests 1220 (1424)');
ok(("012cxx0190" ~~ rx:P5/^([0-9a-fA-F]+)(?:x([0-9a-fA-F]+)?)(?:x([0-9a-fA-F]+))?/), 're_tests 1222 (1426)');
View
1 S05-transliteration/trans.t
@@ -294,6 +294,7 @@ lives_ok { my @a = 1..2; @a>>.trans((1..2) => (14..15,1..2)); }, 'trans works wi
# RT #83766
#?niecza 2 skip "Nominal type check failed for scalar store; got Int, needed Str or subtype"
+#?pugs 2 skip 'trans'
is((1, 2)>>.trans((1..26) => (14..26,1..13)), <14 15>, '.trans with a pair of parcels using postfix hypermetaoperator works');
is ("!$_!" for (1, 2)>>.trans((1..26) => (14..26,1..13))), <!14! !15!>, "same with explicit for";
View
3 S06-multi/syntax.t
@@ -160,12 +160,15 @@ ok(~&foo ~~ /foo/, 'a multi stringifies sensibly');
dies_ok { $x(23) }, '... and does not contain the full multiness';
}
+#?pugs emit #
multi with_cap($a) { $a }
+#?pugs emit #
multi with_cap($a,$b,|cap) { return with_cap($a + $b, |cap) }
#?pugs skip 'with_cap not found'
is with_cap(1,2,3,4,5,6), 21, 'captures in multi sigs work';
#RT #114886 - order of declaration matters
+#?pugs skip 'where'
{
multi sub fizzbuzz(Int $ where * %% 15) { 'FizzBuzz' };
multi sub fizzbuzz(Int $ where * %% 5) { 'Buzz' };
View
2 S06-other/anon-hashes-vs-blocks.t
@@ -50,6 +50,7 @@ ok $bar ~~ Hash, '%foo in a block causes hash composing';
}
#?niecza skip "Thinks the block is a hash"
+#?pugs skip "Thinks the block is a hash"
{
my @foo = <a b>;
my %hash = map { (state $counter)++ => $_ }, @foo;
@@ -59,6 +60,7 @@ ok $bar ~~ Hash, '%foo in a block causes hash composing';
# RT #68298
#?niecza skip "Thinks the block is a hash"
+#?pugs skip "Thinks the block is a hash"
is (map { $_ => $_ * $_ }, 1..3).hash<2>, 4, 'block with $_ is not a hash';
done;
View
1 S06-signature/errors.t
@@ -48,6 +48,7 @@ eval_dies_ok 'my class A { submethod BUILD(:$!notthere = 10) }; A.new',
# RT #72082
#?niecza todo
+#?pugs todo
{
try { eval 'sub rt72082(@a, $b) {}; rt72082(5)' };
my $error = ~$!;
View
1 S06-traits/is-copy.t
@@ -108,6 +108,7 @@ plan 23;
}
# RT #74430
+#?pugs skip 'parsefail'
{
sub foo(@items is copy) { @items[0..^1] };
my @items = 'a'...'g';
View
1 S06-traits/is-readonly.t
@@ -63,6 +63,7 @@ plan 14;
}
is C.new.get-attr, 71356, 'can read from readonly private attributes';
#?rakudo todo 'readonly attributes'
+ #?pugs todo
dies_ok { my $c = C.new; $c.set-attr: 99; }, 'cannot assign to readonly private attribute'
}
View
2 S11-modules/require.t
@@ -7,6 +7,7 @@ plan 6;
@*INC.push: 't/spec/packages';
# Next line is for final test.
+#?pugs emit #
GLOBAL::<$x> = 'still here';
lives_ok { require Fancy::Utilities; },
@@ -29,6 +30,7 @@ lives_ok { my $name = 'A'; require $name }, 'can require with variable name';
is allgreet(), 'hi all', 'require with import list';
}
+#?pugs skip 'parsefail'
is GLOBAL::<$x>, 'still here', 'loading modules does not clobber GLOBAL';
# vim: ft=perl6
View
1 S12-attributes/instance.t
@@ -662,6 +662,7 @@ eval_dies_ok q[class A { has $!a }; my $a = A.new(a => 42);
'cannot sneak in access to private attribute through the backdoor';
# RT #74636
+#?pugs todo
{
my class HasArray {
has @.a;
View
1 S32-list/pick.t
@@ -158,6 +158,7 @@ is (<a b c d>.pick(*).sort).Str, 'a b c d', 'pick(*) returns all the items in th
}
#?rakudo skip '.pick on huge integer ranges'
+#?pugs skip 'slow'
{
my %seen;
%seen{$_} = 1 for (1 .. (10**1000) ).pick(50);
View
1 S32-list/reduce.t
@@ -63,6 +63,7 @@ eval_lives_ok( 'reduce -> $a, $b, $c? { $a + $b * ($c//1) }, 1, 2', 'Use proper
}
# RT #66352
+#?pugs skip 'where'
{
multi a (Str $a, Str $b) { [+$a, +$b] };
multi a (Array $a,$b where "+") { [+] @($a) }; #OK not used
View
1 S32-num/log.t
@@ -73,6 +73,7 @@ is_approx( (-1i).log10(), -0.5i*$pi / log(10), " (i).log10 = - i * pi/(2 log(10
isa_ok( log10(-1+0i), Complex, 'log10 of a complex returns a complex, not a list');
#?rakudo todo 'HugeInt.log'
+#?pugs todo
is_approx (10 ** 1000).log10, 1000, "Can take the log of very large Ints";
# vim: ft=perl6
View
1 S32-str/substr.t
@@ -257,6 +257,7 @@ eval_dies_ok 'substr(Any, 0)', 'substr needs Cool as argument';
# RT 115086
#?niecza todo
+#?pugs todo
{
is "abcd".substr(2, Inf), 'cd', 'substr to Inf'
}

0 comments on commit 31d14e7

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