From fae3da7ce3910d8aeb16ec875a5c2d4f095313ff Mon Sep 17 00:00:00 2001 From: joey Date: Wed, 2 Aug 2006 04:52:35 +0000 Subject: link and backlink pagespec tests --- t/pagespec_match.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/t/pagespec_match.t b/t/pagespec_match.t index 4f5ccc92c..2a370a217 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 => 21; +use Test::More tests => 25; BEGIN { use_ok("IkiWiki"); } @@ -19,6 +19,12 @@ ok(! IkiWiki::pagespec_match("foo", "foo and !foo")); ok(! IkiWiki::pagespec_match("foo.png", "* and !*.*")); ok(IkiWiki::pagespec_match("foo", "(bar or ((meep and foo) or (baz or foo) or beep))")); +$IkiWiki::links{foo}=[qw{bar baz}]; +ok(IkiWiki::pagespec_match("foo", "link(bar)")); +ok(! IkiWiki::pagespec_match("foo", "link(quux)")); +ok(IkiWiki::pagespec_match("bar", "backlink(foo)")); +ok(! IkiWiki::pagespec_match("quux", "backlink(foo)")); + # old style globlists ok(IkiWiki::pagespec_match("foo", "foo bar"), "simple list"); ok(IkiWiki::pagespec_match("bar", "foo bar"), "simple list 2"); -- cgit v1.2.3