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

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

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

Modified Files:
      Tag: bk-dev-branch
	BKTest.pm 
Log Message:
Tests for getauthor, getannotations

Index: BKTest.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/tests/Attic/BKTest.pm,v
retrieving revision 1.1.2.8
retrieving revision 1.1.2.9
diff -u -d -r1.1.2.8 -r1.1.2.9
--- BKTest.pm	14 Feb 2005 22:40:49 -0000	1.1.2.8
+++ BKTest.pm	19 Feb 2005 22:22:44 -0000	1.1.2.9
@@ -363,6 +363,28 @@
 	$self->assert(!defined($bk->getfilesize('/sourcedir/main.c', '@1.9')));
 }
 
+# Test getauthor
+
+sub test_getauthor {
+	my ($self) = shift;
+	my $bk = $self->{'bk'};
+
+	$self->assert_equals('malcolm', $bk->getauthor('/file1', '@1.3'));
+	$self->assert_equals('malcolm', $bk->getauthor('/sourcedir/cobol.c', '@1.13'));
+	$self->assert_null($bk->getauthor('/sourcedir/cobol.c', '@1.3'));
+}
+
+# Test getannotations
+#  Only problem is that I don't have a clue what this function should return - so
+#  for now we're stubbing it out a la Plain.pm
+
+sub test_getannotations {
+	my ($self) = shift;
+	my $bk = $self->{'bk'};
+
+	$self->assert_deep_equals([], [ $bk->getannotations('/file1', '@1.3') ]);
+}
+
 # Tests of helper functions in BK.pm
 sub test_canonise {
 	my ($self) = shift;