Update of /cvsroot/lxr/lxr/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29788/tests
Modified Files:
Tag: bk-dev-branch
BKTest.pm
Log Message:
Implement getfilesize
Index: BKTest.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/tests/Attic/BKTest.pm,v
retrieving revision 1.1.2.7
retrieving revision 1.1.2.8
diff -u -d -r1.1.2.7 -r1.1.2.8
--- BKTest.pm 14 Feb 2005 00:55:23 -0000 1.1.2.7
+++ BKTest.pm 14 Feb 2005 22:40:49 -0000 1.1.2.8
@@ -353,6 +353,16 @@
$self->assert(!defined($bk->getfiletime('/sourcedir/', '@1.12')));
}
+# Test the getfilesize
+sub test_getfilesize {
+ my ($self) = shift;
+ my $bk = $self->{'bk'};
+
+ $self->assert_equals($bk->getfilesize('/file1', '@1.3'), 60);
+ $self->assert_equals($bk->getfilesize('/file1', '@1.3'), $bk->getfilesize('file1', '@1.11'));
+ $self->assert(!defined($bk->getfilesize('/sourcedir/main.c', '@1.9')));
+}
+
# Tests of helper functions in BK.pm
sub test_canonise {
my ($self) = shift;
|
