#! perl -w
use strict;
use Data::Dumper;

# $Id: skip_config.t 823 2005-02-11 09:59:20Z abeltje $

use Test::More;
my @tests;
BEGIN {
    @tests = (
        { os => $^O, skip => 1, args => '-Uuseperlio -Dusethreads' },
        { os => $^O, skip => 1, args => '-Uuseperlio -Duseithreads' },
        { os => $^O, skip => $^O eq 'MSWin32',
          args => '-Dusethreads -Dusemymalloc' },
        { os => $^O, skip => $^O eq 'MSWin32',
          args => '-Duseithreads -Dusemymalloc' },
        { os => 'MSWin32', skip => 1,
          args => '-Dusethreads -Dusemymalloc' },
        { os => 'MSWin32', skip => 1,
          args => '-Duseithreads -Dusemymalloc' },
        { os => 'MSWin32', skip => 0,
          args => '-Dusethreads -Dusemymalloc -Uuseimpsys' },
        { os => 'MSWin32', skip => 0,
          args => '-Duseithreads -Dusemymalloc -Uuseimpsys' },
    );
    plan tests => 2 + @tests;

    use_ok 'Test::Smoke::Util', 'skip_config';
    require_ok 'Test::Smoke::BuildCFG';
}

for my $test_set ( @tests ) {
    my $args = $test_set->{args};
    local $^O = $test_set->{os};
    my $cfg = Test::Smoke::BuildCFG::new_configuration( $args );
    if ( $test_set->{skip} ) {
        ok skip_config( $cfg ), "skip '$args' [$^O]";
    } else {
        ok !skip_config( $cfg ), "no skip '$args'[$^O]";
    }
}