Changeset 21691 for perl5

Show
Ignore:
Timestamp:
08/01/08 15:01:57 (5 months ago)
Author:
fglock
Message:

[v6.pm] more tests # 6900

Location:
perl5/Pugs-Compiler-Perl6
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • perl5/Pugs-Compiler-Perl6/MANIFEST

    r21674 r21691  
    117117t/examples/golf.t 
    118118t/oo/roles/instantiation.t 
     119t/operators/auto.t 
    119120t/operators/brainos.t 
    120121t/operators/relational.t 
     
    149150t/regex/from_perl6_rules/properties-08.t 
    150151t/regex/from_perl6_rules/properties-09.t 
     152t/regex/from_perl6_rules/stdrules.t 
    151153# t/regex/nonstrings.t 
    152154t/regex/p6regex/p6regex.t 
     
    186188t/statements/until.t 
    187189t/statements/values_in_bool_context.t 
     190 
    188191t/syntax/lf_in_list.t 
    189192t/syntax/parsing/braces_in_rules.t 
     
    193196t/syntax/parsing/pod_in_multi_line_exprs.t 
    194197t/syntax/parsing/postfix_if_and_is.t 
     198t/syntax/parsing/sub_calls.t 
     199t/syntax/parsing/subscript.t 
     200 
    195201t/syntax/single_quoted_strings.t 
     202 
     203t/unspecced/async.t 
     204t/unspecced/eval_yaml.t 
     205t/unspecced/tailcall.t 
     206 
    196207t/var/lvalue_deep_brackets.t 
    197208t/var/passing_the_pair_class_to_a_sub.t 
     209 
    198210t/xx-uncategorized/empty_kwid.t 
    199211t/xx-uncategorized/lexical-array-in-inner-block.t 
  • perl5/Pugs-Compiler-Perl6/Makefile.PL

    r21674 r21691  
    5151    # fix problems caused by splitting; update the "todo" lists 
    5252     
     53     
     54    if ( $out eq 't/operators/auto.t' ) { 
     55        $text =~ s/^(\s*plan \d+;)/$1\nforce_todo(39..43);/m; 
     56    } 
    5357    if ( $out eq 't/regex/from_perl6_rules/named_chars-00.t' ) { 
    5458        my $cpan_tester_errors = "148, 149, 158, 160"; 
     
    130134         
    131135    }     
     136    if ( $out eq 't/regex/from_perl6_rules/stdrules.t' ) { 
     137        $text =~ s/^(\s*plan \d+;)/$1\nforce_todo(4,7,10);/m; 
     138    } 
    132139    if ( $out eq 't/regex/p6regex/p6regex.t' ) { 
    133140        my $cpan_tester_errors = ', 31..32, 36, 114..115, 117, 121..122, 124, 129..130,