#
# $HopeName: HQNautobuild!tests:HopeClientTests.pm(trunk.1) $
# $Id: tests:HopeClientTests.pm,v 1.1 2005/11/04 15:13:03 rday Exp $
#
package Tests::example;

use strict;


use Test::Unit::TestSuite;

use base "Test::Unit::TestCase";


sub new 
{
  my $self = shift()->SUPER::new(@_);
  return $self;

}

sub set_up 
{
  my $self = shift;

};

sub tear_down
{
  my $self = shift;

};

sub test_Test_1
{
  my $self = shift;
  $self->assert(1==1);
}
sub test_Test_2
{
  my $self = shift;
  $self->assert(2==2);
}
sub suite 
{
    my $class = shift;
    my ($suite, $ALL);
    $ALL=1;
    if ($ALL) 
    {
      $suite = Test::Unit::TestSuite->new(__PACKAGE__);
    }
    else 
    {
      $suite = Test::Unit::TestSuite->empty_new();

      $suite->add_test(Tests::example->new('test_Test_1'));    
    }
    return $suite;
}