* Add unit tests for several core functions, including globlist_match,

  dirname, basename, and bestlink.
  as plugins and work. (Well, in theory.)

1 files changed, 24 insertions, 0 deletions

diff --git a/t/bestlink.t b/t/bestlink.t
new file mode 100755
index 000000000..ed748b0f2
--- /dev/null
+++ b/t/bestlink.t
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use Test::More tests => 5;
+
+sub test ($$$) {
+	my $page=shift;
+	my $link=shift;
+	my @existing_pages=@{shift()};
+	
+	%IkiWiki::links=();
+	foreach my $page (@existing_pages) {
+		$IkiWiki::links{$page}=[];
+	}
+
+	return IkiWiki::bestlink($page, $link);
+}
+
+BEGIN { use_ok("IkiWiki"); }
+
+is(test("bar", "foo", ["bar"]), "", "broken link");
+is(test("bar", "foo", ["bar", "foo"]), "foo", "simple link");
+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");