fix test to use new calling convention
[ikiwiki.git] / t / pagespec_match_list.t
1 #!/usr/bin/perl
2 use warnings;
3 use strict;
4 use Test::More tests => 10;
5
6 BEGIN { use_ok("IkiWiki"); }
7
8 %pagesources=(
9         foo => "foo.mdwn",
10         bar => "bar.mdwn",
11         "post/1" => "post/1.mdwn",
12         "post/2" => "post/2.mdwn",
13         "post/3" => "post/3.mdwn",
14 );
15
16 is_deeply([pagespec_match_list("foo", "bar")], ["bar"]);
17 is_deeply([sort(pagespec_match_list("foo", "post/*"))], ["post/1", "post/2", "post/3"]);
18 is_deeply([pagespec_match_list("foo", "post/*", sort => "title", reverse => 1)],
19         ["post/3", "post/2", "post/1"]);
20 is_deeply([pagespec_match_list("foo", "post/*", sort => "title", num => 2)],
21         ["post/1", "post/2"]);
22 is_deeply([pagespec_match_list("foo", "post/*", sort => "title", num => 50)],
23         ["post/1", "post/2", "post/3"]);
24 is_deeply([pagespec_match_list("foo", "post/*", sort => "title",
25                          limit => sub { $_[0] !~ /3/}) ],
26         ["post/1", "post/2"]);
27 my $r=eval { pagespec_match_list("foo", "beep") };
28 ok(eval { pagespec_match_list("foo", "beep") } == 0);
29 ok(! $@, "does not fail with error when unable to match anything");
30 eval { pagespec_match_list("foo", "this is not a legal pagespec!") };
31 ok($@, "fails with error when pagespec bad");