summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChad Granum <exodist7@gmail.com>2016-01-24 19:27:35 -0800
committerChad Granum <exodist7@gmail.com>2016-01-24 19:28:11 -0800
commitf7c9dfda73b690e58b74772cffe01af89ad3dba8 (patch)
tree67f88ca9bcec7f16bc836abc9e37c0fe0a063ee7
parent039d7f24a349398841b58d393f6f9df6bb574bb4 (diff)
Fix tests on windows
Fixes #1
-rw-r--r--Changes2
-rw-r--r--t/units.t10
2 files changed, 7 insertions, 5 deletions
diff --git a/Changes b/Changes
index 6f99274..6e73261 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
{{$NEXT}}
+ - Quote filename in regex so windows can pass tests
+
0.008 2016-01-24 13:59:48-08:00 America/Los_Angeles
- New Feature: Custom export asignments
diff --git a/t/units.t b/t/units.t
index 846d8b5..a61c3f8 100644
--- a/t/units.t
+++ b/t/units.t
@@ -62,7 +62,7 @@ subtest _version_check => sub {
my $file = __FILE__;
like(
$error,
- qr/version 100 required.*at $file line $line/,
+ qr/version 100 required.*at \Q$file\E line $line/,
"Got expected error"
);
};
@@ -234,7 +234,7 @@ subtest menu => sub {
my $line;
like(
dies { $line = __LINE__; $one->menu() },
- qr/menu\(\) requires the name of the destination package at ${\__FILE__} line $line/,
+ qr/menu\(\) requires the name of the destination package at \Q${\__FILE__}\E line $line/,
"Need 'into' package"
);
};
@@ -245,7 +245,7 @@ subtest reload_menu => sub {
my $line;
like(
dies { $line = __LINE__; $one->reload_menu() },
- qr/menu\(\) requires the name of the destination package at ${\__FILE__} line $line/,
+ qr/menu\(\) requires the name of the destination package at \Q${\__FILE__}\E line $line/,
"Need 'into' package"
);
@@ -261,13 +261,13 @@ subtest reload_menu => sub {
like(
dies { $line = __LINE__; $CLASS->new(from => 'Fake::Exporter4')->reload_menu('fake') },
- qr/'Fake::Exporter4' provides both 'generate' and 'export_gen' in its IMPORTER_MENU \(They are exclusive, module must pick 1\) at ${\__FILE__} line $line/,
+ qr/'Fake::Exporter4' provides both 'generate' and 'export_gen' in its IMPORTER_MENU \(They are exclusive, module must pick 1\) at \Q${\__FILE__}\E line $line/,
"Bad IMPORT_MENU"
);
like(
dies { $line = __LINE__; $CLASS->new(from => 'Fake::Exporter5')->reload_menu('fake') },
- qr/'Fake::Exporter5' does not provide any exports at ${\__FILE__} line $line/,
+ qr/'Fake::Exporter5' does not provide any exports at \Q${\__FILE__}\E line $line/,
"No exports, not an exporter"
);