r66686 - in /branches/upstream/librose-db-object-perl/current: Changes META.yml Makefile.PL lib/Rose/DB/Object.pm t/db-object-loader-7.t

[periapt-guest at users.alioth.debian.org]

Author: periapt-guest
Date: Fri Dec 31 08:50:43 2010
New Revision: 66686

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=66686
Log:
[svn-upgrade] new version librose-db-object-perl (0.794)

Modified:
    branches/upstream/librose-db-object-perl/current/Changes
    branches/upstream/librose-db-object-perl/current/META.yml
    branches/upstream/librose-db-object-perl/current/Makefile.PL
    branches/upstream/librose-db-object-perl/current/lib/Rose/DB/Object.pm
    branches/upstream/librose-db-object-perl/current/t/db-object-loader-7.t

Modified: branches/upstream/librose-db-object-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-object-perl/current/Changes?rev=66686&op=diff
==============================================================================
--- branches/upstream/librose-db-object-perl/current/Changes (original)
+++ branches/upstream/librose-db-object-perl/current/Changes Fri Dec 31 08:50:43 2010
@@ -1,3 +1,8 @@
+0.794 (12.30.2010) - John Siracusa <siracusa at gmail.com>
+
+    * Handle null default values for foreign key columns in PostgreSQL
+      (RT 64331)
+
 0.793 (12.21.2010) - John Siracusa <siracusa at gmail.com>
 
     * Corrected skip count in t/db-object.t

Modified: branches/upstream/librose-db-object-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-object-perl/current/META.yml?rev=66686&op=diff
==============================================================================
--- branches/upstream/librose-db-object-perl/current/META.yml (original)
+++ branches/upstream/librose-db-object-perl/current/META.yml Fri Dec 31 08:50:43 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Rose-DB-Object
-version:            0.793
+version:            0.794
 abstract:           Extensible, high performance object-relational mapper (ORM).
 author:
     - John Siracusa <siracusa at gmail.com>
@@ -23,7 +23,7 @@
     Math::BigInt:         1.77
     perl:                 5.006000
     Rose::DateTime::Util:  0.532
-    Rose::DB:             0.762
+    Rose::DB:             0.763
     Rose::Object:         0.854
     Scalar::Util:         0
     Test::More:           0

Modified: branches/upstream/librose-db-object-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-object-perl/current/Makefile.PL?rev=66686&op=diff
==============================================================================
--- branches/upstream/librose-db-object-perl/current/Makefile.PL (original)
+++ branches/upstream/librose-db-object-perl/current/Makefile.PL Fri Dec 31 08:50:43 2010
@@ -32,7 +32,7 @@
                 #'Scalar::Util::Clone' => '0.04',
                 'Rose::DateTime::Util' => '0.532',
                 'Rose::Object'         => '0.854',
-                'Rose::DB'             => '0.762',
+                'Rose::DB'             => '0.763',
               },
               clean => { FILES => "t/*.db" },
               AUTHOR => 'John Siracusa <siracusa at gmail.com>',

Modified: branches/upstream/librose-db-object-perl/current/lib/Rose/DB/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-object-perl/current/lib/Rose/DB/Object.pm?rev=66686&op=diff
==============================================================================
--- branches/upstream/librose-db-object-perl/current/lib/Rose/DB/Object.pm (original)
+++ branches/upstream/librose-db-object-perl/current/lib/Rose/DB/Object.pm Fri Dec 31 08:50:43 2010
@@ -16,7 +16,7 @@
 use Rose::DB::Object::Exception;
 use Rose::DB::Object::Util();
 
-our $VERSION = '0.793';
+our $VERSION = '0.794';
 
 our $Debug = 0;
 

Modified: branches/upstream/librose-db-object-perl/current/t/db-object-loader-7.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-object-perl/current/t/db-object-loader-7.t?rev=66686&op=diff
==============================================================================
--- branches/upstream/librose-db-object-perl/current/t/db-object-loader-7.t (original)
+++ branches/upstream/librose-db-object-perl/current/t/db-object-loader-7.t Fri Dec 31 08:50:43 2010
@@ -2,7 +2,7 @@
 
 use strict;
 
-use Test::More tests => 1 + (5 * 19);
+use Test::More tests => 1 + (5 * 20);
 
 BEGIN 
 {
@@ -53,7 +53,7 @@
 {
   SKIP:
   {
-    skip("$db_type tests", 19)  unless($Have{$db_type});
+    skip("$db_type tests", 20)  unless($Have{$db_type});
   }
 
   next  unless($Have{$db_type});
@@ -92,6 +92,15 @@
 
   my $product_class = $class_prefix . '::Product';
 
+  if($db_type =~ /^pg/)
+  {
+    is($product_class->meta->column('name_fk')->default, undef, "null default fk - $db_type");
+  }
+  else
+  {
+    SKIP: { skip("null default fk - $db_type", 1) }
+  }
+
   ok($JCS::Called_For{$product_class}, "custom metadata - $db_type");
 
   ##
@@ -229,6 +238,8 @@
 
   vendor_id  INT REFERENCES vendor (id),
 
+  name_fk VARCHAR(255) REFERENCES product (name),
+
   status  VARCHAR(128) NOT NULL DEFAULT 'inactive' 
             CHECK(status IN ('inactive', 'active', 'defunct')),
 
@@ -291,6 +302,8 @@
   price   DECIMAL(10,2) NOT NULL DEFAULT 0.00,
 
   vendor_id  INT REFERENCES Rose_db_object_private.vendor (id),
+
+  name_fk VARCHAR(255) DEFAULT NULL REFERENCES product (name),
 
   status  VARCHAR(128) NOT NULL DEFAULT 'inactive' 
             CHECK(status IN ('inactive', 'active', 'defunct')),