Changeset 2138 for perl/SWISH-Prog

Show
Ignore:
Timestamp:
04/25/08 15:19:54 (7 months ago)
Author:
karpet
Message:

fix skip test numbers if swish-e not installed

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • perl/SWISH-Prog/trunk/t/00_synopsis.t

    r2067 r2138  
    22 
    33use_ok('SWISH::Prog'); 
     4use_ok('SWISH::Prog::Indexer::Native'); 
    45 
    56SKIP: { 
    6     use_ok('SWISH::Prog::Indexer::Native'); 
    77 
    88    # is executable present? 
    99    my $indexer = SWISH::Prog::Indexer::Native->new; 
    1010    if ( !$indexer->swish_check ) { 
    11         skip "swish-e not installed", 4; 
     11        skip "swish-e not installed", 3; 
    1212    } 
    1313 

  • perl/SWISH-Prog/trunk/t/03_object.t

    r2067 r2138  
    11use Test::More tests => 15; 
     2 
     3use_ok('SWISH::Prog::Indexer::Native'); 
    24 
    35SKIP: { 
    …… 
    1618    } 
    1719 
    18     use_ok('SWISH::Prog::Indexer::Native'); 
    19  
    2020    # is executable present? 
    2121    my $indexer = SWISH::Prog::Indexer::Native->new; 
    2222    if ( !$indexer->swish_check ) { 
    23         skip "swish-e not installed", 15; 
     23        skip "swish-e not installed", 14; 
    2424    } 
    2525