Fetch a data set known to be large in the test suite

Previously, we requested a list of pages from a namespace
that had been cleaned up, leaving less than 500 pages. Instead,
use the User namespace, which still has lots of pages. This
should resolve some spurious test failures.

Author: Mike.lifeguard

t/14-get_pages_in_namespace.t

@@ -14,21 +14,18 @@ if(defined($ENV{'PWPMakeTestSetWikiHost'})) {
     $bot->set_wiki($ENV{'PWPMakeTestSetWikiHost'}, $ENV{'PWPMakeTestSetWikiDir'});
 }
 
-my $namespace_id = 10;
-my $page_limit = 1;
-
-my @pages = $bot->get_pages_in_namespace($namespace_id);
-like($pages[0], qr/^Template:/, 'Template namespace found');
+my $template_ns = 10;
+my @pages = $bot->get_pages_in_namespace($template_ns);
+like $pages[0] => qr/^Template:/, 'Template namespace found';
 
-@pages = $bot->get_pages_in_namespace($namespace_id, $page_limit);
-is(scalar @pages, $page_limit, 'Correct number of pages retrieved');
-
-$namespace_id = 'non-existent';
-@pages = $bot->get_pages_in_namespace($namespace_id);
+my $page_limit = 1;
+@pages = $bot->get_pages_in_namespace($template_ns, $page_limit);
+is scalar @pages, $page_limit, 'Correct number of pages retrieved';
 
-is($pages[0], undef, 'Error code received');
-is($bot->{error}->{code}, 3, 'Error code in MediaWiki::Bot object');
+@pages = $bot->get_pages_in_namespace('non-existent');
+is $pages[0], undef, 'Error code received';
+is $bot->{error}->{code}, 3, 'Error code in MediaWiki::Bot object';
 
-$namespace_id = 6;
-@pages = $bot->get_pages_in_namespace($namespace_id, 'max', { max => 0 });
-cmp_ok(scalar @pages, '>', 500, 'Got more than 500 pages'); # RT 66790
+@pages = $bot->get_pages_in_namespace(2, 'max', { max => 0 });
+cmp_ok scalar @pages, '>', 500, 'Got more than 500 pages'
+    or diag explain \@pages; # RT 66790