ActiveDoc/test/test_TreeNode.pm

#
# TreeNode test suite
#

package test_TreeNode;
require 5.001;
use ActiveDoc::TreeNode;
@ISA = ("TestClass"); #methods both from the test class

sub init {
        my $self=shift;
}

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

        $self->newtest("Make a Node");
        $self->newobject("test home");
        $self->expect("test home");
        $self->testinterface("name");
        $self->clearexpect();

        $self->newtest("Try and find the same node");
        
        $this=$self->testinterface("find", "test home");
        $self->testfail("Unable to find self") 
                        if ( $this->name() ne "test home" );
        $self->newtest("Find Non-existent node test");
        $self->expect("");
        $self->testinterface("find", "test fail");
        $self->clearexpect();
}
Revision:	1.2
Committed:	Mon Aug 28 08:10:43 2000 UTC (24 years, 8 months ago) by williamc
Content type:	text/plain
Branch:	MAIN
CVS Tags:	V1_pre0, HEAD
Branch point for:	SCRAM_V1_BRANCH
Changes since 1.1:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	get to same state as HPWbranch
#	User	Rev	Content
1	williamc	1.1	#
2			# TreeNode test suite
3			#
4
5			package test_TreeNode;
6			require 5.001;
7			use ActiveDoc::TreeNode;
8			@ISA = ("TestClass"); #methods both from the test class
9
10			sub init {
11			my $self=shift;
12			}
13
14			sub test {
15			my $self=shift;
16			$self->{expectedstring}="";
17
18			$self->newtest("Make a Node");
19			$self->newobject("test home");
20			$self->expect("test home");
21			$self->testinterface("name");
22			$self->clearexpect();
23
24			$self->newtest("Try and find the same node");
25
26			$this=$self->testinterface("find", "test home");
27			$self->testfail("Unable to find self")
28			if ( $this->name() ne "test home" );
29			$self->newtest("Find Non-existent node test");
30			$self->expect("");
31			$self->testinterface("find", "test fail");
32			$self->clearexpect();
33			}