Test::Harness and skiping tests functionality

Message-ID: <40949173.20020528081753@tesla.rcub.bg.ac.yu>

p4raw-id: //depot/perl@16829

2 files changed, 12 insertions, 1 deletions

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 0efaa53b4e..be04797402 100644
--- a/lib/Test/Harness.pm
+++ b/lib/Test/Harness.pm
@@ -159,6 +159,13 @@ emitted if the test script is skipped completely:
 
   1..0 # Skipped: no leverage found
 
+If you don't have any comment on skipping, just print C<1..0> with 
+nothing after it. Test::Harness will say something like this:
+
+op/64bitint..............skipped
+       skipped: no reason given
+       
+
 =item B<Todo tests>
 
 If the standard output line contains the substring C< # TODO> after
diff --git a/lib/Test/Harness/Straps.pm b/lib/Test/Harness/Straps.pm
index 173b26bc61..8ce5722eda 100644
--- a/lib/Test/Harness/Straps.pm
+++ b/lib/Test/Harness/Straps.pm
@@ -444,7 +444,11 @@ sub _is_header {
         $self->{max}  = $max;
         assert( $self->{max} >= 0,  'Max # of tests looks right' );
 
-        if( defined $extra ) {
+               if( not $max and not $extra) {
+                       #We're skipping, thats for sure
+                       $self->{skip_all} = 'no reason given';
+               }
+               elsif( defined $extra ) {
             my($todo, $skip, $reason) = $extra =~ /$Extra_Header_Re/xo;
 
             $self->{todo} = { map { $_ => 1 } split /\s+/, $todo } if $todo;