festival.edmaven.com:80

Linux b747.shapiroconsult.com 3.10.0-1160.119.1.vz7.224.4 #1 SMP Mon Sep 30 15:36:27 MSK 2024 x86_64
Apache
173.231.212.80

File Name : check_data_structure.t

#!/usr/bin/perl

use Test::More 0.95;

use File::Spec::Functions qw(catfile);

subtest 'setup' => sub {
	use_ok( 'Business::ISBN::Data' );
	ok( %Business::ISBN::country_data );
	};

subtest 'current_data' => sub {
	# Test with included RangeMessage.xml in the same spot as the module
	like( $Business::ISBN::country_data{_source}, qr/RangeMessage\.xml/ );
	like( $Business::ISBN::country_data{_source}, qr/blib/ );
	foreach my $key ( sort { $a <=> $b } grep { ! /\A_/ } keys %Business::ISBN::country_data )
		{
		my $value = $Business::ISBN::country_data{$key};
		isa_ok( $value, ref [], "Value is array ref for country $key" );

my( $country, $ranges ) = @$value;

my $count = @$ranges;

ok( ($count % 2) == 0, "Even number of elements ($count) for country $key" );
		}
	};

subtest 'current_data' => sub {
	# Test with RangeMessage.xml set in ISBN_RANGE_MESSAGE
	local $ENV{ISBN_RANGE_MESSAGE} = catfile( qw(lib Business ISBN RangeMessage.xml) );
	local %Business::ISBN::country_data = Business::ISBN::Data::_get_data();
	ok( -e $ENV{ISBN_RANGE_MESSAGE}, 'Alternate RangeMessage.xml exists' );
	unlike( $Business::ISBN::country_data{_source}, qr/blib/ );
	like( $Business::ISBN::country_data{_source}, qr/RangeMessage\.xml/ );
	foreach my $key ( sort { $a <=> $b } grep { ! /\A_/ } keys %Business::ISBN::country_data )
		{
		my $value = $Business::ISBN::country_data{$key};
		isa_ok( $value, ref [], "Value is array ref for country $key" );

my( $country, $ranges ) = @$value;

my $count = @$ranges;

ok( ($count % 2) == 0, "Even number of elements ($count) for country $key" );
		}
	};

subtest 'current_data' => sub {
	# Test with default data
	local %Business::ISBN::country_data = Business::ISBN::Data::_default_data();
	like( $Business::ISBN::country_data{_source}, qr/Data\.pm/ );

foreach my $key ( sort { $a <=> $b } grep { ! /\A_/ } keys %Business::ISBN::country_data )
		{
		my $value = $Business::ISBN::country_data{$key};
		isa_ok( $value, ref [], "Value is array ref for country $key" );

my( $country, $ranges ) = @$value;

my $count = @$ranges;

ok( ($count % 2) == 0, "Even number of elements ($count) for country $key" );
		}
	};

done_testing();

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2016-10-20 04:37:10
..	dir	-	root/root	0755	2016-10-20 04:37:10
check_data_structure.t	text/x-perl	2.13 KB	root/root	0644	2012-07-26 01:57:40
load.t	text/plain	198 B	root/root	0644	2012-07-26 01:57:40
pod.t	text/plain	129 B	root/root	0644	2012-07-26 01:57:40
pod_coverage.t	text/plain	210 B	root/root	0644	2012-07-26 01:57:40
test_manifest	text/plain	51 B	root/root	0644	2012-07-26 01:57:40