ActiveDoc/test/test_SimpleDoc.pm

#
# SimpleDoc test suite
#

package ActiveDoc::test::test_SimpleDoc;
require 5.001;
use ActiveDoc::SimpleDoc;

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

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

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

        $self->newtest("Initiation test");
        $self->newobject();
        $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","test1");
        $self->testinterface("addtag","test1","test1tag",\&test1tag,$self,
                \&test1text, $self,\&test1end,$self);
        $self->testinterface("addignoretags","test1");
        $self->testinterface("newparse","test2");
        $self->testinterface("addtag","test2","test2tag",\&test2tag,$self,
                \&test2text, $self,\&test2end,$self);
        $self->testinterface("addtag","test1","test3tag",\&test3tag,$self);

        $self->newtest("Testing Parses");
        $self->{parse1}=0;
        $self->{parse2}=0;
        $self->testinterface("parse","test1");
        if ( ( $self->{parse2}!=0 ) || ($self->{parse1} != 14) ) {
          $self->testfail("Parse Routines not called as expected ".
                                                $self->{parse1});
        } else {
          $self->testpass("Parse1 OK");
        }
        $self->{parse1}=0;
        $self->{parse2}=0;
        $self->testinterface("parse","test2");
        if ( ( $self->{parse1} != 0 ) || ($self->{parse2} != 20) ) {
          $self->testfail("Parse2 Routines not called as expected");
        } else {
          $self->testpass("Parse2 OK");
        }

        $self->newtest("Testing Group Parses");
        $self->testinterface("grouptag","group","test2");
        $self->testinterface("addtag","test2","group",\&group_start,$self,
                "", $self,\&group_end,$self);
        $self->testinterface("disallowgroup","testgroup","test2");
        $self->{parse1}=0;
        $self->{parse2}=0;
        $self->testinterface("parse","test2");
        if ( ( $self->{parse1} != 0 ) || ($self->{parse2} != 10) ) {
          $self->testfail("Parse2 Routines not called as expected");
        } else {
          $self->testpass("Parse2 OK");
        }
        $self->testinterface("allowgroup","testgroup","test2");
        $self->{parse1}=0;
        $self->{parse2}=0;
        $self->testinterface("parse","test2");
        if ( ( $self->{parse1} != 0 ) || ($self->{parse2} != 20) ) {
          $self->testfail("Parse2 Routines not called as expected");
        } else {
          $self->testpass("Parse2 OK");
        }

}

sub test1tag {
        my $self=shift;
        my $name=shift;

        $self->{parse1}+=1;
}

sub test1text {
        my $self=shift;
        my $name=shift;

        $self->{parse1}+=3;
}

sub test1end {
        my $self=shift;
        my $name=shift;

        $self->{parse1}+=6;
}

sub test2tag {
        my $self=shift;
        my $name=shift;

        $self->{parse2}+=1;
        print "test2tag called\n";
}

sub test2text {
        my $self=shift;
        my $name=shift;

        $self->{parse2}+=3;
        print "test2text called\n";
}

sub test2end {
        my $self=shift;
        my $name=shift;

        $self->{parse2}+=6;
        print "test2end called\n";
}

sub test3tag {
        my $self=shift;
        my $name=shift;

        $self->{parse1}+=1;
        print "test3tag called\n";
}

sub group_start {
        my $self=shift;
        my $name=shift;
        my $tagvar=shift;

        $self->testinterface("opengroup","testgroup");
}

sub group_end {
        my $self=shift;
        my $name=shift;
        my $tagvar=shift;

        $self->testinterface("closegroup","testgroup");
}

