ActiveDoc/test/test_PreProcessedFile.pm

#
# PreProcessedFile test suite
#

package ActiveDoc::test::test_PreProcessedFile;
require 5.001;
use ActiveDoc::PreProcessedFile;
use ObjectUtilities::ObjectStore;

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

sub init {
        my $self=shift;
        $self->{testareadir}=$self->temparea()."/PreProcessFile";
        $self->{testfile}=$self->datadir()."/PreProcessorTest";
        $self->{checktestfile}=$self->datadir()."/PreProcessorTest-check";
        $self->{cache}=URL::URLcache->new($self->{testareadir});
        $self->{dbstore}=ObjectUtilities::ObjectStore->
                                        new($self->{testareadir}."/DB");
}

sub linetest {
        my $self=shift;
        
        # line tracing
        $self->newtest("line tracing test");
        $self->expect(2,"");
        my ($line,$obj)=$self->testinterface(qw(realline 2));
        
        my $cvsurl="cvs://cmscvs.cern.ch/cvs_server/repositories/SCRAM?auth=pserver&module=test/testinclude&passkey=AA_:yZZ3e&user=anonymous";
        my $cvsurl2="cvs://cmscvs.cern.ch/cvs_server/repositories/SCRAM?auth=pserver&module=test/testinclude2&passkey=AA_:yZZ3e&user=anonymous";
        my $cvsurl3="cvs://cmscvs.cern.ch/cvs_server/repositories/SCRAM?auth=pserver&module=test/testinclude3&passkey=AA_:yZZ3e&user=anonymous";
        $self->_testobj("file:".$self->{testfile},$obj);
        $self->clearexpect();
        $self->expect(3,"");
        ($line,$obj)=$self->testinterface(qw(realline 3));
        $self->_testobj("file:".$self->{testfile},$obj);
        $self->clearexpect();
        $self->expect(3,"");
        ($line,$obj)=$self->testinterface(qw(realline 6));
        $self->_testobj($cvsurl,$obj);
        $self->clearexpect();
        $self->expect(1,"");
        ($line,$obj)=$self->testinterface(qw(realline 8));
        $self->_testobj($cvsurl2,$obj);
        $self->clearexpect();
        $self->expect(3,"");
        ($line,$obj)=$self->testinterface(qw(realline 10));
        $self->clearexpect();
        $self->_testobj($cvsurl2,$obj);
        $self->expect(3,"");
        ($line,$obj)=$self->testinterface(qw(realline 16));
        $self->_testobj($cvsurl3,$obj);
        $self->clearexpect();
        $self->expect(7,"");
        ($line,$obj)=$self->testinterface(qw(realline 20));
        $self->_testobj($cvsurl,$obj);
        $self->clearexpect();
        $self->expect(3,"");
        ($line,$obj)=$self->testinterface(qw(realline 22));
        $self->_testobj("file:".$self->{testfile},$obj);
        $self->clearexpect();
        $self->expect(4,"");
        ($line,$obj)=$self->testinterface(qw(realline 23));
        $self->_testobj("file:".$self->{testfile},$obj);
        $self->clearexpect();
}

sub _testobj {
        my $self=shift;
        my $string=shift;
        my $obj=shift;

        if ( $obj->url() ne $string ) {
                $self->testfail("Expecting $string got ".$obj->url());
        }
        else {
                $self->testpass("Correct File : $string" );
        }
}
sub test {
        my $self=shift;

        $self->newtest("Initiation test");
        $self->newobject($self->{cache},$self->{dbstore});
        $self->testinterface("verbosity",1);
        $self->{object}->{switch}->verbosity(1);
        $self->{object}->{switch}->{switch}->verbosity(1);
        $self->testinterface("url","file:".$self->{testfile});

        ($expectedurl=$self->{testfile});
        $self->expect("file:".$expectedurl);
        $self->testinterface("url");
        $self->clearexpect();

        $self->newtest("File test");
        my $origfile=$self->testinterface("file");
        $self->verify($origfile, $self->{testfile});

        $self->newtest("Construction test");
        $self->testinterface("update");
        my $file=$self->testinterface("ProcessedFile");
        $self->verify($file,$self->{checktestfile});

        $self->newtest("Store test");
        my $storefile=$self->temparea()."/".$self->newfilename();
        $self->testinterface("store", $storefile);
        $self->testinterface("store", $storefile); # multiple calls to store
                                                  # must be possible

        $self->newtest("Restore test");
        $self->newobject($self->{cache},$self->{dbstore});
        $self->testinterface("restore", $storefile);
        $self->linetest();

        $self->expect($file);
        $self->testinterface("ProcessedFile");
        $self->clearexpect();

        $self->expect($origfile);
        $self->testinterface("file");
        $self->clearexpect();

        if ( $self->{object}->{lastsequence} ne 1 ) {
          $self->testfail("sequence number corrupted got ".
                                $self->{object}->{lastsequence});
        }
        else {
          $self->testpass('sequence number stored OK');
        }
        
        $self->newtest("Update test - out of date check");
        $self->testinterface("update");
        @array=$self->testinterface("updatedfiles");
        if ( $#array != -1 ) {
         $self->testfail("Files were updated @array when none should of been");
        }
         $self->testpass("No files updated therefore no build as expected");
        
        $file=$self->testinterface("ProcessedFile");
        $self->verify($file,$self->{checktestfile});

        $self->newtest("Update test - dependency changed");
        $self->testinterface("verbosity",1);
        $self->{object}->{switch}->verbosity(1);
        $self->{object}->{switch}->{switch}->verbosity(1);
        $changedurl="cvs://cmscvs.cern.ch/cvs_server/repositories/SCRAM?module=test/testinclude3&auth=pserver&passkey=AA_:yZZ3e&user=anonymous";
        $changedurl2="cvs://cmscvs.cern.ch/cvs_server/repositories/SCRAM?auth=pserver&module=test/testinclude&passkey=AA_:yZZ3e&user=anonymous";
        $self->{object}->{switch}->urldownload($changedurl);
        $self->testinterface("update");
        $self->expect($changedurl2);
        $self->testinterface("updatedfiles");
        $self->clearexpect();
        $file=$self->testinterface("ProcessedFile");
        $self->verify($file,$self->{checktestfile});
}

