tasted => 'date',
created => '(time|time)',
modified => '(date|time)',
tasted => 'date',
created => '(time|time)',
modified => '(date|time)',
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);
SKIP: {
skip $skip_msg, $skip_howmany if $err;
$DB_Class->table($table);
SKIP: {
skip $skip_msg, $skip_howmany if $err;
$DB_Class->table($table);
- run_method_tests($DB_Class,'column_default', %correct_defaults);
- run_method_tests($DB_Class,'column_nullable', %correct_nullables);
+ # No support default
+ #run_method_tests($DB_Class,'column_default', %correct_defaults);
+ # I think sqlite driver allows everything to be nullable.
+ #run_method_tests($DB_Class,'column_nullable', %correct_nullables);