Thread: [Lxr-commits] CVS: lxr/tests BKTest.pm,1.1.2.6,1.1.2.7
Brought to you by:
ajlittoz
From: Malcolm B. <mb...@us...> - 2005-02-14 00:55:32
|
Update of /cvsroot/lxr/lxr/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20826/tests Modified Files: Tag: bk-dev-branch BKTest.pm Log Message: Implement isfile() Index: BKTest.pm =================================================================== RCS file: /cvsroot/lxr/lxr/tests/Attic/BKTest.pm,v retrieving revision 1.1.2.6 retrieving revision 1.1.2.7 diff -u -d -r1.1.2.6 -r1.1.2.7 --- BKTest.pm 14 Feb 2005 00:45:22 -0000 1.1.2.6 +++ BKTest.pm 14 Feb 2005 00:55:23 -0000 1.1.2.7 @@ -332,6 +332,16 @@ $self->assert(!$bk->isdir('/sourcedir/', '@1.10')); } +sub test_isfile { + my ($self) = shift; + my $bk = $self->{'bk'}; + + $self->assert($bk->isfile('/file1', '@1.12')); + $self->assert($bk->isfile('/sourcedir/main.c', '@1.12')); + $self->assert(!$bk->isfile('/sourcedir/main.c', '@1.9')); + $self->assert(!$bk->isfile('/seconddir/thirddir/', '@1.9')); +} + # Test the getfiletime function # tests are assuming that undef is OK for a directory sub test_getfiletime { |