Refactor tests
Tomas Doran [Fri, 13 Aug 2010 14:06:50 +0000 (15:06 +0100)]
Makefile.PL
t/11default.t
t/lib/MXDefaultMultipleConfigsTest.pm [moved from t/lib/MXDefaultWithSubConfigTest.pm with 74% similarity]

index 7f1e543..f1d0efc 100644 (file)
@@ -10,6 +10,8 @@ requires 'Moose'                      => '0.35';
 requires 'MooseX::ConfigFromFile'     => '0.02';
 requires 'Config::Any'                => '0.13';
 
+test_requires 'Test::More' => '0.88';
+
 # Rebuild README for maintainers
 system("pod2text lib/MooseX/SimpleConfig.pm >README") and die
     if $Module::Install::AUTHOR;
index 1c17662..0011e35 100644 (file)
@@ -5,9 +5,11 @@ use warnings;
 
 use lib 't/lib';
 use lib '../t/lib';
-
+use Test::More;
+our @classes;
 BEGIN {
-    use Test::More;
+
+    @classes = qw/ MXDefaultConfigTest MXDefaultMultipleConfigsTest /;
 
     eval "use YAML::Syck ()";
     if($@) {
@@ -16,11 +18,8 @@ BEGIN {
             plan skip_all => "YAML or YAML::Syck required for this test";
         }
     }
-    
-    plan tests => 7;
 
-    use_ok('MXDefaultConfigTest');
-    use_ok('MXDefaultWithSubConfigTest');
+    use_ok($_) for @classes;
 }
 
 # Can it load a simple YAML file with the options
@@ -31,8 +30,11 @@ BEGIN {
     print $test_yaml "direct_attr: 123\ninherited_ro_attr: asdf\nreq_attr: foo\n";
     close($test_yaml);
 
+}
+
+foreach my $class (@classes) {
     my $foo = eval {
-        MXDefaultConfigTest->new_with_config();
+        $class->new_with_config();
     };
     ok(!$@, 'Did not die with good YAML configfile')
         or diag $@;
@@ -40,12 +42,8 @@ BEGIN {
     is($foo->req_attr, 'foo', 'req_attr works');
     is($foo->direct_attr, 123, 'direct_attr works');
     is($foo->inherited_ro_attr, 'asdf', 'inherited_ro_attr works');
-
-    $foo = eval {
-        MXDefaultWithSubConfigTest->new_with_config();
-    };
-    ok(!$@, 'Did not die with good YAML configfile')
-        or diag $@;
 }
 
+done_testing;
+
 END { unlink('test.yaml') }
similarity index 74%
rename from t/lib/MXDefaultWithSubConfigTest.pm
rename to t/lib/MXDefaultMultipleConfigsTest.pm
index 7703775..0319e52 100644 (file)
@@ -1,4 +1,4 @@
-package MXDefaultWithSubConfigTest;
+package MXDefaultMultipleConfigsTest;
 use Moose;
 with 'MooseX::SimpleConfig';
 
@@ -9,7 +9,6 @@ has 'direct_attr' => (is => 'ro', isa => 'Int');
 has 'req_attr' => (is => 'rw', isa => 'Str', required => 1);
 
 has '+configfile' => ( default => sub { [ 'test.yaml' ] } );
-#has '+configfile' => ( default => 'test.yaml' );
 
 no Moose;
 1;