Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
more rakudo.jvm unfudges
  • Loading branch information
moritz committed Sep 25, 2013
1 parent 590fb96 commit f3ec9a8
Showing 1 changed file with 0 additions and 4 deletions.
4 changes: 0 additions & 4 deletions S06-other/main-usage.t
Expand Up @@ -23,15 +23,13 @@ is_run 'sub MAIN() { print "MAIN() called" }; sub USAGE() { print "USAGE() calle
},
'a user-defined USAGE sub is not called if MAIN dispatch succeeds';

#?rakudo.jvm todo "nigh"
is_run 'sub MAIN( $a = nosuchsub()) { }; sub USAGE { say 42 }',
{
out => '',
err => /nosuchsub/,
},
'if the MAIN dispatch results in an error, that error should be printed, not USAGE';

#?rakudo.jvm todo "nigh"
is_run 'sub MAIN($foo) { }',
{
err => /<< foo >>/,
Expand Down Expand Up @@ -84,7 +82,6 @@ is_run 'sub MAIN(:xen(:$xin)) { print $xin }',
'named alias (outer name)';

# RT #71366
#?rakudo.jvm todo "nigh"
is_run 'sub MAIN($a, :$var) { say "a: $a, optional: $var"; }',
{
err => /\-\-var/,
Expand Down Expand Up @@ -163,7 +160,6 @@ is_run 'multi MAIN($) { print q[Any] }; multi MAIN(Str) { print q[Str] }',
},
'best multi matches (not just first one)';

#?rakudo.jvm todo "nigh"
is_run 'sub MAIN() { print 42 }', :args['--foo'],
{
out => '',
Expand Down

0 comments on commit f3ec9a8

Please sign in to comment.