From 8fa8bd0adb034f05131648dcb7b14011672649e8 Mon Sep 17 00:00:00 2001 From: joey Date: Fri, 27 Apr 2007 08:34:09 +0000 Subject: the kind of perl code that can only be written at 4:30 am (Get a good message when a PageSpec fails due to a negated success by creating success objects with a reason string, which morph into failure objects when negated.) --- t/pagespec_match.t | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 't/pagespec_match.t') diff --git a/t/pagespec_match.t b/t/pagespec_match.t index f0cadcdc7..635381e2b 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 => 51; +use Test::More tests => 52; BEGIN { use_ok("IkiWiki"); } @@ -25,6 +25,7 @@ ok(pagespec_match("a/b/foo", "./*", location => "a/b"), "relative 2"); ok(pagespec_match("a/foo", "./*", "a/b"), "relative oldstyle call"); ok(pagespec_match("foo", "./*", location => "a"), "relative toplevel"); ok(pagespec_match("foo/bar", "*", location => "baz"), "absolute"); +ok(! pagespec_match("foo", "foo and bar"), "foo and bar"); # The link and backlink stuff needs this. $config{userdir}=""; -- cgit v1.2.3