File: links.t

package info (click to toggle)
libparse-mediawikidump-perl 0.40-2
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 116 kB
  • ctags: 58
  • sloc: perl: 782; xml: 80; makefile: 46; sql: 16
file content (23 lines) | stat: -rwxr-xr-x 399 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
#!perl 

use Test::Simple tests =>4;
use strict;
use warnings;
use Parse::MediaWikiDump;

my $file = 'links_test.sql';

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

my $sum;
my $last_link;

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

ok($sum == 92288);
ok($last_link->from == 7759);
ok($last_link->to eq 'Recentchanges');
ok($last_link->namespace == -1);