allow for platform-specific file separator

diff --git a/Changes b/Changes
index 5dac611..88522fe 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 Release history for strictures
 
+  - fix failing test on MSWin32 (path separators)
+
 0.001001 - 2014-10-01
   - fix to test for 5.21.4 (RT#99195, Father Chrysostomos)
 

diff --git a/t/example.t b/t/example.t
index 207d556..7ab914a 100644 (file)
--- a/t/example.t
+++ b/t/example.t
@@ -3,6 +3,7 @@ use warnings FATAL => 'all';
 use if $] <= 5.010000, 'Test::More', skip_all => 'This test requires 5.10';
 use Test::More qw(no_plan);
 use lib::with::preamble 'use v5.10;', 't/lib';
+use File::Spec;
 
 ok(eval { require my_given_example; 1 }, 'Loaded module');
 
@@ -12,5 +13,5 @@ is(result_for(1), 'positive');
 is(result_for(-1), 'negative');
 is(result_for(0), 'zero');
 
-is(my_given_example::my_file(), 't/lib/my_given_example.pm');
+is(my_given_example::my_file(), File::Spec->catfile(qw(t lib my_given_example.pm)));
 is(my_given_example::my_line(), 12);