File: version_synch.t

package info (click to toggle)
libxml-easy-perl 0.011-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 520 kB
  • sloc: perl: 2,200; makefile: 3
file content (17 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
 
use warnings;
use strict;

use Test::More tests => 14;

BEGIN { require_ok "XML::Easy"; }
my $main_ver = $XML::Easy::VERSION;
ok defined($main_ver), "have main version number";

foreach my $submod (qw(Classify Content Element NodeBasics Syntax Text)) {
	my $mod = "XML::Easy::$submod";
	require_ok $mod;
	no strict "refs";
	is ${"${mod}::VERSION"}, $main_ver, "$mod version number matches";
}

1;