Update the load tests, and show Business::ISBN::Data details

briandfoy · Jul 18, 2023 · fc77482 · fc77482
1 parent 79ad7fb
commit fc77482
Showing 1 changed file with 15 additions and 6 deletions.
diff --git a/t/load.t b/t/load.t
@@ -1,8 +1,17 @@
-BEGIN { @classes = map { "Business::ISBN$_" } '',  '10', '13' }
+use Test::More;
 
-use Test::More tests => scalar @classes;
-
-foreach my $class ( @classes )
-	{
-	print "Bail out!\n" unless use_ok( $class );
+my @classes = (
+	'Business::ISBN',
+	map { "Business::ISBN$_" } '',  '10', '13'
+	);
+
+
+foreach my $class ( @classes ) {
+	BAIL_OUT("Bail out! $class could not be loaded: $@")
+		unless use_ok( $class );
 	}
+
+diag( "Business::ISBN::Data version: " . Business::ISBN::Data->VERSION );
+diag( "Business::ISBN::Data location: " . $INC{'Business/ISBN/Data.pm'} );
+
+done_testing();