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

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

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

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

Does not implement it for directories yet

Index: BKTest.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/tests/Attic/BKTest.pm,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -u -d -r1.1.2.5 -r1.1.2.6
--- BKTest.pm	13 Feb 2005 23:56:12 -0000	1.1.2.5
+++ BKTest.pm	14 Feb 2005 00:45:22 -0000	1.1.2.6
@@ -6,6 +6,7 @@
 
 use Test::Unit;
 use Cwd;
+use Time::Local;
 use lib "..";
 use lib "../lib";
 
@@ -331,6 +332,17 @@
 	$self->assert(!$bk->isdir('/sourcedir/', '@1.10')); 
 }
 
+# Test the getfiletime function
+#  tests are assuming that undef is OK for a directory
+sub test_getfiletime {
+	my ($self) = shift;
+	my $bk = $self->{'bk'};
+	
+	$self->assert_equals($bk->getfiletime('/file1', '@1.3'), timegm(30,20,14,13,02,2005));
+	$self->assert_equals($bk->getfiletime('/file1', '@1.3'), $bk->getfiletime('file1', '@1.11'));
+	$self->assert(!defined($bk->getfiletime('/sourcedir/', '@1.12')));
+}
+
 # Tests of helper functions in BK.pm
 sub test_canonise {
 	my ($self) = shift;