X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F008_configfromfile.t;h=9373d0f3f72abcdfd48c036b735e9f3be1c213c5;hb=11417a07c5fd2029f4d6af70a44ff698aef07ad5;hp=c40fcc66e025224b9ec0da5033ed554c6c855307;hpb=b3bb80f844ab588c96b655aece9ec05a98fe8f88;p=gitmo%2FMooseX-Getopt.git diff --git a/t/008_configfromfile.t b/t/008_configfromfile.t index c40fcc6..9373d0f 100644 --- a/t/008_configfromfile.t +++ b/t/008_configfromfile.t @@ -1,13 +1,12 @@ use strict; use warnings; +use Test::Requires 'MooseX::ConfigFromFile' => '0.06'; # skip all if not installed use Test::More tests => 38; use Test::Fatal; -use File::Spec; +use Path::Tiny; use Test::NoWarnings 1.04 ':early'; -use Test::Requires 'MooseX::ConfigFromFile'; - { package App; @@ -48,7 +47,7 @@ use Test::Requires 'MooseX::ConfigFromFile'; optional_from_config => 'from_config_2', ); - my $cpath = File::Spec->canonpath('/notused/default'); + my $cpath = Path::Tiny::path('/notused/default'); if ( $file ne $cpath ) { $config{config_from_override} = 1; } @@ -64,7 +63,7 @@ use Test::Requires 'MooseX::ConfigFromFile'; extends 'App'; has '+configfile' => ( - default => File::Spec->canonpath('/notused/default'), + default => Path::Tiny::path('/notused/default')->stringify, ); } @@ -75,7 +74,7 @@ use Test::Requires 'MooseX::ConfigFromFile'; extends 'App'; has '+configfile' => ( - default => sub { return File::Spec->canonpath('/notused/default') }, + default => sub { return Path::Tiny::path('/notused/default') }, ); } @@ -96,7 +95,7 @@ use Test::Requires 'MooseX::ConfigFromFile'; ok( !$app->config_from_override, '... config_from_override false as expected' ); - is( $app->configfile, File::Spec->canonpath('/notused/default'), + is( $app->configfile, path('/notused/default'), '... configfile is /notused/default as expected' ); } } @@ -113,7 +112,7 @@ use Test::Requires 'MooseX::ConfigFromFile'; ok( !$app->config_from_override, '... config_from_override false as expected' ); - is( $app->configfile, File::Spec->canonpath('/notused/default'), + is( $app->configfile, path('/notused/default'), '... configfile is /notused/default as expected' ); } } @@ -136,7 +135,7 @@ use Test::Requires 'MooseX::ConfigFromFile'; ok( $app->config_from_override, '... config_from_override true as expected' ); - is( $app->configfile, File::Spec->canonpath('/notused'), + is( $app->configfile, path('/notused'), '... configfile is /notused as expected' ); } { @@ -147,7 +146,7 @@ use Test::Requires 'MooseX::ConfigFromFile'; ok( $app->config_from_override, '... config_from_override true as expected' ); - is( $app->configfile, File::Spec->canonpath('/notused'), + is( $app->configfile, path('/notused'), '... configfile is /notused as expected' ); } }