Revision:	1.1.2.3
Committed:	Fri May 12 15:00:49 2000 UTC (25 years ago) by williamc
Content type:	text/plain
Branch:	V0_9branch
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, V0_14_0, V0_12_12_4, V0_12_12_3, V0_13_3, V0_13_2, V0_12_12_2, V0_12_12_1, V0_12_12_0, PlayGround_0, V0_13_1, V0_13_0, V0_12_12, V0_12_11, V0_12_9b, V0_12_10, V0_12_9, V0_12_8, V0_12_7
Branch point for:	V0_17branch, V0_16branch, V0_15branch, HPWbranch
Changes since 1.1.2.2:	+11 -2 lines
Log Message:	semi-support for non parsed tags + lowercase for label names
#	User	Rev	Content
1	williamc	1.1	#
2			# SimpleDoc test suite
3			#
4
5			package ActiveDoc::test::test_SimpleDoc;
6			require 5.001;
7			use ActiveDoc::SimpleDoc;
8
9			@ISA = ("Utilities::TestClass"); #methods both from the test class
10
11			sub init {
12			my $self=shift;
13			$self->{testfile}=$self->datadir()."/SimpleDocTest";
14			}
15
16			sub test {
17			my $self=shift;
18			$self->{expectedstring}="";
19
20			$self->newtest("Initiation test");
21			$self->newobject();
22			$self->newtest("Setting file test");
23			$self->testinterface("filetoparse",$self->{testfile});
24			$self->expect($self->{testfile});
25			$self->testinterface("filetoparse");
26			$self->clearexpect();
27
28			$self->newtest("Setting Up Parses");
29			$self->testinterface("newparse","test1");
30			$self->testinterface("addtag","test1","test1tag",\&test1tag,$self,
31			\&test1text, $self,\&test1end,$self);
32			$self->testinterface("addignoretags","test1");
33			$self->testinterface("newparse","test2");
34			$self->testinterface("addtag","test2","test2tag",\&test2tag,$self,
35			\&test2text, $self,\&test2end,$self);
36	williamc	1.1.2.2	$self->testinterface("addtag","test1","test3tag",\&test3tag,$self);
37	williamc	1.1
38			$self->newtest("Testing Parses");
39			$self->{parse1}=0;
40			$self->{parse2}=0;
41			$self->testinterface("parse","test1");
42	williamc	1.1.2.3	if ( ( $self->{parse2}!=0 ) \|\| ($self->{parse1} != 14) ) {
43			$self->testfail("Parse Routines not called as expected ".
44			$self->{parse1});
45	williamc	1.1	} else {
46			$self->testpass("Parse1 OK");
47			}
48			$self->{parse1}=0;
49			$self->{parse2}=0;
50			$self->testinterface("parse","test2");
51			if ( ( $self->{parse1} != 0 ) \|\| ($self->{parse2} != 20) ) {
52			$self->testfail("Parse2 Routines not called as expected");
53			} else {
54			$self->testpass("Parse2 OK");
55			}
56	williamc	1.1.2.1
57			$self->newtest("Testing Group Parses");
58			$self->testinterface("grouptag","group","test2");
59			$self->testinterface("addtag","test2","group",\&group_start,$self,
60			"", $self,\&group_end,$self);
61			$self->testinterface("disallowgroup","testgroup","test2");
62			$self->{parse1}=0;
63			$self->{parse2}=0;
64			$self->testinterface("parse","test2");
65			if ( ( $self->{parse1} != 0 ) \|\| ($self->{parse2} != 10) ) {
66			$self->testfail("Parse2 Routines not called as expected");
67			} else {
68			$self->testpass("Parse2 OK");
69			}
70			$self->testinterface("allowgroup","testgroup","test2");
71			$self->{parse1}=0;
72			$self->{parse2}=0;
73			$self->testinterface("parse","test2");
74			if ( ( $self->{parse1} != 0 ) \|\| ($self->{parse2} != 20) ) {
75			$self->testfail("Parse2 Routines not called as expected");
76			} else {
77			$self->testpass("Parse2 OK");
78			}
79
80	williamc	1.1	}
81
82			sub test1tag {
83			my $self=shift;
84			my $name=shift;
85
86			$self->{parse1}+=1;
87			}
88
89			sub test1text {
90			my $self=shift;
91			my $name=shift;
92
93			$self->{parse1}+=3;
94			}
95
96			sub test1end {
97			my $self=shift;
98			my $name=shift;
99
100			$self->{parse1}+=6;
101			}
102
103			sub test2tag {
104			my $self=shift;
105			my $name=shift;
106
107			$self->{parse2}+=1;
108			print "test2tag called\n";
109			}
110
111			sub test2text {
112			my $self=shift;
113			my $name=shift;
114
115			$self->{parse2}+=3;
116			print "test2text called\n";
117			}
118
119			sub test2end {
120			my $self=shift;
121			my $name=shift;
122
123			$self->{parse2}+=6;
124			print "test2end called\n";
125	williamc	1.1.2.3	}
126
127			sub test3tag {
128			my $self=shift;
129			my $name=shift;
130
131			$self->{parse1}+=1;
132			print "test3tag called\n";
133	williamc	1.1	}
134	williamc	1.1.2.1
135			sub group_start {
136			my $self=shift;
137			my $name=shift;
138			my $tagvar=shift;
139
140			$self->testinterface("opengroup","testgroup");
141			}
142
143			sub group_end {
144			my $self=shift;
145			my $name=shift;
146			my $tagvar=shift;
147
148			$self->testinterface("closegroup","testgroup");
149			}
150