Move old Mock tests out of the t folder (for reference)

t-mock/DBI/simple/dvd_dbm.t

@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::dbm;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::dbm", ['dbi:DBM:',undef,undef,{}]);
+DBI::Test::Case::DBI::simple::dbm->run_test($test_case_conf);
+

t-mock/DBI/simple/dvd_file.t

@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::file;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::file", ['dbi:DBM:',undef,undef,{}]);
+DBI::Test::Case::DBI::simple::file->run_test($test_case_conf);
+

t-mock/DBI/simple/dvds_dbm.t

@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+use lib ".";
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::dbm;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::dbm", ['dbi:DBM:',undef,undef,{dbm_type => 'SDBM_File'}]);
+DBI::Test::Case::DBI::simple::dbm->run_test($test_case_conf);
+

t-mock/DBI/simple/dvdsd_dbm.t

@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::dbm;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::dbm", ['dbi:DBM:',undef,undef,{dbm_mldbm => 'Data::Dumper',dbm_type => 'SDBM_File'}]);
+DBI::Test::Case::DBI::simple::dbm->run_test($test_case_conf);
+

t-mock/DBI/simple/dvdsf_dbm.t

@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::dbm;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::dbm", ['dbi:DBM:',undef,undef,{dbm_mldbm => 'FreezeThaw',dbm_type => 'SDBM_File'}]);
+DBI::Test::Case::DBI::simple::dbm->run_test($test_case_conf);
+

t-mock/DBI/simple/dvdss_dbm.t

@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::dbm;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::dbm", ['dbi:DBM:',undef,undef,{dbm_mldbm => 'Storable',dbm_type => 'SDBM_File'}]);
+DBI::Test::Case::DBI::simple::dbm->run_test($test_case_conf);
+

t-mock/DBI/simple/dvf_file.t

@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::file;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::file", ['dbi:File:',undef,undef,{}]);
+DBI::Test::Case::DBI::simple::file->run_test($test_case_conf);
+

t-mock/DBI/simple/sql_engine.t

@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::sql_engine;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::sql_engine", ['dbi:File:',undef,undef,{}]);
+DBI::Test::Case::DBI::simple::sql_engine->run_test($test_case_conf);
+

t-mock/DBI/simple/zvg_dvd_dbm.t

@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+BEGIN {
+$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=null;policy=pedantic'
+}
+
+END {
+delete $ENV{DBI_AUTOPROXY};
+}
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::dbm;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::dbm", ['dbi:DBM:',undef,undef,{}]);
+DBI::Test::Case::DBI::simple::dbm->run_test($test_case_conf);
+

t-mock/DBI/simple/zvg_dvd_file.t

@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+BEGIN {
+$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=null;policy=pedantic'
+}
+
+END {
+delete $ENV{DBI_AUTOPROXY};
+}
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::file;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::file", ['dbi:DBM:',undef,undef,{}]);
+DBI::Test::Case::DBI::simple::file->run_test($test_case_conf);
+

t-mock/DBI/simple/zvg_dvds_dbm.t

@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+BEGIN {
+$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=null;policy=pedantic'
+}
+
+END {
+delete $ENV{DBI_AUTOPROXY};
+}
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::dbm;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::dbm", ['dbi:DBM:',undef,undef,{dbm_type => 'SDBM_File'}]);
+DBI::Test::Case::DBI::simple::dbm->run_test($test_case_conf);
+

t-mock/DBI/simple/zvg_dvdsd_dbm.t

@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+BEGIN {
+$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=null;policy=pedantic'
+}
+
+END {
+delete $ENV{DBI_AUTOPROXY};
+}
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::dbm;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::dbm", ['dbi:DBM:',undef,undef,{dbm_mldbm => 'Data::Dumper',dbm_type => 'SDBM_File'}]);
+DBI::Test::Case::DBI::simple::dbm->run_test($test_case_conf);
+

t-mock/DBI/simple/zvg_dvdsf_dbm.t

@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+BEGIN {
+$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=null;policy=pedantic'
+}
+
+END {
+delete $ENV{DBI_AUTOPROXY};
+}
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::dbm;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::dbm", ['dbi:DBM:',undef,undef,{dbm_mldbm => 'FreezeThaw',dbm_type => 'SDBM_File'}]);
+DBI::Test::Case::DBI::simple::dbm->run_test($test_case_conf);
+

t-mock/DBI/simple/zvg_dvdss_dbm.t

