From b778d0b9dd6550490dfaf61c3f7259b6fbcc9421 Mon Sep 17 00:00:00 2001
From: brian d foy <briandfoy@pobox.com>
Date: Thu, 29 Feb 2024 18:26:12 -0500
Subject: [PATCH] Get to 100% coverage

---
 MANIFEST          |  3 +++
 t/business-isbn.t | 24 ++++++++++++++++++++++++
 t/get_data.t      | 36 ++++++++++++++++++++++++++++++++++++
 t/parse.t         | 24 ++++++++++++++++++++++++
 4 files changed, 87 insertions(+)
 create mode 100644 t/business-isbn.t
 create mode 100644 t/get_data.t
 create mode 100644 t/parse.t

diff --git a/MANIFEST b/MANIFEST
index 13ead03..e334f16 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -10,9 +10,12 @@ Makefile.PL
 MANIFEST			This list of files
 MANIFEST.SKIP
 README.pod
+t/business-isbn.t
 t/check_data_structure.t
 t/default_data.t
+t/get_data.t
 t/load.t
+t/parse.t
 t/pod.t
 t/pod_coverage.t
 t/test_manifest
diff --git a/t/business-isbn.t b/t/business-isbn.t
new file mode 100644
index 0000000..012d20b
--- /dev/null
+++ b/t/business-isbn.t
@@ -0,0 +1,24 @@
+use Test::More;
+
+use File::Basename;
+
+my $class = 'Business::ISBN::Data';
+use_ok $class;
+
+my @subs = qw(
+	isbn_data_source
+	);
+
+can_ok 'Business::ISBN', @subs;
+
+subtest 'source' => sub {
+	ok exists $Business::ISBN::country_data{'_source'}, 'country_data has _source';
+	like $Business::ISBN::country_data{'_source'}, qr/RangeMessage\.xml/, 'source is RangeMessage';
+	is Business::ISBN::isbn_data_source(), $Business::ISBN::country_data{'_source'}, 'isbn_data_source returns _source';
+
+	delete local $Business::ISBN::country_data{'_source'};
+	unlike $Business::ISBN::country_data{'_source'}, qr/RangeMessage\.xml/, 'source is not RangeMessage';
+	is basename( Business::ISBN::isbn_data_source() ), 'Data.pm', 'source is module';
+	};
+
+done_testing();
diff --git a/t/get_data.t b/t/get_data.t
new file mode 100644
index 0000000..685d99a
--- /dev/null
+++ b/t/get_data.t
@@ -0,0 +1,36 @@
+use Test::More;
+
+use File::Basename;
+
+my $class = 'Business::ISBN::Data';
+use_ok $class;
+
+my @subs = qw(
+	_get_data
+	);
+
+can_ok $class, @subs;
+
+subtest 'ISBN_RANGE_MESSAGE exists' => sub {
+	my $file = 'lib/Business/ISBN/RangeMessage.xml';
+	ok -e $file, "$file exists";
+	local $ENV{ISBN_RANGE_MESSAGE} = $file;
+
+	my %data = Business::ISBN::Data->_get_data();
+	ok exists $data{'_source'}, '_source exists in hash';
+	is $data{'_source'}, $file, '_source is the file';
+	};
+
+subtest 'ISBN_RANGE_MESSAGE does not exist' => sub {
+	my $file = 'lib/Business/ISBN/RangeMessage.yaml';
+	ok ! -e $file, "$file does not exist";
+	local $ENV{ISBN_RANGE_MESSAGE} = $file;
+
+	diag( "This will be a warning here" );
+	my %data = Business::ISBN::Data->_get_data();
+	diag( "There should be no more warnings" );
+	ok exists $data{'_source'}, '_source exists in hash';
+	like $data{'_source'}, qr|lib/Business/ISBN/RangeMessage.xml\z|, '_source is distributed file';
+	};
+
+done_testing();
diff --git a/t/parse.t b/t/parse.t
new file mode 100644
index 0000000..68ff20a
--- /dev/null
+++ b/t/parse.t
@@ -0,0 +1,24 @@
+use Test::More;
+
+use File::Basename;
+
+my $class = 'Business::ISBN::Data';
+use_ok $class;
+
+my @subs = qw(
+	_parse_range_message
+	);
+
+can_ok $class, @subs;
+
+subtest 'file does not exist' => sub {
+	my $file = 'lib/Business/ISBN/RangeMessage.yamml';
+	ok ! -e $file, "$file does not exist";
+
+	diag( "This will be a warning here" );
+	my $result = Business::ISBN::Data::_parse_range_message( $file );
+	diag( "There should be no more warnings" );
+	ok ! defined $result, "_parse_range_message returns undef if file does not exist";
+	};
+
+done_testing();