File: 90-compat-links.t

package info (click to toggle)
libmediawiki-dumpfile-perl 0.2.2-1
  • links: PTS, VCS
  • area: main
  • in suites: buster, stretch
  • size: 464 kB
  • ctags: 274
  • sloc: perl: 2,003; ansic: 508; xml: 268; sql: 47; makefile: 17; sh: 2
file content (26 lines) | stat: -rw-r--r-- 446 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
#!perl 

use Test::Simple tests =>4;
use strict;
use warnings;
use MediaWiki::DumpFile::Compat;

use Data::Dumper;

my $file = 't/compat.links_test.sql';

my $links = Parse::MediaWikiDump->links($file);

my $sum;
my $last_link;

while(my $link = $links->next) {
	$sum += $link->from;
	$last_link = $link;
}

ok($sum == 92288);
ok($last_link->from == 3955);
ok($last_link->to eq '...Baby_One_More_Time_(single)');
ok($last_link->namespace == 0);