#! /usr/bin/perl -T

use strict;
use warnings;
use Test::Class;
use Test;
use Fcntl;
use IO::File;
use Test::Builder;

{
    package Base::Test;
    use base qw(Test::Class);
    use Test::More;

    sub startup :Test(startup => 1) {
        pass "startup run"
    }

    sub setup :Test(setup => 1) {
        pass "setup run"
    }
    
    sub teardown :Test(teardown => 1) {
        pass "teardown run"
    }
    
    sub shutdown :Test(shutdown => 1) {
        pass "shutdown run"
    }
}

{
    package Bar::Test;
    use base qw(Base::Test);
    use Test::More;

    sub the_test :Test  {
        pass "the_test has been run";
    }
}

# plan tests => 3;
# 
# my $io = IO::File->new_tmpfile or die "couldn't create tmp file ($!)\n";
# my $Test = Test::Builder->new;              
# $Test->output($io);
# $Test->failure_output($io);
# 
# $ENV{TEST_VERBOSE}=0;

$ENV{TEST_VERBOSE}=1;
Test::Class->runtests;
# 
# END {
#     seek $io, SEEK_SET, 0;
#     while (my $actual = <$io>) {
#         chomp($actual);
#         my $expected=<DATA>; chomp($expected);
#         ok($actual, $expected);
#     };
# 
#     ok($?, 0, "exit value okay");
#     $?=0;
# };
# 
# __DATA__
# 1..1
# ok 1 # skip because SKIP_CLASS returned a string