X-Git-Url: http://git.tremily.us/?a=blobdiff_plain;f=t%2Fuse_pagespec.t;h=92d7977cfd94ee0e7c672b5a1d1ce784d2bff6c6;hb=955bcea2a7bacb98cb62a38faa78b05e0f430aac;hp=7b904075ed477b58258f3318a19ab3273dfaf22f;hpb=5e236f5d25b68f5fb4a421b24470419c6042cb1c;p=ikiwiki.git diff --git a/t/use_pagespec.t b/t/use_pagespec.t index 7b904075e..92d7977cf 100755 --- a/t/use_pagespec.t +++ b/t/use_pagespec.t @@ -1,7 +1,7 @@ #!/usr/bin/perl use warnings; use strict; -use Test::More tests => 64; +use Test::More tests => 10; BEGIN { use_ok("IkiWiki"); } @@ -24,7 +24,8 @@ is_deeply([use_pagespec("foo", "post/*", sort => "title", num => 50)], is_deeply([use_pagespec("foo", "post/*", sort => "title", limit => sub { $_[0] !~ /3/}) ], ["post/1", "post/2"]); -eval { use_pagespec("foo", "beep") }; -ok($@, "fails with error when unable to match anything"); +my $r=eval { use_pagespec("foo", "beep") }; +ok(eval { use_pagespec("foo", "beep") } == 0); +ok(! $@, "does not fail with error when unable to match anything"); eval { use_pagespec("foo", "this is not a legal pagespec!") }; ok($@, "fails with error when pagespec bad");