From f5da8d3aed4b710983c7492cf708d0c874bce9e7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 12 Apr 2010 15:16:57 -0400 Subject: [PATCH] more tests with more items --- t/pagespec_match_list.t | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/t/pagespec_match_list.t b/t/pagespec_match_list.t index c7688c6c0..05dc012fe 100755 --- a/t/pagespec_match_list.t +++ b/t/pagespec_match_list.t @@ -1,7 +1,7 @@ #!/usr/bin/perl use warnings; use strict; -use Test::More tests => 92; +use Test::More tests => 94; BEGIN { use_ok("IkiWiki"); } @@ -132,3 +132,14 @@ foreach my $spec ("nosuchpage or link(bar)", "link(bar) or nosuchpage", %IkiWiki::depends_simple=(); %IkiWiki::depends=(); } + +my @ps; +foreach my $p (100..500) { + $IkiWiki::pagectime{"p/$p"} = $p; + $pagesources{"p/$p"} = "p/$p.mdwn"; + unshift @ps, "p/$p"; +} +is_deeply([pagespec_match_list("foo", "p/*", sort => "age")], + [@ps]); +is_deeply([pagespec_match_list("foo", "p/*", sort => "age", num => 20)], + [@ps[0..19]]); -- 2.39.5