0.14 release, Changes updated, tests fixed

[catagits/Catalyst-Model-DBIC-Schema.git] / t / 05testapp.t

diff --git a/t/05testapp.t b/t/05testapp.t
index c431372..1672327 100644 (file)
--- a/t/05testapp.t
+++ b/t/05testapp.t
@@ -7,10 +7,11 @@ use File::Find;
 plan skip_all => 'Enable this optional test with $ENV{C_M_DBIC_SCHEMA_TESTAPP}'
     unless $ENV{C_M_DBIC_SCHEMA_TESTAPP};
 
+# XXX this test needs a re-write to fully test the current set of capabilities...
+
 my $test_params = [
     [ 'TestSchema', 'DBIC::Schema', '' ],
     [ 'TestSchemaDSN', 'DBIC::Schema', q{fakedsn fakeuser fakepass '{ AutoCommit => 1 }'} ],
-    [ 'TestSchemaLoader', 'DBIC::SchemaLoader', q{fakedsn fakeuser fakepass '{ AutoCommit => 1 }'} ],
 ];
 
 plan tests => (2 * @$test_params);
@@ -28,11 +29,7 @@ chdir($cat_dir);
 
 foreach my $tparam (@$test_params) {
    my ($model, $helper, $args) = @$tparam;
-   my $model_two = $model;
-   if($helper =~ /Loader/) {
-       $model_two = '';
-   }
-   system("$^X -I$blib_dir $creator model $model $helper $model_two $args");
+   system("$^X -I$blib_dir $creator model $model $helper $model $args");
    my $model_path = File::Spec->catfile($model_dir, $model . '.pm');
    ok( -f $model_path, "$model_path is a file" );
    my $compile_rv = system("$^X -I$blib_dir -I$catlib_dir -c $model_path");