@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+BEGIN {
+$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=null;policy=pedantic'
+}
+
+END {
+delete $ENV{DBI_AUTOPROXY};
+}
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::dbm;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::dbm", ['dbi:DBM:',undef,undef,{dbm_mldbm => 'Storable',dbm_type => 'SDBM_File'}]);
+DBI::Test::Case::DBI::simple::dbm->run_test($test_case_conf);
+

t-mock/DBI/simple/zvg_dvf_file.t

@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+BEGIN {
+$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=null;policy=pedantic'
+}
+
+END {
+delete $ENV{DBI_AUTOPROXY};
+}
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::file;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::file", ['dbi:File:',undef,undef,{}]);
+DBI::Test::Case::DBI::simple::file->run_test($test_case_conf);
+

t-mock/DBI/simple/zvg_sql_engine.t

@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+BEGIN {
+$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=null;policy=pedantic'
+}
+
+END {
+delete $ENV{DBI_AUTOPROXY};
+}
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::sql_engine;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::sql_engine", ['dbi:File:',undef,undef,{}]);
+DBI::Test::Case::DBI::simple::sql_engine->run_test($test_case_conf);
+

t-mock/DBI/simple/zvgn_dvd_dbm.t

@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+BEGIN {
+$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=null;policy=pedantic';
+$ENV{DBI_SQL_NANO} = 1
+}
+
+END {
+delete $ENV{DBI_AUTOPROXY};;
+delete $ENV{DBI_SQL_NANO};
+}
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::dbm;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::dbm", ['dbi:DBM:',undef,undef,{}]);
+DBI::Test::Case::DBI::simple::dbm->run_test($test_case_conf);
+

t-mock/DBI/simple/zvgn_dvd_file.t

@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+BEGIN {
+$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=null;policy=pedantic';
+$ENV{DBI_SQL_NANO} = 1
+}
+
+END {
+delete $ENV{DBI_AUTOPROXY};;
+delete $ENV{DBI_SQL_NANO};
+}
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::file;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::file", ['dbi:DBM:',undef,undef,{}]);
+DBI::Test::Case::DBI::simple::file->run_test($test_case_conf);
+

t-mock/DBI/simple/zvgn_dvds_dbm.t

@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+BEGIN {
+$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=null;policy=pedantic';
+$ENV{DBI_SQL_NANO} = 1
+}
+
+END {
+delete $ENV{DBI_AUTOPROXY};;
+delete $ENV{DBI_SQL_NANO};
+}
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::dbm;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::dbm", ['dbi:DBM:',undef,undef,{dbm_type => 'SDBM_File'}]);
+DBI::Test::Case::DBI::simple::dbm->run_test($test_case_conf);
+

t-mock/DBI/simple/zvgn_dvdsd_dbm.t

@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+BEGIN {
+$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=null;policy=pedantic';
+$ENV{DBI_SQL_NANO} = 1
+}
+
+END {
+delete $ENV{DBI_AUTOPROXY};;
+delete $ENV{DBI_SQL_NANO};
+}
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::dbm;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::dbm", ['dbi:DBM:',undef,undef,{dbm_mldbm => 'Data::Dumper',dbm_type => 'SDBM_File'}]);
+DBI::Test::Case::DBI::simple::dbm->run_test($test_case_conf);
+

t-mock/DBI/simple/zvgn_dvdsf_dbm.t

@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+BEGIN {
+$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=null;policy=pedantic';
+$ENV{DBI_SQL_NANO} = 1
+}
+
+END {
+delete $ENV{DBI_AUTOPROXY};;
+delete $ENV{DBI_SQL_NANO};
+}
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::dbm;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::dbm", ['dbi:DBM:',undef,undef,{dbm_mldbm => 'FreezeThaw',dbm_type => 'SDBM_File'}]);
+DBI::Test::Case::DBI::simple::dbm->run_test($test_case_conf);
+

t-mock/DBI/simple/zvgn_dvdss_dbm.t

@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+BEGIN {
+$ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=null;policy=pedantic';
+$ENV{DBI_SQL_NANO} = 1
+}
+
+END {
+delete $ENV{DBI_AUTOPROXY};;
+delete $ENV{DBI_SQL_NANO};
+}
+
+use DBI::Mock;
+use DBI::Test::DSN::Provider;
+
+use DBI::Test::Case::DBI::simple::dbm;
+
+my $test_case_conf = DBI::Test::DSN::Provider->get_dsn_creds("DBI::Test::Case::DBI::simple::dbm", ['dbi:DBM:',undef,undef,{dbm_mldbm => 'Storable',dbm_type => 'SDBM_File'}]);
+DBI::Test::Case::DBI::simple::dbm->run_test($test_case_conf);
+