package ActiveTestTest;

use strict;

use Test::Unit::TestCase ();
use base 'Test::Unit::TestCase';
use Test::Unit::Result;
use Test::Unit::TestSuite ();
use Success;

sub testActiveTest {
    my $self = shift;
    my $test = $self->create_active_test_suite;
    my $result = Test::Unit::Result->new;
    $test->run($result);
    $self->assert_equals(100, $result->run_count);
    $self->assert_equals(0, $result->failure_count);
    $self->assert_equals(0, $result->error_count);
}

#  sub test_active_repeated_test {
#      my $self = shift;
#      my $test = Test::Unit::RepeatedTest($self->create_active_test_suite, 5);
#      my $result = Result->new;
#      $test->run($result);
#      $self->assert_equals(500, $result->run_count);
#      $self->assert_equals(0, $result->failure_count);
#      $self->assert_equals(0, $result->error_count);
#  }

#  sub test_active_repeated_test0 {
#      my $self = shift;
#      my $test = Test::Unit::RepeatedTest($self->create_active_test_suite, 0);
#      my $result = Result->new;
#      $test->run($result);
#      $self->assert_equals(0, $result->run_count);
#      $self->assert_equals(0, $result->failure_count);
#      $self->assert_equals(0, $result->error_count);
#  }

#  sub test_active_repeated_test1 {
#      my $self = shift;
#      my $test = Test::Unit::RepeatedTest($self->create_active_test_suite, 1);
#      my $result = Result->new;
#      $test->run($result);
#      $self->assert_equals(100, $result->run_count);
#      $self->assert_equals(0, $result->failure_count);
#      $self->assert_equals(0, $result->error_count);
#  }

sub create_active_test_suite () {
    my $self = shift;
    my $suite = Test::Unit::TestSuite->new;
    for (1 .. 100) {
        $suite->add_test(Success->new("test_success"));
    }
    return $suite;
}

1;