X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F112_configfile_constructor_arg.t;h=d17c2d4b1aede09b211ba0cb47a990bccfe023ec;hb=40a0a2081957d55e49da795a9255db61be85fe2d;hp=9465eded8c39c5af22c552c06e1f9b58e349d8c3;hpb=9fbb5be9dcf64475fb6f4d25807db1e952be2365;p=gitmo%2FMooseX-Getopt.git diff --git a/t/112_configfile_constructor_arg.t b/t/112_configfile_constructor_arg.t index 9465ede..d17c2d4 100644 --- a/t/112_configfile_constructor_arg.t +++ b/t/112_configfile_constructor_arg.t @@ -1,14 +1,18 @@ use strict; use warnings; -use Test::Requires - 'MooseX::SimpleConfig'; # skip all if not installed - # respect the configfile value passed into the constructor. +use Test::Requires 'MooseX::SimpleConfig'; # skip all if not installed use Test::More tests => 3; use Test::NoWarnings 1.04 ':early'; -use Path::Class; # exports file, dir +use Path::Tiny; + +# avoid warning if all we have installed is YAML or YAML::Syck - the user will +# see this eventually when he actually uses MooseX::SimpleConfig in his own +# code +use Config::Any::YAML; +$Config::Any::YAML::NO_YAML_XS_WARNING = 1; { package Foo; @@ -22,12 +26,12 @@ use Path::Class; # exports file, dir } { - my $configfile = file(qw(t 112_configfile_constructor_arg.yml))->stringify; + my $configfile = path(qw(t 112_configfile_constructor_arg.yml))->stringify; my $obj = Foo->new_with_options(configfile => $configfile); is( - $obj->configfile, + path($obj->configfile), $configfile, 'configfile value is used from the constructor', );