Add loading of DBM test cases in DBM variant plugin

perl5-dbi · Mar 15, 2014 · 28efa4e · 28efa4e
1 parent 49332da
commit 28efa4e
Show file tree

Hide file tree

Showing 5 changed files with 6 additions and 5 deletions.
diff --git a/sandbox/tim/plug/DBM/ExampleExtraTests.pm → ...lib/DBD/DBM/TestCase/ExampleExtraTests.pm b/sandbox/tim/plug/DBM/ExampleExtraTests.pm → ...lib/DBD/DBM/TestCase/ExampleExtraTests.pm
diff --git a/sandbox/tim/lib/DBITestCaseBase.pm → sandbox/tim/lib/DBI/Test/CaseBase.pm b/sandbox/tim/lib/DBITestCaseBase.pm → sandbox/tim/lib/DBI/Test/CaseBase.pm
diff --git a/sandbox/tim/lib/DBI/Test/VariantDBD/Base.pm b/sandbox/tim/lib/DBI/Test/VariantDBD/Base.pm
@@ -19,7 +19,7 @@ sub provider_initial {
         $context->new_meta_info(tdb_handle => $tdb_handle),
     );
 
-    # add DBI_USER and DBI_PASS into each variant, if defined
+    # add DBI_USER and DBI_PASS if defined
     $default_context->push_var($context->new_env_var(DBI_USER => $tdb_handle->username))
         if defined $tdb_handle->username;
     $default_context->push_var($context->new_env_var(DBI_PASS => $tdb_handle->password))

diff --git a/sandbox/tim/lib/DBI/Test/VariantDBD/DBM.pm b/sandbox/tim/lib/DBI/Test/VariantDBD/DBM.pm
@@ -47,10 +47,10 @@ sub provider {
     # affect other contexts (but does affect all variants in this context).
     #$tests->{'plugin/ExampleExtraTests.t'} = { lib => 'plug', module => 'DBM::ExampleExtraTests' };
     #
-    # $self->find_input_test_modules(
-    #   search_path => [ 'DBD::DBM::TestCases' ],
-    #   input_tests => $tests,
-    # );
+    $self->find_input_test_modules(
+       search_path => [ 'DBD::DBM::TestCase' ],
+       input_tests => $tests,
+    );
 
     return;
 }

diff --git a/sandbox/tim/tumbler.pl b/sandbox/tim/tumbler.pl
@@ -19,6 +19,7 @@
 $test_writer->write_test_variants(
     input_tests => $test_writer->find_input_test_modules(
         search_path => [ 'DBI::TestCase' ],
+        test_prefix => '',
     ),
     variant_providers => [
         "DBI::Test::VariantDBI",