allow for platform-specific file separator
[p5sagit/lib-with-preamble.git] / t / example.t
index 207d556..7ab914a 100644 (file)
@@ -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);