From: Karen Etheridge <ether@cpan.org>
Date: Fri, 8 Feb 2013 01:54:26 +0000 (-0800)
Subject: fix tests for MooseX::ConfigFromFile 0.08
X-Git-Tag: v0.54~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f085ee4d571b470f4dc4874dfaae7f2f542d6eba;p=gitmo%2FMooseX-Getopt.git

fix tests for MooseX::ConfigFromFile 0.08
---

diff --git a/t/008_configfromfile.t b/t/008_configfromfile.t
index 3e420ac..5d3b03d 100644
--- a/t/008_configfromfile.t
+++ b/t/008_configfromfile.t
@@ -93,7 +93,7 @@ my %constructor_args;
     use Moose;
     extends 'App';
 
-    around configfile => sub { '/notused/default' };
+    sub _get_default_configfile { '/notused/default' }
 }
 
 
@@ -146,7 +146,11 @@ my %constructor_args;
         );
     }
 
-    {
+    SKIP: {
+        eval "use MooseX::ConfigFromFile 0.08 (); 1;";
+        diag("MooseX::ConfigFromFile 0.08 needed to test this use of configfile defaults"),
+        skip "MooseX::ConfigFromFile 0.08 needed to test this use of configfile defaults", 7 if $@;
+
         my $app = App::ConfigFileWrapped->new_with_options;
         isa_ok( $app, 'App::ConfigFileWrapped' );
         app_ok( $app );
@@ -215,7 +219,7 @@ my %constructor_args;
             'correct constructor args passed',
         );
     }
-    TODO: {
+    {
         my $app = App::ConfigFileWrapped->new_with_options;
         isa_ok( $app, 'App::ConfigFileWrapped' );
         app_ok( $app );
@@ -223,10 +227,6 @@ my %constructor_args;
         ok( $app->config_from_override,
              '... config_from_override true as expected' );
 
-# FIXME - in order for this to work, we need to fix CFF so the
-# configfile method always returns the actual value of the attribute,
-# not the default sub thingy.
-        local $TODO = 'MooseX::ConfigFromFile needs fixes';
         is( $app->configfile, path('/notused/override'),
             '... configfile is /notused as expected' );