add test case for link(.) with omitted location
parent
5da48a39ff
commit
82f9be0960
|
@ -1,7 +1,7 @@
|
||||||
#!/usr/bin/perl
|
#!/usr/bin/perl
|
||||||
use warnings;
|
use warnings;
|
||||||
use strict;
|
use strict;
|
||||||
use Test::More tests => 86;
|
use Test::More tests => 87;
|
||||||
|
|
||||||
BEGIN { use_ok("IkiWiki"); }
|
BEGIN { use_ok("IkiWiki"); }
|
||||||
|
|
||||||
|
@ -83,6 +83,7 @@ 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(.)", location => "bar"), "link with .");
|
||||||
|
ok(! pagespec_match("foo", "link(.)"), "link with . but missing location");
|
||||||
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");
|
||||||
|
|
Loading…
Reference in New Issue