X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F72pg.t;h=f0bb3f81f15b60ce095ecf697f5355122ce89968;hb=2cc3a7be3;hp=3e55bcb099ebe7ccc9e5045402f66e1fc7a75aa4;hpb=ae51573612aec70814b81bfe0c3683b824564368;p=dbsrgits%2FDBIx-Class.git

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;