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),
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),
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 {