X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class-DeploymentHandler.git;a=blobdiff_plain;f=t%2Fpostgresql%2Fbasic.t;fp=t%2Fpostgresql%2Fbasic.t;h=47a0238ad3038e79c63007765c87baff509333b8;hp=af580ba83c04300e11780e7f3d485455c2206094;hb=606558576b9c849f4b2a68c9d0709a3ef61e477a;hpb=cdb45dee99a52a37f6e61bfbec2e4af8f3a59f51

diff --git a/t/postgresql/basic.t b/t/postgresql/basic.t
index af580ba..47a0238 100644
--- a/t/postgresql/basic.t
+++ b/t/postgresql/basic.t
@@ -19,8 +19,8 @@ my $dbh = DBI->connect("DBI:Pg:dbname=test;host=127.0.0.1;port=${\$testdb->port}
 
 VERSION1: {
   use_ok 'DBICVersion_v1';
-  $DBICVersion::Schema::VERSION = 1;
-  ok my $schema = DBICVersion::Schema->connect(sub { $dbh }),
+  $DBICVersion::Schema1::VERSION = 1;
+  ok my $schema = DBICVersion::Schema1->connect(sub { $dbh }),
     'got schema';
 
   ok my $dbic_dh = build_dh($schema),
@@ -35,8 +35,8 @@ VERSION1: {
 
 VERSION2: {
   use_ok 'DBICVersion_v2';
-  $DBICVersion::Schema::VERSION = 2;
-  ok my $schema = DBICVersion::Schema->connect(sub { $dbh }),
+  $DBICVersion::Schema2::VERSION = 2;
+  ok my $schema = DBICVersion::Schema2->connect(sub { $dbh }),
     'got schema';
 
   ok my $dbic_dh = build_dh($schema,1),
@@ -78,7 +78,7 @@ sub make_perl_runfile {
     my $perl_run,
     ">",
     catfile('t','share','var','pg-deploy','PostgreSQL', 'deploy', '1', '002-test.pl')
-  ) || die "Cannot open: $!";
+  ) || do { $testdb->stop(POSIX::SIGINT); die "Cannot open: $!"};
 
   print $perl_run <<'END';
   sub {