From 66d9669819a37b8d63ea2dca08ee16ac408184a6 Mon Sep 17 00:00:00 2001 From: brian d foy Date: Thu, 29 Feb 2024 18:52:29 -0500 Subject: [PATCH] Check basename so I don't deal with windows paths --- t/get_data.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/get_data.t b/t/get_data.t index 685d99a..7a3e952 100644 --- a/t/get_data.t +++ b/t/get_data.t @@ -30,7 +30,7 @@ subtest 'ISBN_RANGE_MESSAGE does not exist' => sub { 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'; + is basename($data{'_source'}), 'RangeMessage.xml', '_source is distributed file'; }; done_testing();