From fcf3894e807958a40cd50aa350dbec21fb7410e2 Mon Sep 17 00:00:00 2001
From: joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Date: Sun, 13 Aug 2006 02:08:42 +0000
Subject: update

---
 t/bestlink.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 't/bestlink.t')

diff --git a/t/bestlink.t b/t/bestlink.t
index 825c88ff2..ece900152 100755
--- a/t/bestlink.t
+++ b/t/bestlink.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use warnings;
 use strict;
-use Test::More tests => 8;
+use Test::More tests => 9;
 
 sub test ($$$) {
 	my $page=shift;
@@ -9,8 +9,10 @@ sub test ($$$) {
 	my @existing_pages=@{shift()};
 	
 	%IkiWiki::pagecase=();
+	%IkiWiki::links=();
 	foreach my $page (@existing_pages) {
 		$IkiWiki::pagecase{lc $page}=$page;
+		$IkiWiki::links{$page}=[];
 	}
 
 	return IkiWiki::bestlink($page, $link);
@@ -23,5 +25,6 @@ is(test("bar", "foo", ["bar", "foo"]), "foo", "simple link");
 is(test("bar", "FoO", ["bar", "foo"]), "foo", "simple link with different input case");
 is(test("bar", "foo", ["bar", "fOo"]), "fOo", "simple link with different page case");
 is(test("bar", "FoO", ["bar", "fOo"]), "fOo", "simple link with different page and input case");
+is(test("bar", "Foo", ["bar", "fOo", "foo", "fOO", "Foo", "fOo"]), "Foo", "in case of ambiguity, like case wins");
 is(test("bar", "foo", ["bar", "foo", "bar/foo"]), "bar/foo", "simple subpage link");
 is(test("bar", "foo/subpage", ["bar", "foo", "bar/subpage", "foo/subpage"]), "foo/subpage", "cross subpage link");
-- 
cgit v1.2.3