add test for link(.)

master
Joey Hess 2010-08-30 13:35:50 -04:00
parent c4d4cad3be
commit 7d1cc3a020
1 changed files with 2 additions and 1 deletions

View File

@ -1,7 +1,7 @@
#!/usr/bin/perl #!/usr/bin/perl
use warnings; use warnings;
use strict; use strict;
use Test::More tests => 85; use Test::More tests => 86;
BEGIN { use_ok("IkiWiki"); } BEGIN { use_ok("IkiWiki"); }
@ -82,6 +82,7 @@ ok(! pagespec_match("foo.png", "page(foo*)"), "page() fails on non-page glob");
ok(pagespec_match("foo", "page(foo)"), "page() glob"); ok(pagespec_match("foo", "page(foo)"), "page() glob");
ok(pagespec_match("foo", "page(f*)"), "page() glob fail"); ok(pagespec_match("foo", "page(f*)"), "page() glob fail");
ok(pagespec_match("foo", "link(bar)"), "link"); ok(pagespec_match("foo", "link(bar)"), "link");
ok(pagespec_match("foo", "link(.)", location => "bar"), "link with .");
ok(pagespec_match("foo", "link(ba?)"), "glob link"); ok(pagespec_match("foo", "link(ba?)"), "glob link");
ok(! pagespec_match("foo", "link(quux)"), "failed link"); ok(! pagespec_match("foo", "link(quux)"), "failed link");
ok(! pagespec_match("foo", "link(qu*)"), "failed glob link"); ok(! pagespec_match("foo", "link(qu*)"), "failed glob link");