[Lxr-commits] CVS: lxr/tests BKTest.pm,1.1.2.4,1.1.2.5

[Malcolm B. <mb...@us...>]

Update of /cvsroot/lxr/lxr/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29097/tests

Modified Files:
      Tag: bk-dev-branch
	BKTest.pm 
Log Message:
Implement isdir() function

Index: BKTest.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/tests/Attic/BKTest.pm,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -d -r1.1.2.4 -r1.1.2.5
--- BKTest.pm	13 Feb 2005 23:07:05 -0000	1.1.2.4
+++ BKTest.pm	13 Feb 2005 23:56:12 -0000	1.1.2.5
@@ -315,6 +315,22 @@
 	$self->assert_not_equals($rev, $bk->filerev('/firstdir/file2', '@1.9'));
 }
 
+# Test isdir
+#  Assuming that pathname will always end in / if it's a dir
+#  - this may not be correct!
+sub test_isdir {
+	my ($self) = shift;
+	my $bk = $self->{'bk'};
+	
+	$self->assert($bk->isdir('/firstdir/', '@1.3'));
+	$self->assert($bk->isdir('/seconddir/thirddir/','@1.6'));
+	$self->assert(!$bk->isdir('/not/a/dir/', '@1.3'));
+	$self->assert(!$bk->isdir('/seconddir/file2/', '@1.4'));
+	$self->assert(!$bk->isdir('/file1','@1.11'));
+	$self->assert(!$bk->isdir('/sourcedir/main.c', '@1.12'));
+	$self->assert(!$bk->isdir('/sourcedir/', '@1.10')); 
+}
+
 # Tests of helper functions in BK.pm
 sub test_canonise {
 	my ($self) = shift;