ActiveDoc/test/test_SimpleURLDoc.pm

#
# SimpleDoc test suite
#

package ActiveDoc::test::test_SimpleURLDoc;
require 5.001;
use ActiveDoc::SimpleURLDoc;

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

sub init {
        my $self=shift;
        # same test as simpledoc
        $self->{testfile}=$self->datadir()."/SimpleURLDocTest";
        $self->{testfile2}=$self->datadir()."/SimpleDocTest";
        $self->{testcachedir}=$self->temparea()."SimpleURLDoc/cache";
        $self->{testcache}=URL::URLcache->new($self->{testcachedir});
}

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

        $self->newtest("Initiation test");
        $self->newobject($self->{testcache});
        $self->newtest("Setting file test");
        $self->testinterface("filetoparse",$self->{testfile});
        $self->expect($self->{testfile});
        $self->testinterface("filetoparse");
        $self->clearexpect();

        $self->newtest("Setting Up Parses");
        $self->testinterface("newparse","testbase");
        $self->testinterface("addbasetags","testbase");
        $self->testinterface("addtag","testbase","testget",\&testtag,$self,
                "", $self, "" ,$self);

        $self->newtest("Testing Base Parses");
        $self->{parse1}=0;
        $self->testinterface("parse","testbase");
        if ( $self->{parse1} != 1 )  {
          $self->testfail("Parse Routines not called as expected ".
                                                $self->{parse1});
        } else {
          $self->testpass("Parse OK");
        }
        $self->verify($self->{testfile2},$self->{file});
        $self->cmpstring("cvs://cmscvs.cern.ch/cvs_server/repositories/SCRAM?auth=pserver&module=SCRAM/src/ActiveDoc/test/testdata/SimpleDocTest&passkey=AA_:yZZ3e&user=anonymous",$self->{url});

}

sub testtag {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;

        $self->{parse1}+=1;
        $self->testinterface("checktag", $name, $hashref, 'url');
        ($self->{url},$self->{file})=
                $self->testinterface("urlget", $$hashref{'url'});
}
Revision:	1.2
Committed:	Mon Aug 28 07:43:22 2000 UTC (24 years, 8 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.1:	+61 -0 lines
Log Message:	merge from HPWbranch
#	Content
1	#
2	# SimpleDoc test suite
3	#
4
5	package ActiveDoc::test::test_SimpleURLDoc;
6	require 5.001;
7	use ActiveDoc::SimpleURLDoc;
8
9	@ISA = ("Utilities::TestClass"); #methods both from the test class
10
11	sub init {
12	my $self=shift;
13	# same test as simpledoc
14	$self->{testfile}=$self->datadir()."/SimpleURLDocTest";
15	$self->{testfile2}=$self->datadir()."/SimpleDocTest";
16	$self->{testcachedir}=$self->temparea()."SimpleURLDoc/cache";
17	$self->{testcache}=URL::URLcache->new($self->{testcachedir});
18	}
19
20	sub test {
21	my $self=shift;
22	$self->{expectedstring}="";
23
24	$self->newtest("Initiation test");
25	$self->newobject($self->{testcache});
26	$self->newtest("Setting file test");
27	$self->testinterface("filetoparse",$self->{testfile});
28	$self->expect($self->{testfile});
29	$self->testinterface("filetoparse");
30	$self->clearexpect();
31
32	$self->newtest("Setting Up Parses");
33	$self->testinterface("newparse","testbase");
34	$self->testinterface("addbasetags","testbase");
35	$self->testinterface("addtag","testbase","testget",\&testtag,$self,
36	"", $self, "" ,$self);
37
38	$self->newtest("Testing Base Parses");
39	$self->{parse1}=0;
40	$self->testinterface("parse","testbase");
41	if ( $self->{parse1} != 1 ) {
42	$self->testfail("Parse Routines not called as expected ".
43	$self->{parse1});
44	} else {
45	$self->testpass("Parse OK");
46	}
47	$self->verify($self->{testfile2},$self->{file});
48	$self->cmpstring("cvs://cmscvs.cern.ch/cvs_server/repositories/SCRAM?auth=pserver&module=SCRAM/src/ActiveDoc/test/testdata/SimpleDocTest&passkey=AA_:yZZ3e&user=anonymous",$self->{url});
49
50	}
51
52	sub testtag {
53	my $self=shift;
54	my $name=shift;
55	my $hashref=shift;
56
57	$self->{parse1}+=1;
58	$self->testinterface("checktag", $name, $hashref, 'url');
59	($self->{url},$self->{file})=
60	$self->testinterface("urlget", $$hashref{'url'});
61	}