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

[glasser at bestpractical.com]

Author: glasser
Date: Sun May 22 22:54:32 2005
New Revision: 2930

Modified:
   DBIx-SearchBuilder/trunk/   (props changed)
   DBIx-SearchBuilder/trunk/t/01records.t
   DBIx-SearchBuilder/trunk/t/02records_object.t
   DBIx-SearchBuilder/trunk/t/utils.pl
Log:
 r32862 at net-95869:  glasser | 2005-05-22 21:56:28 -0400
 make a DBIx::SearchBuilder local branch to work on reblessing, etc
 r32863 at net-95869:  glasser | 2005-05-22 22:37:52 -0400
 Wrong argument to Connect
 r32864 at net-95869:  glasser | 2005-05-22 22:52:33 -0400
 Add Postgres versions of the new tests


Modified: DBIx-SearchBuilder/trunk/t/01records.t
==============================================================================
--- DBIx-SearchBuilder/trunk/t/01records.t	(original)
+++ DBIx-SearchBuilder/trunk/t/01records.t	Sun May 22 22:54:32 2005
@@ -196,6 +196,18 @@
 
 }
 
+sub schema_pg {
+<<EOF;
+CREATE TEMPORARY TABLE Address (
+        id serial PRIMARY KEY,
+        Name varchar,
+        Phone varchar,
+        EmployeeId integer
+)
+EOF
+
+}
+
 sub schema_sqlite {
 
 <<EOF;

Modified: DBIx-SearchBuilder/trunk/t/02records_object.t
==============================================================================
--- DBIx-SearchBuilder/trunk/t/02records_object.t	(original)
+++ DBIx-SearchBuilder/trunk/t/02records_object.t	Sun May 22 22:54:32 2005
@@ -89,6 +89,21 @@
 } ]
 }
 
+sub schema_pg {
+[ q{
+CREATE TEMPORARY TABLE Employees (
+	id serial PRIMARY KEY,
+	Name varchar
+)
+}, q{
+CREATE TEMPORARY TABLE Phones (
+	id serial PRIMARY KEY,
+	Employee integer references Employees(id),
+	Phone varchar
+)
+} ]
+}
+
 package TestApp::Employee;
 
 use base qw/DBIx::SearchBuilder::Record/;

Modified: DBIx-SearchBuilder/trunk/t/utils.pl
==============================================================================
--- DBIx-SearchBuilder/trunk/t/utils.pl	(original)
+++ DBIx-SearchBuilder/trunk/t/utils.pl	Sun May 22 22:54:32 2005
@@ -92,7 +92,18 @@
 		Driver => 'mysql',
 		Database => $ENV{'SB_TEST_MYSQL'},
 		User => $ENV{'SB_TEST_MYSQL_USER'} || 'root',
-		Pass => $ENV{'SB_TEST_MYSQL_PASS'} || '',
+		Password => $ENV{'SB_TEST_MYSQL_PASS'} || '',
+	);
+}
+
+sub connect_pg
+{
+	my $handle = shift;
+	return $handle->Connect(
+		Driver => 'Pg',
+		Database => $ENV{'SB_TEST_PG'},
+		User => $ENV{'SB_TEST_PG_USER'} || 'postgres',
+		Password => $ENV{'SB_TEST_PG_PASS'} || '',
 	);
 }