Special-case the default deferrable value in tests

dbsrgits · Nov 3, 2015 · 2ec331e · 2ec331e
1 parent 50c0834
commit 2ec331e
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/lib/Test/SQL/Translator.pm b/lib/Test/SQL/Translator.pm
@@ -49,7 +49,7 @@ my %ATTRIBUTES = (
     constraint => {
         name             => '',
         type             => '',
-        deferrable       => 1,
+        deferrable       => 0,
         expression       => '',
         is_valid         => 1,
         fields           => [],
@@ -135,6 +135,11 @@ sub default_attribs {
         $hashref->{ $attr } = $ATTRIBUTES{ $object_type }{ $attr }
     }
 
+    # Special case
+    if ($object_type eq 'constraint' and $hashref->{type} eq FOREIGN_KEY) {
+        $hashref->{deferrable} = 1;
+    }
+
     return $hashref;
 }