aboutsummaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorJoey Hess <joey@gnu.kitenet.net>2009-10-07 20:31:13 -0400
committerJoey Hess <joey@gnu.kitenet.net>2009-10-07 20:31:13 -0400
commit4002d7c1a4657e769b036c6e76106991ec5c3897 (patch)
treeeb578fa28396c9a7bb377aeb756e64dd59bc99c4 /t
parent76746c5fe6a8e851b971c8222a4929fe3be7f60a (diff)
downloadikiwiki-4002d7c1a4657e769b036c6e76106991ec5c3897.tar
ikiwiki-4002d7c1a4657e769b036c6e76106991ec5c3897.tar.gz
add influence info to match_*
Also update docs, test suite.
Diffstat (limited to 't')
-rwxr-xr-xt/pagespec_match.t15
1 files changed, 13 insertions, 2 deletions
diff --git a/t/pagespec_match.t b/t/pagespec_match.t
index a1fcba7c8..f73bfdfe1 100755
--- a/t/pagespec_match.t
+++ b/t/pagespec_match.t
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use warnings;
use strict;
-use Test::More tests => 56;
+use Test::More tests => 61;
BEGIN { use_ok("IkiWiki"); }
@@ -89,6 +89,17 @@ my $ret=pagespec_match("foo", "(invalid");
ok(! $ret, "syntax error");
ok($ret =~ /syntax error/, "error message");
-my $ret=pagespec_match("foo", "bar or foo");
+$ret=pagespec_match("foo", "bar or foo");
ok($ret, "simple match");
is($ret, "foo matches foo", "stringified return");
+
+$ret=pagespec_match("foo", "link(bar)");
+is(join(",", $ret->influences), 'foo', "link is influenced by the page with the link");
+$ret=pagespec_match("bar", "backlink(foo)");
+is(join(",", $ret->influences), 'foo', "backlink is influenced by the page with the link");
+$ret=pagespec_match("bar", "backlink(foo)");
+is(join(",", $ret->influences), 'foo', "backlink is influenced by the page with the link");
+$ret=pagespec_match("bar", "created_before(foo)");
+is(join(",", $ret->influences), 'foo', "created_before is influenced by the comparison page");
+$ret=pagespec_match("bar", "created_after(foo)");
+is(join(",", $ret->influences), 'foo', "created_after is influenced by the comparison page");