package TestSimple;
use base qw(Test::Unit::TestCase);

sub set_up {
    # provide fixture
}
sub tear_down {
    # clean up after test
}

sub test_foo {
    my $self = shift;
    my $obj = "foo";
    $self->assert_not_null($obj);
    $self->assert_equals('foo', $obj);
    $self->assert(qr/o+/, $obj);
}

1;