ActiveDoc/test/test_Activate.pm

#
# Activate test suite
#

package ActiveDoc::test::test_Activate;
use ActiveDoc::Activate;
use Utilities::TestClass;
require 5.004;

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

sub init {
        my $self=shift;
        $self->{testfile}=$self->datadir()."/ActiveDocTest";
        $self->{verifyfile}=$self->datadir()."/ActiveDocTest-verify";
        $self->{configarea}=$self->temparea()."/ActiveDoc";
        $self->{testcvs}="cvs://cmscvs.cern.ch/cvs_server/repositories/SCRAM?auth=pserver&module=SCRAM/src/ActiveDoc/test/testdata/SimpleDocTest&passkey=AA_:yZZ3e&user=anonymous&module=test";
        $self->{db}=ObjectUtilities::ObjectStore->new(
                                                $self->{configarea}."/db");
        $self->{cache}=URL::URLcache->new($self->{configarea}."/cache");
}

sub test {
        my $self=shift;
        $self->{expectedstring}="";

        $self->newtest("Initiation test");
        $self->newobject($self->{configarea});
        $self->testinterface("verbosity",1);

        $self->newtest("url test");
        ($file,@rest)=$self->testinterface("get","file:".$self->{testfile});
        $self->verify($self->{verifyfile},$file);

        $self->newtest("url fail test");
        $self->expect(undef,"Failed to get cvs:&module=rubbish");
        $file=$self->testinterface("get","cvs:&module=rubbish");
        $self->clearexpect();

        $self->newtest("cvs url test");
        ($file,@rest)=$self->testinterface("get",$self->{testcvs});


        $self->newtest("activatedoc test");
        $self->testinterface("activatedoc","file:".$self->{testfile});
}
Revision:	1.5
Committed:	Tue Nov 14 15:19:42 2000 UTC (24 years, 6 months ago) by williamc
Content type:	text/plain
Branch:	MAIN
CVS Tags:	v102p1, V1_0_1, V1_0_0, V1_pre0, SCRAM_V1, SCRAMV1_IMPORT, V0_19_7, V0_19_6, V0_19_6p1, V0_19_5, SFATEST, V0_19_4, V0_19_4_pre3, V0_19_4_pre2, V0_19_4_pre1, V0_19_3, V0_19_2, V0_19_1, V0_19_0, V0_18_5, V0_18_4, V0_18_2, V0_18_1
Branch point for:	V1_pre1, SCRAM_V1_BRANCH, V0_19_4_B
Changes since 1.4:	+5 -0 lines
Log Message:	quick ci
#	User	Rev	Content
1	williamc	1.2	#
2			# Activate test suite
3			#
4
5			package ActiveDoc::test::test_Activate;
6			use ActiveDoc::Activate;
7			use Utilities::TestClass;
8			require 5.004;
9
10			@ISA = ("Utilities::TestClass"); #methods both from the test class
11
12			sub init {
13			my $self=shift;
14			$self->{testfile}=$self->datadir()."/ActiveDocTest";
15			$self->{verifyfile}=$self->datadir()."/ActiveDocTest-verify";
16			$self->{configarea}=$self->temparea()."/ActiveDoc";
17	williamc	1.5	$self->{testcvs}="cvs://cmscvs.cern.ch/cvs_server/repositories/SCRAM?auth=pserver&module=SCRAM/src/ActiveDoc/test/testdata/SimpleDocTest&passkey=AA_:yZZ3e&user=anonymous&module=test";
18	williamc	1.2	$self->{db}=ObjectUtilities::ObjectStore->new(
19			$self->{configarea}."/db");
20			$self->{cache}=URL::URLcache->new($self->{configarea}."/cache");
21			}
22
23			sub test {
24			my $self=shift;
25			$self->{expectedstring}="";
26
27			$self->newtest("Initiation test");
28			$self->newobject($self->{configarea});
29			$self->testinterface("verbosity",1);
30
31			$self->newtest("url test");
32	williamc	1.3	($file,@rest)=$self->testinterface("get","file:".$self->{testfile});
33	williamc	1.2	$self->verify($self->{verifyfile},$file);
34
35			$self->newtest("url fail test");
36	williamc	1.4	$self->expect(undef,"Failed to get cvs:&module=rubbish");
37	williamc	1.2	$file=$self->testinterface("get","cvs:&module=rubbish");
38			$self->clearexpect();
39	williamc	1.5
40			$self->newtest("cvs url test");
41			($file,@rest)=$self->testinterface("get",$self->{testcvs});
42
43	williamc	1.2
44			$self->newtest("activatedoc test");
45			$self->testinterface("activatedoc","file:".$self->{testfile});
46			}