fix test for Win32

bayashi · Mar 12, 2015 · 41c3bf9 · 41c3bf9
1 parent 683a103
commit 41c3bf9
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/Build.PL b/Build.PL
@@ -15,6 +15,7 @@ my $builder = Module::Build->new(
         'Test::More' => 0.88,
         'Plack::Builder' => 0,
         'HTTP::Request::Common' => 0,
+        'File::Spec' => 0,
         'Plack::Test' => 0,
     },
     requires => {

diff --git a/t/01_basic.t b/t/01_basic.t
@@ -2,6 +2,7 @@ use warnings;
 use strict;
 use Plack::Builder;
 use HTTP::Request::Common;
+use File::Spec;
 use Plack::Test;
 use Test::More;
 
@@ -65,7 +66,8 @@ use Test::More;
         like $res->content, qr{module:};
         like $res->content, qr{name:.*Plack::Middleware::ModuleInfo};
         like $res->content, qr{version:.*$Plack::Middleware::ModuleInfo::VERSION};
-        like $res->content, qr{file:.*Plack/Middleware/ModuleInfo};
+        my $expect = File::Spec->catfile(qw/Plack Middleware ModuleInfo/);
+        like $res->content, qr{file:.*$expect};
 
         note $res->content if $ENV{AUTHOR_TEST};
     };