sub run_method_tests {
($class, $method, %correct) = @_;
for $col (sort keys %correct) {
sub run_method_tests {
($class, $method, %correct) = @_;
for $col (sort keys %correct) {
skip $skip_msg, $skip_howmany if $err;
$DB_Class->db_Main->do("drop table if exists $table;");
$DB_Class->db_Main->do($sql);
skip $skip_msg, $skip_howmany if $err;
$DB_Class->db_Main->do("drop table if exists $table;");
$DB_Class->db_Main->do($sql);
run_method_tests($DB_Class,'column_type', %correct_types);
run_method_tests($DB_Class,'column_default', %correct_defaults);
run_method_tests($DB_Class,'column_nullable', %correct_nullables);
run_method_tests($DB_Class,'column_type', %correct_types);
run_method_tests($DB_Class,'column_default', %correct_defaults);
run_method_tests($DB_Class,'column_nullable', %correct_nullables);