[Lxr-commits] CVS: lxr/tests BKTest.pm,1.1.2.10,1.1.2.11

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

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

Modified Files:
      Tag: bk-dev-branch
	BKTest.pm 
Log Message:
Fix Files initialisation in genxref
Fix diff
Update tests and bk repository

Index: BKTest.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/tests/Attic/BKTest.pm,v
retrieving revision 1.1.2.10
retrieving revision 1.1.2.11
diff -u -d -r1.1.2.10 -r1.1.2.11
--- BKTest.pm	20 Feb 2005 23:44:55 -0000	1.1.2.10
+++ BKTest.pm	22 Feb 2005 23:12:02 -0000	1.1.2.11
@@ -180,6 +180,17 @@
 	$self->assert_deep_equals(\@entries, [ sort ('file2') ]);
 }
 
+# test getdir() ordering - dirs before files, all alphabetical
+sub test_getdir_part3 {
+	my $self = shift;
+	my $bk   = $self->{'bk'};
+
+	my @nodes = $bk->getdir('/', '@1.13');
+	$self->assert($nodes[0] =~ m!/$!);
+	my @expected = ('firstdir/', 'seconddir/', 'sourcedir/', 'file1');
+	$self->assert_deep_equals(\@nodes, \@expected);
+}
+
 # Test the cache of bitkeeper trees
 
 sub test_cache_creation {