Permalink
Browse files

t/run/options: test --help-debug

  • Loading branch information...
1 parent 3d19b3b commit e98bd83abe701695829bc3900fa5cef74c0db04e @Benabik Benabik committed Jan 26, 2012
Showing with 9 additions and 2 deletions.
  1. +9 −2 t/run/options.t
View
@@ -19,7 +19,7 @@ use strict;
use warnings;
use lib qw( lib . ../lib ../../lib );
-use Test::More tests => 50;
+use Test::More tests => 53;
use Parrot::Config;
use File::Temp 0.13 qw/tempfile/;
use File::Spec;
@@ -33,6 +33,14 @@ for my $help ('-h', '--help') {
ok( index( $help_message, '-t --trace [flags]' ) > 0, '$help for --trace' );
}
+# looking at the debug help message
+{
+ my $help_message = `"$PARROT" --help-debug`;
+ ok( index( $help_message, '--imcc-debug' ) >= 0, '--help-debug for --imcc-debug' );
+ ok( index( $help_message, '--parrot-debug' ) >= 0, '--help-debug for --parrot-debug' );
+ ok( index( $help_message, '--trace' ) >= 0, '--help-debug for --trace' );
+}
+
# setup PIR files for tests below
my $first_pir_file = create_pir_file('first');
my $second_pir_file = create_pir_file('second');
@@ -176,7 +184,6 @@ sub needs_an_argument {
# -I --include PATH
# -L --library PATH
# -X --dynext PATH
-# --help-debug
# -w --warnings
# -G --no-gc
# -h --gc ms2|gms|ms|inf

0 comments on commit e98bd83

Please sign in to comment.