File: 30-links-compat.t

package info (click to toggle)
libparse-mediawikidump-perl 1.0.6-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 228 kB
  • sloc: perl: 1,156; xml: 205; sql: 16; makefile: 2
file content (23 lines) | stat: -rw-r--r-- 397 bytes parent folder | download | duplicates (4) 
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 = 't/links_test.sql';

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

my $sum;
my $last_link;

while(my $link = $links->link) {
	$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);