[Rt-commit] r3137 - in DBIx-SearchBuilder/trunk: . SearchBuilder t

[glasser at bestpractical.com]

Author: glasser
Date: Fri Jun 10 22:42:19 2005
New Revision: 3137

Modified:
   DBIx-SearchBuilder/trunk/   (props changed)
   DBIx-SearchBuilder/trunk/SearchBuilder/SchemaGenerator.pm
   DBIx-SearchBuilder/trunk/t/10schema.t
   DBIx-SearchBuilder/trunk/t/testmodels.pl
Log:
 r34816 at tin-foil:  glasser | 2005-06-10 22:41:58 -0400
 Support DEFAULT in schema.


Modified: DBIx-SearchBuilder/trunk/SearchBuilder/SchemaGenerator.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/SchemaGenerator.pm	(original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/SchemaGenerator.pm	Fri Jun 10 22:42:19 2005
@@ -129,9 +129,10 @@
     $schema->{$field}{'TYPE'} = 'integer' if $schema->{$field}{'REFERENCES'};
     
     push @cols, DBIx::DBSchema::Column->new({
-      name => $field,
-      type => $schema->{$field}{'TYPE'},
-      null => 'NULL',
+      name    => $field,
+      type    => $schema->{$field}{'TYPE'},
+      null    => 'NULL',
+      default => $schema->{$field}{'DEFAULT'},
     });
   }
   

Modified: DBIx-SearchBuilder/trunk/t/10schema.t
==============================================================================
--- DBIx-SearchBuilder/trunk/t/10schema.t	(original)
+++ DBIx-SearchBuilder/trunk/t/10schema.t	Fri Jun 10 22:42:19 2005
@@ -64,7 +64,7 @@
     CREATE TABLE Addresses ( 
       id serial NOT NULL , 
       EmployeeId integer ,
-      Name varchar ,
+      Name varchar DEFAULT 'Frank' ,
       Phone varchar ,
       PRIMARY KEY (id)
     ) ;
@@ -81,8 +81,8 @@
     is_ignoring_space($SG->CreateTableSQLText, <<END_SCHEMA, "got the right schema");
     CREATE TABLE Addresses ( 
       id serial NOT NULL , 
-      EmployeeId integer ,
-      Name varchar ,
+      EmployeeId integer  ,
+      Name varchar DEFAULT 'Frank' ,
       Phone varchar ,
       PRIMARY KEY (id)
     ) ;

Modified: DBIx-SearchBuilder/trunk/t/testmodels.pl
==============================================================================
--- DBIx-SearchBuilder/trunk/t/testmodels.pl	(original)
+++ DBIx-SearchBuilder/trunk/t/testmodels.pl	Fri Jun 10 22:42:19 2005
@@ -10,7 +10,7 @@
 
 sub Schema {
     return {
-        Name => { TYPE => 'varchar', },
+        Name => { TYPE => 'varchar', DEFAULT => 'Frank', },
         Phone => { TYPE => 'varchar', },
         EmployeeId => { REFERENCES => 'Sample::Employee', },
     }