[perl-ExtUtils-Depends] Fix win32 test failure in t/02_save_load.t
- From: Torsten Schönfeld <tsch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [perl-ExtUtils-Depends] Fix win32 test failure in t/02_save_load.t
- Date: Sat, 10 May 2014 14:17:46 +0000 (UTC)
commit 5976a6e63249a28134c5d823286dceff205a25e6
Author: C.H. Kang <AERO cpan org>
Date: Sat May 10 16:16:46 2014 +0200
Fix win32 test failure in t/02_save_load.t
t/02_save_load.t | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/t/02_save_load.t b/t/02_save_load.t
index 101acf8..c68fa3f 100644
--- a/t/02_save_load.t
+++ b/t/02_save_load.t
@@ -80,7 +80,7 @@ like ($info->{inc}, $install_part);
isnt (index($info->{inc}, $inc), -1);
my @typemaps_expected = map { my $t = $_; $t =~ s#build/##; $t } @typemaps;
-sub strip_typemap { my $t = $_; $t =~ s#.*DepTest/Install/##; $t }
+sub strip_typemap { my $t = $_; my $tmp = catfile('DepTest','Install',' '); $tmp =~ s# $##; $t =~
s#.*\Q$tmp\E##; $t }
is_deeply (
[ map { strip_typemap($_) } @{$info->{typemaps}} ],
\ typemaps_expected,
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]