BuildSystem/test/test_Tool.pm

#
# Tool.pm test suite
#

package BuildSystem::test::test_Tool;
require 5.001;
use BuildSystem::Tool;

@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->newtest("Initiation test");
        $self->newobject();
        $self->testinterface("name","testname");
        $self->testinterface("version","V1");
        $self->_testgeneral();

        $self->newtest("Feature Testing");
        $self->testinterface("addfeature","testfeature1","testvalue1" );
        $self->testinterface("addfeature","testfeature2","testvalue2" );
        $self->testinterface("addfeature","testfeature3","testvalue3" );
        $self->testinterface("type","testfeature2","typeA" );
        $self->testinterface("type","testfeature3","typeA" );
        $self->_testfeature();

        $self->newtest("url testing");
        $self->testinterface("url","file:".$self->{testfile});
        $self->expect("file:".$self->{testfile});
        $self->testinterface("url");
        $self->clearexpect();


        $self->newtest("Persistency Testing");
        my $savefile=$self->temparea()."/".$self->newfilename();
        $self->testinterface("store",$savefile);
        undef $self->{object};
        $self->newobject();
        $self->testinterface("restore",$savefile);
        $self->_testgeneral();
        $self->_testfeature();
        $self->expect("file:".$self->{testfile});
        $self->testinterface("url");
        $self->clearexpect();

        $self->newtest("Type listing test");
        $self->expect("testfeature2","testfeature3");
        $self->testinterface("listtype","typeA");
        $self->clearexpect();
}

sub _testgeneral {
        my $self=shift;
        $self->expect("testname");
        $self->testinterface("name");
        $self->clearexpect();
        $self->expect("V1");
        $self->testinterface("version");
        $self->clearexpect();
}

sub _testfeature {
        my $self=shift;
        $self->expect("testvalue1");
        $self->testinterface("getfeature","testfeature1" );
        $self->clearexpect();
        $self->expect("testvalue2");
        $self->testinterface("getfeature","testfeature2" );
        $self->clearexpect();
        $self->expect("typeA");
        $self->testinterface("type","testfeature2","typeA" );
        $self->clearexpect();
}
Revision:	1.1.2.2.2.3
Committed:	Fri Aug 11 14:26:21 2000 UTC (24 years, 9 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, V0_14_0
Branch point for:	V0_17branch, V0_16branch, V0_15branch
Changes since 1.1.2.2.2.2:	+1 -1 lines
Log Message:	Better Tool url test
#	Content
1	#
2	# Tool.pm test suite
3	#
4
5	package BuildSystem::test::test_Tool;
6	require 5.001;
7	use BuildSystem::Tool;
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->newtest("Initiation test");
19	$self->newobject();
20	$self->testinterface("name","testname");
21	$self->testinterface("version","V1");
22	$self->_testgeneral();
23
24	$self->newtest("Feature Testing");
25	$self->testinterface("addfeature","testfeature1","testvalue1" );
26	$self->testinterface("addfeature","testfeature2","testvalue2" );
27	$self->testinterface("addfeature","testfeature3","testvalue3" );
28	$self->testinterface("type","testfeature2","typeA" );
29	$self->testinterface("type","testfeature3","typeA" );
30	$self->_testfeature();
31
32	$self->newtest("url testing");
33	$self->testinterface("url","file:".$self->{testfile});
34	$self->expect("file:".$self->{testfile});
35	$self->testinterface("url");
36	$self->clearexpect();
37
38
39	$self->newtest("Persistency Testing");
40	my $savefile=$self->temparea()."/".$self->newfilename();
41	$self->testinterface("store",$savefile);
42	undef $self->{object};
43	$self->newobject();
44	$self->testinterface("restore",$savefile);
45	$self->_testgeneral();
46	$self->_testfeature();
47	$self->expect("file:".$self->{testfile});
48	$self->testinterface("url");
49	$self->clearexpect();
50
51	$self->newtest("Type listing test");
52	$self->expect("testfeature2","testfeature3");
53	$self->testinterface("listtype","typeA");
54	$self->clearexpect();
55	}
56
57	sub _testgeneral {
58	my $self=shift;
59	$self->expect("testname");
60	$self->testinterface("name");
61	$self->clearexpect();
62	$self->expect("V1");
63	$self->testinterface("version");
64	$self->clearexpect();
65	}
66
67	sub _testfeature {
68	my $self=shift;
69	$self->expect("testvalue1");
70	$self->testinterface("getfeature","testfeature1" );
71	$self->clearexpect();
72	$self->expect("testvalue2");
73	$self->testinterface("getfeature","testfeature2" );
74	$self->clearexpect();
75	$self->expect("typeA");
76	$self->testinterface("type","testfeature2","typeA" );
77	$self->clearexpect();
78	}