use Test::Fatal to test this exception

[gitmo/MooseX-Getopt.git] / t / 112_configfile_constructor_arg.t

diff --git a/t/112_configfile_constructor_arg.t b/t/112_configfile_constructor_arg.t
index 746e62a..9465ede 100644 (file)
--- a/t/112_configfile_constructor_arg.t
+++ b/t/112_configfile_constructor_arg.t
@@ -6,7 +6,9 @@ use Test::Requires
 
 # respect the configfile value passed into the constructor.
 
-use Test::More tests => 2;
+use Test::More tests => 3;
+use Test::NoWarnings 1.04 ':early';
+use Path::Class;    # exports file, dir
 
 {
     package Foo;
@@ -20,7 +22,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);