/trunk/t/27-prefixindex.t

http://perlwikipedia.googlecode.com/ · Raku · 22 lines · 17 code · 5 blank · 0 comment · 0 complexity · 003b2804e624eab5c933ea02e9058012 MD5 · raw file 

    

  1. use strict;
    2. 

  2. use warnings;
    3. 

  3. use Test::More tests => 4;
    4. 

  4. 

  5. use MediaWiki::Bot;
    6. 

  6. my $t = __FILE__;
    7. 

  7. 

  8. my $bot = MediaWiki::Bot->new({
    9. 

  9.     agent   => "MediaWiki::Bot tests ($t)",
    10. 

  10.     host    => 'test.wikipedia.org',
    11. 

  11. });
    12. 

  12. 

  13. if(defined($ENV{'PWPMakeTestSetWikiHost'})) {
    14. 

  14.     $bot->set_wiki($ENV{'PWPMakeTestSetWikiHost'}, $ENV{'PWPMakeTestSetWikiDir'});
    15. 

  15. }
    16. 

  16. 

  17. my @pages = $bot->prefixindex('User:Mike.lifeguard/27-prefixindex.t');
    18. 

  18. 

  19. is(scalar @pages, 3, 'Correct number of pages');
    20. 

  20. is($pages[0]->{'title'}, 'User:Mike.lifeguard/27-prefixindex.t',     'Page 0 correct');
    21. 

  21. is($pages[1]->{'title'}, 'User:Mike.lifeguard/27-prefixindex.t/one', 'Page 1 correct');
    22. 

  22. is($pages[2]->{'title'}, 'User:Mike.lifeguard/27-prefixindex.t/two', 'Page 2 correct');
    23.