package testcases::base;
use strict;
use base qw(Test::Unit::TestCase);
sub set_up {
my $self=shift;
return $self;
}
sub tear_down {
my $self=shift;
}
1;
package testcases::base;
use strict;
use base qw(Test::Unit::TestCase);
sub set_up {
my $self=shift;
return $self;
}
sub tear_down {
my $self=shift;
}
1;