#! perl -w
use strict;

# $Id: skip_filter.t 1246 2009-10-21 16:54:39Z abeltje $

# Add the test-lines in the '    EOT' here-document
# First char should be 'P' for PASS (we don't want it)
# and 'F' for FAIL (we _do_ want it)
# Second char should be a single space (for readability)
# Rest of the line will be tested!

my @tests;
BEGIN {
    @tests = split /\n/, <<'    EOT';
P op/strict.............ok
F op/strict.............FAILED
F       FAILED 4/10
P t/op/64bitint........................skipping test on this platform
F run/switches...........................FAILED test 7
F        Failed 1/20 tests, 95.00% okay
F Failed 1/736 test scripts, 99.86% okay. 1/70360 subtests failed, 100.00% okay.
F Failed Test    Stat Wstat Total Fail  Failed  List of Failed
F -------------------------------------------------------------------------------
F run/switches.t               20    1   5.00%  7
F 54 tests and 609 subtests skipped.
P C:\usr\local\src\bleadperl\perl\miniperl.exe "-I..\..\lib" "-I..\..\lib" -MExtUtils::Command -e cp bin/piconv blib\script\piconv
P C:\usr\local\src\bleadperl\perl\miniperl.exe "-I..\..\lib" "-I..\..\lib" -MExtUtils::Command -e cp bin/enc2xs blib\script\enc2xs
P Creating library file: libExtTest.dll.a
P not ok 43 # SKIP see perldelta583
P base/cond...................................ok    0.060s
P base/cond...................................ok       60 ms
P cc: warning 983: The -lc library specified on the command line is also added automatically by the compiler driver.  
    EOT
}

use Test::More tests => 1 + @tests;

use_ok 'Test::Smoke::Util', 'skip_filter';

for my $test ( @tests ) {
    my( $pf, $line ) = $test =~ /^(.) (.*)$/;

    if ( $pf =~ /[pP]/ ) {
        ok( skip_filter( $line ), "P: $line" );
    } else {
        ok( !skip_filter( $line ), "F: $line" );
    }
}