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
#	Content
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	$self->testinterface("addtag","test1","test3tag",\&test3tag,$self);
37
38	$self->newtest("Testing Parses");
39	$self->{parse1}=0;
40	$self->{parse2}=0;
41	$self->testinterface("parse","test1");
42	if ( ( $self->{parse2}!=0 ) \|\| ($self->{parse1} != 14) ) {
43	$self->testfail("Parse Routines not called as expected ".
44	$self->{parse1});
45	} 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
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	}
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	}
126
127	sub test3tag {
128	my $self=shift;
129	my $name=shift;
130
131	$self->{parse1}+=1;
132	print "test3tag called\n";
133	}
134
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