From: Matt S Trout <mst@shadowcat.co.uk>
Date: Fri, 26 May 2006 14:36:38 +0000 (+0000)
Subject: hopefully fixup pg tests (thanks to zby, all bugs mine)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=89add887f3cda5c8c2d45399ba35a1b3dcbb1b4d;p=dbsrgits%2FDBIx-Class-Historic.git

hopefully fixup pg tests (thanks to zby, all bugs mine)
---

diff --git a/t/72pg.t b/t/72pg.t
index 3e55bcb..f0bb3f8 100644
--- a/t/72pg.t
+++ b/t/72pg.t
@@ -5,6 +5,20 @@ use Test::More;
 use lib qw(t/lib);
 use DBICTest;
 
+{
+  package DBICTest::Schema::Casecheck;
+
+  use strict;
+  use warnings;
+  use base 'DBIx::Class';
+
+  __PACKAGE__->load_components(qw/PK::Auto Core/);
+  __PACKAGE__->table('casecheck');
+  __PACKAGE__->add_columns(qw/id name NAME uc_name/);
+  __PACKAGE__->set_primary_key('id');
+
+}
+
 my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_PG_${_}" } qw/DSN USER PASS/};
 
 #warn "$dsn $user $pass";
@@ -14,6 +28,7 @@ plan skip_all => 'Set $ENV{DBICTEST_PG_DSN}, _USER and _PASS to run this test'
 
 plan tests => 8;
 
+DBICTest::Schema->load_classes( 'Casecheck' );
 DBICTest::Schema->compose_connection('PgTest' => $dsn, $user, $pass);
 
 my $dbh = PgTest->schema->storage->dbh;
diff --git a/t/lib/DBICTest/Schema.pm b/t/lib/DBICTest/Schema.pm
index 1fd503c..72e1da6 100644
--- a/t/lib/DBICTest/Schema.pm
+++ b/t/lib/DBICTest/Schema.pm
@@ -11,7 +11,6 @@ __PACKAGE__->load_classes(qw/
   CD
   Link
   Bookmark
-  #Casecheck
   #dummy
   Track
   Tag