From: Karen Etheridge <ether@cpan.org>
Date: Sun, 13 May 2012 16:49:44 +0000 (-0700)
Subject: avoid MSWin32 test failures
X-Git-Tag: v0.45~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=395546ae669e90119cc4982df88c57297c850770;p=gitmo%2FMooseX-Getopt.git

avoid MSWin32 test failures
---

diff --git a/Changes b/Changes
index b44d69b..f94fee9 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,8 @@
 Revision history for Perl extension MooseX-Getopt
 
 {{$NEXT}}
+ - use Path::Class in test to avoid test failures on MSWin32 with filename
+   construction
 
 0.44      2012-05-11 10:44:48 PDT-0700
  - now respecting value of configfile passed to the constructor, when used in
diff --git a/dist.ini b/dist.ini
index 4279a7d..0ec91e3 100644
--- a/dist.ini
+++ b/dist.ini
@@ -32,6 +32,7 @@ Test::Warn = 0.21
 Test::More = 0.88
 Test::Requires = 0.05
 Test::Trap = 0
+Path::Class = 0
 
 [Test::DistManifest]
 [Test::Compile]
diff --git a/t/112_configfile_constructor_arg.t b/t/112_configfile_constructor_arg.t
index 746e62a..1798a65 100644
--- a/t/112_configfile_constructor_arg.t
+++ b/t/112_configfile_constructor_arg.t
@@ -7,6 +7,7 @@ use Test::Requires
 # respect the configfile value passed into the constructor.
 
 use Test::More tests => 2;
+use Path::Class;    # exports file, dir
 
 {
     package Foo;
@@ -20,7 +21,7 @@ use Test::More tests => 2;
 }
 
 {
-    my $configfile = 't/112_configfile_constructor_arg.yml';
+    my $configfile = file(qw(t 112_configfile_constructor_arg.yml))->stringify;
 
     my $obj = Foo->new_with_options(configfile => $configfile);