Skip to content

Commit

Permalink
Fix CPANTESTERS errors
Browse files Browse the repository at this point in the history
Tests are failing on all MSWin32 computers, because windows uses a
backslash (not a slash) to separate file paths
  • Loading branch information
egiles committed May 5, 2024
1 parent f7a0b40 commit 85baf8c
Show file tree
Hide file tree
Showing 4 changed files with 8 additions and 3 deletions.
3 changes: 3 additions & 0 deletions Changes
Original file line number Diff line number Diff line change
@@ -1,5 +1,8 @@
Revision history for Perl extension Test-Compile

v3.3.3 2024-05-06
- Be more careful about windows filenames

v3.3.2 2024-05-03
- Require a newer version of Test::More (fix CPAN testing failure?)
- Don't add an unnecassary "./" to the start of filepaths (CPAN-RT 151090)
Expand Down
2 changes: 1 addition & 1 deletion lib/Test/Compile.pm
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@ package Test::Compile;
use warnings;
use strict;

use version; our $VERSION = version->declare("v3.3.2");
use version; our $VERSION = version->declare("v3.3.3");
use parent 'Exporter';
use Test::Compile::Internal;

Expand Down
2 changes: 1 addition & 1 deletion lib/Test/Compile/Internal.pm
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@ package Test::Compile::Internal;
use warnings;
use strict;

use version; our $VERSION = version->declare("v3.3.2");
use version; our $VERSION = version->declare("v3.3.3");
use File::Find;
use File::Spec;
use Test::Builder;
Expand Down
4 changes: 3 additions & 1 deletion t/100-internal--default_locations.t
Original file line number Diff line number Diff line change
Expand Up @@ -5,6 +5,7 @@ use warnings;

use Test::More;
use Test::Compile::Internal;
use File::Spec;

my $internal = Test::Compile::Internal->new();
my @locations;
Expand Down Expand Up @@ -33,7 +34,8 @@ if ( -e 'blib' ) {
@locations = $internal->_default_locations("lib");

# Then
is($locations[0], "blib/lib", "prefer to look in blib if it's available");
my $expected = File::Spec->catfile("blib", "lib");
is($locations[0], $expected, "prefer to look in blib if it's available");
}


Expand Down

0 comments on commit 85baf8c

Please sign in to comment.