my $correct = $correct{$col};
like($val, qr/$correct/,"$method $col is $val");
}
my $correct = $correct{$col};
like($val, qr/$correct/,"$method $col is $val");
}
$DB_Class->db_Main->do("drop table if exists $table;");
$DB_Class->db_Main->do($sql);
$DB_Class->table($table);
$DB_Class->db_Main->do("drop table if exists $table;");
$DB_Class->db_Main->do($sql);
$DB_Class->table($table);
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);
SKIP: {
skip $skip_msg, $skip_howmany if $err;
$DB_Class->table($table);
SKIP: {
skip $skip_msg, $skip_howmany if $err;
$DB_Class->table($table);