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;
|
