- #run_method_tests($DB_Class,'column_default', %correct_defaults);
- #run_method_tests($DB_Class,'column_nullable', %correct_defaults);
+ run_method_tests($DB_Class,'column_default', %correct_defaults);
+ run_method_tests($DB_Class,'column_nullable', %correct_nullables);
+
+
+ foreach my $colname ( @{$DB_Class->required_columns()} ) {
+ ok($correct_nullables{$colname} == 0,"nullable column $colname is required (via required_columns)");
+ }
+
+ foreach my $colname (keys %correct_nullables) {
+ ok( $DB_Class->column_required($colname) == !$correct_nullables{$colname}, "nullable column $colname is required (via column_required)" )
+ }
+
+ ok($DB_Class->required_columns([qw/style name tasted score/]), 'set required column(s)');
+
+ foreach my $colname ( @{$DB_Class->required_columns()} ) {
+ ok($correct_nullables{$colname} == 0 || $colname eq 'score',"nullable or required column $colname is required (via required_columns)" );
+ }
+
+ foreach my $colname (keys %correct_nullables) {
+ if ($colname eq 'score') {
+ ok( $DB_Class->column_required($colname) == 0, "nullable column $colname is required (via column_required)");
+ } else {
+ ok( $DB_Class->column_required($colname) == !$correct_nullables{$colname}, "nullable column $colname is required (via column_required)");
+ }
+ }