sub basequery {
        my $self=shift;
        return $self->{basequery};
}
Revision:	1.4.4.1
Committed:	Thu Aug 17 15:56:54 2000 UTC (24 years, 8 months ago) by williamc
Content type:	text/plain
Branch:	HPWbranch
CVS Tags:	BuildSystemProto1, V0_18_0, V0_18_0model, V0_17_1, V0_18_0alpha, V0_17_0, V0_16_4, V0_16_3, V0_16_2, V0_16_1, V0_16_0, V0_15_1, V0_15_0, V0_15_0beta
Branch point for:	V0_17branch, V0_16branch, V0_15branch
Changes since 1.4:	+46 -34 lines
Log Message:	Integrated to simpledoc
#	User	Rev	Content
1	williamc	1.1	#
2			# PreProcessedFile test suite
3			#
4
5			package ActiveDoc::test::test_PreProcessedFile;
6			require 5.001;
7			use ActiveDoc::PreProcessedFile;
8	williamc	1.4.4.1	use ObjectUtilities::ObjectStore;
9	williamc	1.1
10	williamc	1.4	@ISA = ("Utilities::TestClass"); #methods both from the test class
11	williamc	1.1
12			sub init {
13			my $self=shift;
14	williamc	1.4.4.1	$self->{testareadir}=$self->temparea()."/PreProcessFile";
15	williamc	1.1	$self->{testfile}=$self->datadir()."/PreProcessorTest";
16			$self->{checktestfile}=$self->datadir()."/PreProcessorTest-check";
17	williamc	1.4.4.1	$self->{cache}=URL::URLcache->new($self->{testareadir});
18			$self->{dbstore}=ObjectUtilities::ObjectStore->
19			new($self->{testareadir}."/DB");
20	williamc	1.1	}
21
22	williamc	1.2	sub linetest {
23			my $self=shift;
24
25	williamc	1.1	# line tracing
26			$self->newtest("line tracing test");
27	williamc	1.4	$self->expect(2,"");
28			my ($line,$obj)=$self->testinterface(qw(realline 2));
29	williamc	1.4.4.1
30			my $cvsurl="cvs://cmscvs.cern.ch/cvs_server/repositories/SCRAM?auth=pserver&module=test/testinclude&passkey=AA_:yZZ3e&user=anonymous";
31			my $cvsurl2="cvs://cmscvs.cern.ch/cvs_server/repositories/SCRAM?auth=pserver&module=test/testinclude2&passkey=AA_:yZZ3e&user=anonymous";
32			my $cvsurl3="cvs://cmscvs.cern.ch/cvs_server/repositories/SCRAM?auth=pserver&module=test/testinclude3&passkey=AA_:yZZ3e&user=anonymous";
33			$self->_testobj("file:".$self->{testfile},$obj);
34			$self->clearexpect();
35			$self->expect(3,"");
36			($line,$obj)=$self->testinterface(qw(realline 3));
37			$self->_testobj("file:".$self->{testfile},$obj);
38	williamc	1.4	$self->clearexpect();
39	williamc	1.4.4.1	$self->expect(3,"");
40	williamc	1.4	($line,$obj)=$self->testinterface(qw(realline 6));
41	williamc	1.4.4.1	$self->_testobj($cvsurl,$obj);
42	williamc	1.4	$self->clearexpect();
43	williamc	1.4.4.1	$self->expect(1,"");
44	williamc	1.4	($line,$obj)=$self->testinterface(qw(realline 8));
45	williamc	1.4.4.1	$self->_testobj($cvsurl2,$obj);
46	williamc	1.4	$self->clearexpect();
47	williamc	1.4.4.1	$self->expect(3,"");
48	williamc	1.4	($line,$obj)=$self->testinterface(qw(realline 10));
49			$self->clearexpect();
50	williamc	1.4.4.1	$self->_testobj($cvsurl2,$obj);
51			$self->expect(3,"");
52	williamc	1.4	($line,$obj)=$self->testinterface(qw(realline 16));
53	williamc	1.4.4.1	$self->_testobj($cvsurl3,$obj);
54	williamc	1.4	$self->clearexpect();
55			$self->expect(7,"");
56	williamc	1.4.4.1	($line,$obj)=$self->testinterface(qw(realline 20));
57			$self->_testobj($cvsurl,$obj);
58	williamc	1.4	$self->clearexpect();
59	williamc	1.4.4.1	$self->expect(3,"");
60			($line,$obj)=$self->testinterface(qw(realline 22));
61			$self->_testobj("file:".$self->{testfile},$obj);
62	williamc	1.4	$self->clearexpect();
63	williamc	1.4.4.1	$self->expect(4,"");
64			($line,$obj)=$self->testinterface(qw(realline 23));
65			$self->_testobj("file:".$self->{testfile},$obj);
66	williamc	1.1	$self->clearexpect();
67	williamc	1.2	}
68
69	williamc	1.4	sub _testobj {
70			my $self=shift;
71			my $string=shift;
72			my $obj=shift;
73
74			if ( $obj->url() ne $string ) {
75			$self->testfail("Expecting $string got ".$obj->url());
76			}
77			else {
78			$self->testpass("Correct File : $string" );
79			}
80			}
81	williamc	1.2	sub test {
82			my $self=shift;
83
84			$self->newtest("Initiation test");
85	williamc	1.4.4.1	$self->newobject($self->{cache},$self->{dbstore});
86			$self->testinterface("verbosity",1);
87			$self->{object}->{switch}->verbosity(1);
88			$self->{object}->{switch}->{switch}->verbosity(1);
89	williamc	1.4	$self->testinterface("url","file:".$self->{testfile});
90	williamc	1.1
91	williamc	1.4.4.1	($expectedurl=$self->{testfile});
92			$self->expect("file:".$expectedurl);
93	williamc	1.1	$self->testinterface("url");
94			$self->clearexpect();
95
96			$self->newtest("File test");
97	williamc	1.2	my $origfile=$self->testinterface("file");
98			$self->verify($origfile, $self->{testfile});
99	williamc	1.1
100	williamc	1.2	$self->newtest("Construction test");
101	williamc	1.1	$self->testinterface("update");
102	williamc	1.2	my $file=$self->testinterface("ProcessedFile");
103			$self->verify($file,$self->{checktestfile});
104
105	williamc	1.4.4.1	$self->newtest("Store test");
106	williamc	1.2	my $storefile=$self->temparea()."/".$self->newfilename();
107			$self->testinterface("store", $storefile);
108			$self->testinterface("store", $storefile); # multiple calls to store
109			# must be possible
110	williamc	1.4.4.1
111			$self->newtest("Restore test");
112			$self->newobject($self->{cache},$self->{dbstore});
113	williamc	1.2	$self->testinterface("restore", $storefile);
114			$self->linetest();
115
116			$self->expect($file);
117			$self->testinterface("ProcessedFile");
118			$self->clearexpect();
119
120			$self->expect($origfile);
121			$self->testinterface("file");
122			$self->clearexpect();
123
124			if ( $self->{object}->{lastsequence} ne 1 ) {
125			$self->testfail("sequence number corrupted got ".
126			$self->{object}->{lastsequence});
127			}
128			else {
129			$self->testpass('sequence number stored OK');
130			}
131
132			$self->newtest("Update test - out of date check");
133			$self->testinterface("update");
134			@array=$self->testinterface("updatedfiles");
135			if ( $#array != -1 ) {
136			$self->testfail("Files were updated @array when none should of been");
137			}
138			$self->testpass("No files updated therefore no build as expected");
139
140	williamc	1.1	$file=$self->testinterface("ProcessedFile");
141	williamc	1.2	$self->verify($file,$self->{checktestfile});
142	williamc	1.1
143	williamc	1.2	$self->newtest("Update test - dependency changed");
144	williamc	1.4.4.1	$self->testinterface("verbosity",1);
145			$self->{object}->{switch}->verbosity(1);
146			$self->{object}->{switch}->{switch}->verbosity(1);
147			$changedurl="cvs://cmscvs.cern.ch/cvs_server/repositories/SCRAM?module=test/testinclude3&auth=pserver&passkey=AA_:yZZ3e&user=anonymous";
148			$changedurl2="cvs://cmscvs.cern.ch/cvs_server/repositories/SCRAM?auth=pserver&module=test/testinclude&passkey=AA_:yZZ3e&user=anonymous";
149			$self->{object}->{switch}->urldownload($changedurl);
150	williamc	1.2	$self->testinterface("update");
151			$self->expect($changedurl2);
152			$self->testinterface("updatedfiles");
153			$self->clearexpect();
154			$file=$self->testinterface("ProcessedFile");
155	williamc	1.1	$self->verify($file,$self->{checktestfile});
156	williamc	1.4	}
157
158			sub basequery {
159			my $self=shift;
160			return $self->{basequery};
161	williamc	1.1	}