add test case for multiline pagespec

master
Joey Hess 2009-05-21 12:44:21 -04:00
parent f7ded1174d
commit bcf3f9091a
1 changed files with 10 additions and 1 deletions

View File

@ -1,7 +1,7 @@
#!/usr/bin/perl
use warnings;
use strict;
use Test::More tests => 53;
use Test::More tests => 54;
BEGIN { use_ok("IkiWiki"); }
@ -20,6 +20,15 @@ ok(! pagespec_match("foo", "* and !foo"));
ok(! pagespec_match("foo", "foo and !foo"));
ok(! pagespec_match("foo.png", "* and !*.*"));
ok(pagespec_match("foo", "(bar or ((meep and foo) or (baz or foo) or beep))"));
ok(pagespec_match("foo", "(
bar
or (
(meep and foo)
or
(baz or foo)
or beep
)
)"), "multiline complex pagespec");
ok(! pagespec_match("a/foo", "foo", location => "a/b"), "nonrelative fail");
ok(! pagespec_match("foo", "./*", location => "a/b"), "relative fail");
ok(pagespec_match("a/foo", "./*", location => "a/b"), "relative");