9 my $url = 'https://en.wikinews.org';
10 my $mw = MediaWiki
::API
->new();
11 $mw->{config
}->{api_url
} = $url.'/w/api.php';
13 my $prefix = "$url/wiki";
16 WikiLinkParser
->get_urls_by_text("[[Dog]]", $mw),
22 WikiLinkParser
->get_urls_by_text("{{sofixit}}", $mw),
23 ["$prefix/Template:Sofixit"],
24 'Gets url of a template'
28 WikiLinkParser
->get_urls_by_text("{{sofixit|1|2=35}}", $mw),
29 ["$prefix/Template:Sofixit"],
30 'Gets url of a template with params'
34 WikiLinkParser
->get_urls_by_text("[[Собака]]", $mw),
36 'Gets URL of a unicode page name properly'
40 WikiLinkParser
->get_urls_by_text("[[Собака#Что такое]]", $mw),
41 ["$prefix/Собака#.C3.90.C2.A7.C3.91.C2.82.C3.90.C2.BE_.C3.91.C2.82.C3.90.C2.B0.C3.90.C2.BA.C3.90.C2.BE.C3.90.C2.B5"],
42 'Gets URL of a unicode section name properly'
46 WikiLinkParser
->get_urls_by_text("[[Dog#What is]]", $mw),
47 ["$prefix/Dog#What_is"],
48 'Gets a section name with spaces properly'
51 WikiLinkParser
->get_urls_by_text("[[wikipedia:fr:Dog]]", $mw),
52 ['https://en.wikipedia.org/wiki/fr:Dog'], # this forwards to fr.wp.org
53 'Gets interwiki links properly'
56 WikiLinkParser
->get_urls_by_text("[[{{Sofixit}}]]", $mw),
57 ['', "$prefix/Template:Sofixit"],
58 "Does not parse [[]]s with rubbish in them"