Browse files

pugs unfudge for eval_lives_ok

moritz++
  • Loading branch information...
1 parent e4b089d commit 1e338051d6e68e864a5fb4948e2cc273c78ded93 @coke coke committed Feb 26, 2012
View
1 S02-lexical-conventions/minimal-whitespace.t
@@ -26,7 +26,6 @@ my $o = Thing.new;
eval_dies_ok('$o .whatever(5)', 'whitespace is not allowed before . before method');
eval_dies_ok('$o. whatever(5)', 'whitespace is not allowed after . before method');
-#?pugs skip "missing eval_lives_ok"
eval_lives_ok 'my @rt80330; [+] @rt80330', 'a [+] with whitespace works';
eval_dies_ok 'my @rt80330; [+]@rt80330', 'a [+] without whitespace dies';
View
6 S02-lexical-conventions/unicode.t
@@ -109,18 +109,20 @@ is((do { my $दूसरा = 2; sub टोटल ($x) { $x + 2 }; टोटल
# L<S02/Unicode Semantics/Perl can count Unicode line and paragraph separators>
#?rakudo: todo 'PS does not work to separate lines'
-#?pugs skip "eval_lives_ok"
+#?pugs todo
eval_lives_ok "\{ 1 \} \x2029 \{ 1 \}", "Unicode 2029 can terminate lines";
# L<S02/Bracketing Characters/If a character is already used>
-#?pugs 6 skip "eval_lives_ok"
eval_lives_ok "q\x298d test \x298e", "Unicode open-298d maps to close-298e";
eval_lives_ok "q\x301d test \x301e", "Unicode open-301d maps to close-301e";
eval_dies_ok "q\x301d test \x301f", "Unicode open-301d does not map to close-301f";
#?rakudo: 3 todo 'Alternate open/close not working yet'
+#?pugs 6 skip "eval_lives_ok"
eval_lives_ok "q\x2018 test \x2019", "Unicode open-2018 maps to to close-2019";
+#?pugs 6 skip "eval_lives_ok"
eval_lives_ok "q\x201a test \x2019", "Unicode open-201a maps to to close-2019";
+#?pugs todo
eval_lives_ok "q\x2018 \x201a test \x2019", "Alternative open-brakets treat their other alternates as non-special";
# vim: ft=perl6 fileencoding=utf-8
View
4 S02-types/hash.t
@@ -284,11 +284,11 @@ lives_ok { Hash.new("a" => "b") }, 'Hash.new($pair) lives';
}
# RT #75694
-#?pugs skip 'eval_lives_ok'
+#?pugs todo
eval_lives_ok('my $rt75694 = { has-b => 42 }', "can have a bareword key starting with 'has-' in a hash");
# RT #99854
-#?pugs skip 'eval_lives_ok'
+#?pugs todo
{
eval_lives_ok 'my $rt = { grammar => 5 }',
"can have a bareword 'grammar' as a hash key";
View
1 S04-statements/loop.t
@@ -94,7 +94,6 @@ plan 14;
}
# RT #71466
-#?pugs skip 'eval_lives_ok'
eval_lives_ok('class A { has $!to; method x { loop { (:$!to); } } };', 'pair colon syntax in a loop refers to an attribute works');
# RT #63760
View
1 S09-subscript/slice.t
@@ -61,7 +61,6 @@ plan 23;
#?rakudo skip 'RT 61844'
#?niecza skip 'hangs'
{
- #?pugs skip 'eval_lives_ok'
eval_lives_ok '(0,1)[ * .. * ]', 'Two Whatever stars slice lives';
is eval('(0,1)[ * .. * ]'), [0, 1], 'Two Whatever stars slice';
}
View
2 S12-class/basic.t
@@ -100,7 +100,6 @@ class One::Two { }
ok(One::Two.new, 'created One::Two after One::Two::Three');
#?pugs todo
eval_dies_ok 'class One::Two { }', 'cannot redeclare an existing class';
-#?pugs skip 'eval_lives_ok'
eval_lives_ok q[BEGIN {class Level1::Level2::Level3 {};}; class Level1::Level2 {};], 'RT 62898';
#?pugs todo
@@ -130,7 +129,6 @@ eval_dies_ok 'class WritableSelf { method f { self = 5 } }; WritableSelf.new.f',
'self is not writable';
# RT 65022
-#?pugs skip 'eval_lives_ok'
eval_lives_ok 'class Test1 { class A {};}; class Test2 {class A {};};',
'RT65022 - Nested classes in different classes can have the same name';
View
1 S12-class/inheritance.t
@@ -124,7 +124,6 @@ is(Y.new.k(), 'X', 'inherited method dispatch works inside another class with sa
}
# Make sure inheritance from Mu works (got broken in Rakudo once).
-#?pugs skip 'eval_lives_ok'
eval_lives_ok 'class NotAny is Mu { }; NotAny.new', 'inheritance from Mu works';
{
class DirectMu is Mu { };

0 comments on commit 1e33805

Please sign in to comment.