From: Karen Etheridge <ether@cpan.org>
Date: Thu, 2 Oct 2014 03:32:54 +0000 (-0700)
Subject: allow for platform-specific file separator
X-Git-Tag: v0.001002~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8869aac797e5484c14f2130d4b7c47e5cd1f627a;p=p5sagit%2Flib-with-preamble.git

allow for platform-specific file separator
---

diff --git a/Changes b/Changes
index 5dac611..88522fe 100644
--- 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
--- 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);