BuildSystem/test/test_Requirements.pm

#
# Requirements.pm test suite
#

package BuildSystem::test::test_Requirements;
require 5.001;
use BuildSystem::Requirements;
use URL::URLcache;

@ISA=qw(Utilities::TestClass); #methods both from the test class

sub init {
        my $self=shift;
        $self->{testfile}=$self->datadir()."/RequirementsDocTest";

        # make a dummy toolbox
        $self->{toolbox}=$self;
        $self->{cachedir}=$self->temparea()."/RequirementsTest/cache";
        $self->{dbdir}=$self->temparea()."/RequirementsTest/db";
        $self->{cache}=URL::URLcache->new($self->{cachedir});
        $self->{db}=ObjectUtilities::ObjectStore->new($self->{dbdir});
}

sub test {
        my $self=shift;
        $self->newtest("Initiation test");
        $self->newobject("file:".$self->{testfile}, $self->{cache}, $self->{db});
        
        $self->newtest("Download test");
        $self->testinterface("download");

        $self->newtest("Setup Testing");
        $self->testinterface("setup",$self);
        $self->cmparray($self->{toolsetups},"test");

        $self->newtest("URL Test");
        $self->expect("cvs://cmscvs.cern.ch/cvs_server/repositories/SCRAM?auth=pserver&module=test/testtool&passkey=AA_:yZZ3e&user=anonymous&version=A");
        $self->testinterface("url","test");
        $self->clearexpect();
}

# --- stubs 
sub toolsetup {
        my $self=shift;
        push @{$self->{toolsetups}}, shift;
}
Revision:	1.1.2.1.2.2
Committed:	Mon Aug 21 18:06:06 2000 UTC (24 years, 9 months ago) by williamc
Content type:	text/plain
Branch:	HPWbranch
Changes since 1.1.2.1.2.1:	+3 -1 lines
Log Message:	adaptions for ActiveDoc
#	User	Rev	Content
1	williamc	1.1.2.1	#
2			# Requirements.pm test suite
3			#
4
5			package BuildSystem::test::test_Requirements;
6			require 5.001;
7			use BuildSystem::Requirements;
8	williamc	1.1.2.1.2.1	use URL::URLcache;
9	williamc	1.1.2.1
10			@ISA=qw(Utilities::TestClass); #methods both from the test class
11
12			sub init {
13			my $self=shift;
14			$self->{testfile}=$self->datadir()."/RequirementsDocTest";
15
16			# make a dummy toolbox
17			$self->{toolbox}=$self;
18	williamc	1.1.2.1.2.1	$self->{cachedir}=$self->temparea()."/RequirementsTest/cache";
19	williamc	1.1.2.1.2.2	$self->{dbdir}=$self->temparea()."/RequirementsTest/db";
20	williamc	1.1.2.1.2.1	$self->{cache}=URL::URLcache->new($self->{cachedir});
21	williamc	1.1.2.1.2.2	$self->{db}=ObjectUtilities::ObjectStore->new($self->{dbdir});
22	williamc	1.1.2.1	}
23
24			sub test {
25			my $self=shift;
26			$self->newtest("Initiation test");
27	williamc	1.1.2.1.2.2	$self->newobject("file:".$self->{testfile}, $self->{cache}, $self->{db});
28	williamc	1.1.2.1
29	williamc	1.1.2.1.2.1	$self->newtest("Download test");
30			$self->testinterface("download");
31
32	williamc	1.1.2.1	$self->newtest("Setup Testing");
33			$self->testinterface("setup",$self);
34	williamc	1.1.2.1.2.1	$self->cmparray($self->{toolsetups},"test");
35
36			$self->newtest("URL Test");
37			$self->expect("cvs://cmscvs.cern.ch/cvs_server/repositories/SCRAM?auth=pserver&module=test/testtool&passkey=AA_:yZZ3e&user=anonymous&version=A");
38			$self->testinterface("url","test");
39			$self->clearexpect();
40	williamc	1.1.2.1	}
41
42			# --- stubs
43			sub toolsetup {
44			my $self=shift;
45			push @{$self->{toolsetups}}, shift;
46			}