ActiveDoc/test/test_PreProcessedFile.pm

#
# PreProcessedFile test suite
#

package ActiveDoc::test::test_PreProcessedFile;
require 5.001;
use ActiveDoc::PreProcessedFile;
use ActiveDoc::ActiveConfig;

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

sub init {
        my $self=shift;
        $self->{testfile}=$self->datadir()."/PreProcessorTest";
        $self->{checktestfile}=$self->datadir()."/PreProcessorTest-check";
        $self->{ActiveConfig}=ActiveDoc::ActiveConfig->new($self->temparea()."/PreProcessortest");
        $self->{ActiveConfig}->basedoc($self);
        $self->{basequery}=ActiveDoc::Query->new();
        $self->{basequery}->setparam("verbose_ActiveDoc::PreProcessedFile",1);
}

sub linetest {
        my $self=shift;
        
        # line tracing
        $self->newtest("line tracing test");
        $self->expect(2,"");
        my ($line,$obj)=$self->testinterface(qw(realline 2));
        $self->_testobj("file:///afs/cern.ch/cms/Releases/SCRAM/dev/src/ActiveDoc/test/testdata//PreProcessorTest",$obj);
        $self->clearexpect();
        $self->expect(4,"");
        ($line,$obj)=$self->testinterface(qw(realline 4));
        $self->_testobj("file:///afs/cern.ch/cms/Releases/SCRAM/dev/src/ActiveDoc/test/testdata//PreProcessorTest",$obj);
        $self->clearexpect();
        $self->expect(2,"");
        ($line,$obj)=$self->testinterface(qw(realline 6));
        $self->_testobj("cvs://cmscvs.cern.ch:/cvs_server/repositories/SCRAM//test/testinclude?auth=pserver&passkey=AA_:yZZ3e&user=anonymous",$obj);
        $self->clearexpect();
        $self->expect(4,"");
        ($line,$obj)=$self->testinterface(qw(realline 8));
        $self->_testobj("cvs://cmscvs.cern.ch:/cvs_server/repositories/SCRAM//test/testinclude?auth=pserver&passkey=AA_:yZZ3e&user=anonymous",$obj);
        $self->clearexpect();
        $self->expect(1,"");
        ($line,$obj)=$self->testinterface(qw(realline 10));
        $self->clearexpect();
        $self->_testobj("cvs://cmscvs.cern.ch:/cvs_server/repositories/SCRAM//test/testinclude2?auth=pserver&passkey=AA_:yZZ3e&user=anonymous",$obj);
        $self->expect(1,"");
        ($line,$obj)=$self->testinterface(qw(realline 16));
        $self->_testobj("cvs://cmscvs.cern.ch:/cvs_server/repositories/SCRAM//test/testinclude3?auth=pserver&passkey=AA_:yZZ3e&user=anonymous",$obj);
        $self->clearexpect();
        $self->expect(7,"");
        ($line,$obj)=$self->testinterface(qw(realline 21));
        $self->_testobj("cvs://cmscvs.cern.ch:/cvs_server/repositories/SCRAM//test/testinclude?auth=pserver&passkey=AA_:yZZ3e&user=anonymous",$obj);
        $self->clearexpect();
        $self->expect(4,"");
        ($line,$obj)=$self->testinterface(qw(realline 24));
        $self->_testobj("file:///afs/cern.ch/cms/Releases/SCRAM/dev/src/ActiveDoc/test/testdata//PreProcessorTest",$obj);
        $self->clearexpect();
        $self->expect(5,"");
        ($line,$obj)=$self->testinterface(qw(realline 25));
        $self->_testobj("file:///afs/cern.ch/cms/Releases/SCRAM/dev/src/ActiveDoc/test/testdata//PreProcessorTest",$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->{ActiveConfig});
        $self->testinterface("url","file:".$self->{testfile});

        ($expectedurl=$self->{testfile})=~s/(\/Pre.*)/\/$1/;
        $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/Restore test");
        my $storefile=$self->temparea()."/".$self->newfilename();
        $self->testinterface("store", $storefile);
        $self->testinterface("store", $storefile); # multiple calls to store
                                                  # must be possible
        $self->newobject($self->{ActiveConfig});
        $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");
        $changedurl="cvs://cmscvs.cern.ch:/cvs_server/repositories/SCRAM//test/testinclude3?auth=pserver&passkey=AA_:yZZ3e&user=anonymous";
        $changedurl2="cvs://cmscvs.cern.ch:/cvs_server/repositories/SCRAM//test/testinclude?auth=pserver&passkey=AA_:yZZ3e&user=anonymous";
        $self->{object}->{urlhandler}->download($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
Committed:	Fri Feb 18 10:32:32 2000 UTC (25 years, 2 months ago) by williamc
Content type:	text/plain
Branch:	MAIN
CVS Tags:	ProtoEnd
Branch point for:	HPWbranch, V0_9branch
Changes since 1.3:	+57 -24 lines
Log Message:	Line tracing fixed
#	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			use ActiveDoc::ActiveConfig;
9
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			$self->{testfile}=$self->datadir()."/PreProcessorTest";
15			$self->{checktestfile}=$self->datadir()."/PreProcessorTest-check";
16			$self->{ActiveConfig}=ActiveDoc::ActiveConfig->new($self->temparea()."/PreProcessortest");
17	williamc	1.4	$self->{ActiveConfig}->basedoc($self);
18			$self->{basequery}=ActiveDoc::Query->new();
19			$self->{basequery}->setparam("verbose_ActiveDoc::PreProcessedFile",1);
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			$self->_testobj("file:///afs/cern.ch/cms/Releases/SCRAM/dev/src/ActiveDoc/test/testdata//PreProcessorTest",$obj);
30			$self->clearexpect();
31			$self->expect(4,"");
32			($line,$obj)=$self->testinterface(qw(realline 4));
33			$self->_testobj("file:///afs/cern.ch/cms/Releases/SCRAM/dev/src/ActiveDoc/test/testdata//PreProcessorTest",$obj);
34			$self->clearexpect();
35			$self->expect(2,"");
36			($line,$obj)=$self->testinterface(qw(realline 6));
37			$self->_testobj("cvs://cmscvs.cern.ch:/cvs_server/repositories/SCRAM//test/testinclude?auth=pserver&passkey=AA_:yZZ3e&user=anonymous",$obj);
38			$self->clearexpect();
39			$self->expect(4,"");
40			($line,$obj)=$self->testinterface(qw(realline 8));
41			$self->_testobj("cvs://cmscvs.cern.ch:/cvs_server/repositories/SCRAM//test/testinclude?auth=pserver&passkey=AA_:yZZ3e&user=anonymous",$obj);
42			$self->clearexpect();
43			$self->expect(1,"");
44			($line,$obj)=$self->testinterface(qw(realline 10));
45			$self->clearexpect();
46			$self->_testobj("cvs://cmscvs.cern.ch:/cvs_server/repositories/SCRAM//test/testinclude2?auth=pserver&passkey=AA_:yZZ3e&user=anonymous",$obj);
47			$self->expect(1,"");
48			($line,$obj)=$self->testinterface(qw(realline 16));
49			$self->_testobj("cvs://cmscvs.cern.ch:/cvs_server/repositories/SCRAM//test/testinclude3?auth=pserver&passkey=AA_:yZZ3e&user=anonymous",$obj);
50			$self->clearexpect();
51			$self->expect(7,"");
52			($line,$obj)=$self->testinterface(qw(realline 21));
53			$self->_testobj("cvs://cmscvs.cern.ch:/cvs_server/repositories/SCRAM//test/testinclude?auth=pserver&passkey=AA_:yZZ3e&user=anonymous",$obj);
54			$self->clearexpect();
55			$self->expect(4,"");
56			($line,$obj)=$self->testinterface(qw(realline 24));
57			$self->_testobj("file:///afs/cern.ch/cms/Releases/SCRAM/dev/src/ActiveDoc/test/testdata//PreProcessorTest",$obj);
58			$self->clearexpect();
59			$self->expect(5,"");
60			($line,$obj)=$self->testinterface(qw(realline 25));
61			$self->_testobj("file:///afs/cern.ch/cms/Releases/SCRAM/dev/src/ActiveDoc/test/testdata//PreProcessorTest",$obj);
62	williamc	1.1	$self->clearexpect();
63	williamc	1.2	}
64
65	williamc	1.4	sub _testobj {
66			my $self=shift;
67			my $string=shift;
68			my $obj=shift;
69
70			if ( $obj->url() ne $string ) {
71			$self->testfail("Expecting $string got ".$obj->url());
72			}
73			else {
74			$self->testpass("Correct File : $string" );
75			}
76			}
77	williamc	1.2	sub test {
78			my $self=shift;
79
80			$self->newtest("Initiation test");
81			$self->newobject($self->{ActiveConfig});
82	williamc	1.4	$self->testinterface("url","file:".$self->{testfile});
83	williamc	1.1
84	williamc	1.2	($expectedurl=$self->{testfile})=~s/(\/Pre.*)/\/$1/;
85			$self->expect("file://".$expectedurl);
86	williamc	1.1	$self->testinterface("url");
87			$self->clearexpect();
88
89			$self->newtest("File test");
90	williamc	1.2	my $origfile=$self->testinterface("file");
91			$self->verify($origfile, $self->{testfile});
92	williamc	1.1
93	williamc	1.2	$self->newtest("Construction test");
94	williamc	1.1	$self->testinterface("update");
95	williamc	1.2	my $file=$self->testinterface("ProcessedFile");
96			$self->verify($file,$self->{checktestfile});
97
98			$self->newtest("Store/Restore test");
99			my $storefile=$self->temparea()."/".$self->newfilename();
100			$self->testinterface("store", $storefile);
101			$self->testinterface("store", $storefile); # multiple calls to store
102			# must be possible
103			$self->newobject($self->{ActiveConfig});
104			$self->testinterface("restore", $storefile);
105			$self->linetest();
106
107			$self->expect($file);
108			$self->testinterface("ProcessedFile");
109			$self->clearexpect();
110
111			$self->expect($origfile);
112			$self->testinterface("file");
113			$self->clearexpect();
114
115			if ( $self->{object}->{lastsequence} ne 1 ) {
116			$self->testfail("sequence number corrupted got ".
117			$self->{object}->{lastsequence});
118			}
119			else {
120			$self->testpass('sequence number stored OK');
121			}
122
123			$self->newtest("Update test - out of date check");
124			$self->testinterface("update");
125			@array=$self->testinterface("updatedfiles");
126			if ( $#array != -1 ) {
127			$self->testfail("Files were updated @array when none should of been");
128			}
129			$self->testpass("No files updated therefore no build as expected");
130
131	williamc	1.1	$file=$self->testinterface("ProcessedFile");
132	williamc	1.2	$self->verify($file,$self->{checktestfile});
133	williamc	1.1
134	williamc	1.2	$self->newtest("Update test - dependency changed");
135			$changedurl="cvs://cmscvs.cern.ch:/cvs_server/repositories/SCRAM//test/testinclude3?auth=pserver&passkey=AA_:yZZ3e&user=anonymous";
136			$changedurl2="cvs://cmscvs.cern.ch:/cvs_server/repositories/SCRAM//test/testinclude?auth=pserver&passkey=AA_:yZZ3e&user=anonymous";
137			$self->{object}->{urlhandler}->download($changedurl);
138			$self->testinterface("update");
139			$self->expect($changedurl2);
140			$self->testinterface("updatedfiles");
141			$self->clearexpect();
142			$file=$self->testinterface("ProcessedFile");
143	williamc	1.1	$self->verify($file,$self->{checktestfile});
144	williamc	1.4	}
145
146			sub basequery {
147			my $self=shift;
148			return $self->{basequery};
149	williamc	1.1	}