1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
use strict;
use warnings;
use Test::Memory::Cycle tests => 15;
use Test::Warn;
use Parse::MediaWikiDump;
my $pages = Parse::MediaWikiDump->pages('t/pages_test.xml');
my $revisions = Parse::MediaWikiDump->revisions('t/revisions_test.xml');
#for bug 51461
warnings_exist {
memory_cycle_ok($pages);
while(defined(my $page = $pages->next)) {
memory_cycle_ok($page);
}
memory_cycle_ok($revisions);
while(defined(my $revision = $revisions->next)) {
memory_cycle_ok($revision);
}
} [qr/^Unhandled type: GLOB/], "Unhandled type: GLOB";
|
