Fix bug with --long and --stress option handling.

rakudo · Jul 7, 2010 · 894e793 · 894e793
1 parent 7bbb35f
commit 894e793
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/t/harness b/t/harness
@@ -22,11 +22,14 @@ GetOptions(
     'jobs:1'            => \my $jobs,
     'icu:1'             => \my $do_icu,
     'long:1'            => \my $do_long,
-    'stress:0'          => \my $do_stress,
+    'stress:1'          => \my $do_stress,
     'archive=s'         => \my $archive,
     'parrot_revision=s' => \my $parrot_revision,
 );
 
+$do_long = 1 unless defined $do_long;
+$do_stress = 0 unless defined $do_stress;
+
 my @pass_through_options = grep m/^--?[^-]/, @ARGV;
 my @files = grep m/^[^-]/, @ARGV;