Permalink
Browse files

[t/spec] More revisions of past tests

git-svn-id: http://svn.pugscode.org/pugs@27994 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent d510aba commit fcf10243f41433a1f7df9e48d1e0a9dc3dde92b5 kyle committed Aug 14, 2009
Showing with 12 additions and 12 deletions.
  1. +4 −4 S05-grammar/ws.t
  2. +4 −5 S05-match/perl.t
  3. +3 −1 S12-enums/thorough.t
  4. +1 −2 S12-subset/subtypes.t
View
@@ -24,11 +24,11 @@ is $<T1::r3><ws>, 'x', 'explicit <ws> did capture';
# RT #64094
{
- lives_ok { '' ~~ / <ws> / }, 'match <ws> against empty string';
- lives_ok { '' ~~ / <ws>? / }, 'match <ws>? against empty string';
+ ok '' ~~ / <ws> /, 'match <ws> against empty string';
+ ok '' ~~ / <ws>? /, 'match <ws>? against empty string';
#?rakudo 2 skip 'infinite loop: RT #64094 (noauto)'
- lives_ok { '' ~~ / <ws>+ / }, 'match <ws>+ against empty string';
- lives_ok { '' ~~ / <ws>* / }, 'match <ws>* against empty string';
+ ok '' ~~ / <ws>+ /, 'match <ws>+ against empty string';
+ ok '' ~~ / <ws>* /, 'match <ws>* against empty string';
}
# vim: ft=perl6
View
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 13;
+plan 12;
# tests for Match.perl
@@ -33,8 +33,6 @@ lives_ok { $/.perl }, 'lives on quantified named captures';
isa_ok $/, Match;
is $/.ast, $code_str, 'Match.ast is the code matched';
is $/.Str, $code_str, 'Match.Str is the code matched';
- #?rakudo todo 'RT #64874'
- lives_ok { $/.perl }, 'can Match.perl';
#?rakudo skip 'RT #64874'
is_deeply eval($/.perl), $/, 'eval of Match.perl recreates Match';
}
@@ -44,9 +42,10 @@ lives_ok { $/.perl }, 'lives on quantified named captures';
my $m = 'foo' ~~ /foo/;
eval '$m<greeting> = "OH HAI"';
- #?rakudo 2 todo 'RT #65610'
+ #?rakudo todo 'RT #65610'
ok $! ~~ Exception, 'die before modifying a Match';
- lives_ok { $m.perl }, 'can .perl a Match after attempt to modify';
+ #?rakudo skip 'RT #65610'
+ is_deeply eval($m.perl), $m, 'Match.perl works after attempt to modify';
}
# vim: ft=perl6
View
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 70;
+plan 71;
=begin description
@@ -99,6 +99,8 @@ ok Bool::True.perl ~~/^ 'Bool::True'/, 'Bool::True.perl';
my Negation $foo;
#?rakudo todo 'Null PMC Access in invoke()'
lives_ok { $foo = Negation::isnt }, 'simple assignment from enum';
+ #?rakudo skip 'Null PMC Access in invoke()'
+ is $foo, Negation::isnt, 'assignment from enum works';
}
# RT #66886
View
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 50;
+plan 49;
=begin description
@@ -156,7 +156,6 @@ ok eval('is_num_odd(3)'), "Int accepted by Num::Odd";
ok $x ~~ SR1, 'subtypes based on roles work';
}
-eval_lives_ok 'subset A of Int;', 'subset declaration without where clause';
subset NW1 of Int;
ok NW1 ~~ Int, 'subset declaration without where clause does type it refines';
ok 0 ~~ NW1, 'subset declaration without where clause accepts right value';

0 comments on commit fcf1024

Please sign in to comment.