From: t0m Date: Sun, 5 Jul 2009 23:55:54 +0000 (+0100) Subject: Fix tests from RT#44909 X-Git-Tag: 0_19~6 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d1e5e4256ca75af1c8be51f86b3d6321f0a3f506;p=gitmo%2FMooseX-Getopt.git Fix tests from RT#44909 --- diff --git a/ChangeLog b/ChangeLog index 5317faa..2dcf4f1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -2,6 +2,7 @@ Revision history for Perl extension MooseX-Getopt * Tests - Fix warning from tests with new Moose (t0m) + - Fix tests on Win32 from RT#44909 (taro-nishino) 0.18 Thu. April 9 2009 * MooseX::Getopt::Dashes diff --git a/t/008_configfromfile.t b/t/008_configfromfile.t index 93700b9..292e6f5 100644 --- a/t/008_configfromfile.t +++ b/t/008_configfromfile.t @@ -5,6 +5,7 @@ use warnings; use Test::Exception; use Test::More; +use File::Spec; if ( !eval { require MooseX::ConfigFromFile } ) { @@ -55,7 +56,8 @@ else optional_from_config => 'from_config_2', ); - if ( $file ne '/notused/default' ) { + my $cpath = File::Spec->canonpath('/notused/default'); + if ( $file ne $cpath ) { $config{config_from_override} = 1; } @@ -70,7 +72,7 @@ else extends 'App'; has '+configfile' => ( - default => '/notused/default', + default => File::Spec->canonpath('/notused/default'), ); } @@ -88,7 +90,7 @@ else ok( !$app->config_from_override, '... config_from_override false as expected' ); - is( $app->configfile, '/notused/default', + is( $app->configfile, File::Spec->canonpath('/notused/default'), '... configfile is /notused/default as expected' ); } } @@ -111,7 +113,7 @@ else ok( $app->config_from_override, '... config_from_override true as expected' ); - is( $app->configfile, '/notused', + is( $app->configfile, File::Spec->canonpath('/notused'), '... configfile is /notused as expected' ); } }