[Lxr-commits] CVS: lxr/tests BKTest.pm,1.1.2.7,1.1.2.8

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

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;