t/sok.t

#!perl

use strict;
use warnings FATAL=>'all';

use Test ();
use Config ();
unless ($Config::Config{useperlio}) {
    print "1..0 # need perlio\n";
    exit 0;
}

Test::plan tests=>8;

my $output;
{
    package X0;
    use Apache::Test;

    local ($Test::planned, $Test::ntest, %Test::todo);
    local *STDOUT;
    open STDOUT, '>', \$output;

    local $ENV{HTTPD_TEST_SUBTESTS}="";

    plan tests=>3;

    sok {1};
    sok {1};
    sok {1};
}
Test::ok $output=~/^ok 1$/m &&
         $output=~/^ok 2$/m &&
         $output=~/^ok 3$/m;

{
    package Y0;
    use Apache::Test qw/-withtestmore/;

    local *STDOUT;
    open STDOUT, '>', \$output;

    local $ENV{HTTPD_TEST_SUBTESTS}="";

    plan tests=>3;

    sok {1};
    sok {1};
    sok {1};
}
Test::ok $output=~/^ok 1$/m &&
         $output=~/^ok 2$/m &&
         $output=~/^ok 3$/m;

{
    package X0;

    local ($Test::planned, $Test::ntest, %Test::todo);
    local *STDOUT;
    open STDOUT, '>', \$output;

    local $ENV{HTTPD_TEST_SUBTESTS}="1 3";

    plan tests=>3;

    sok {1};
    sok {1};
    sok {1};
}
Test::ok $output=~/^ok 1$/m &&
         $output=~/^ok 2 # skip skipping this subtest$/mi &&
         $output=~/^ok 3$/m;

{
    package Y0;

    local *STDOUT;
    open STDOUT, '>', \$output;

    local $ENV{HTTPD_TEST_SUBTESTS}="1 3";

    plan tests=>3;

    sok {1};
    sok {1};
    sok {1};
}
Test::ok $output=~/^ok 1$/m &&
         $output=~/^ok 2 # skip skipping this subtest$/mi &&
         $output=~/^ok 3$/m;

{
    package X0;

    local ($Test::planned, $Test::ntest, %Test::todo);
    local *STDOUT;
    open STDOUT, '>', \$output;

    local $ENV{HTTPD_TEST_SUBTESTS}="";

    plan tests=>4;

    sok {1};
    sok {ok 1; 1} 2;
    sok {1};
}
Test::ok $output=~/^ok 1$/m &&
         $output=~/^ok 2$/m &&
         $output=~/^ok 3$/m &&
         $output=~/^ok 4$/m;

{
    package Y0;

    local *STDOUT;
    open STDOUT, '>', \$output;

    local $ENV{HTTPD_TEST_SUBTESTS}="";

    plan tests=>4;

    sok {1};
    sok {ok 1, "erwin"} 2;
    sok {1};
}
Test::ok $output=~/^ok 1$/m &&
         $output=~/^ok 2 - erwin$/m &&
         $output=~/^ok 3$/m &&
         $output=~/^ok 4$/m;

{
    package X0;

    local ($Test::planned, $Test::ntest, %Test::todo);
    local *STDOUT;
    open STDOUT, '>', \$output;

    local $ENV{HTTPD_TEST_SUBTESTS}="1 4";

    plan tests=>4;

    sok {1};
    sok {ok 1; 1} 2;
    sok {1};
}
Test::ok $output=~/^ok 1$/m &&
         $output=~/^ok 2 # skip skipping this subtest$/mi &&
         $output=~/^ok 3 # skip skipping this subtest$/mi &&
         $output=~/^ok 4$/m;

{
    package Y0;

    local *STDOUT;
    open STDOUT, '>', \$output;

    local $ENV{HTTPD_TEST_SUBTESTS}="1 4";

    plan tests=>4;

    sok {1};
    sok {ok 1} 2;
    sok {1};
}
Test::ok $output=~/^ok 1$/m &&
         $output=~/^ok 2 # skip skipping this subtest$/mi &&
         $output=~/^ok 3 # skip skipping this subtest$/mi &&
         $output=~/^ok 4$/m;