7 use Test::Fatal qw(lives_ok dies_ok);
8 use aliased 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator';
9 use File::Temp 'tempdir';
15 my $dbh = DBICDHTest::dbh();
16 my $sql_dir = tempdir( CLEANUP => 1 );
17 my @connection = (sub { $dbh }, { ignore_version => 1 });
19 use_ok 'DBICVersion_v1';
20 my $s = DBICVersion::Schema->connect(@connection);
21 my $dm = Translator->new({
23 script_directory => $sql_dir,
26 my ($fname1, $fname2) = @_;
29 my $fh = File::Temp->new(UNLINK => 0);
30 print {$fh} 'sub leak {} sub { leak() }';
31 $fname1 = $fh->filename;
36 my $fh = File::Temp->new(UNLINK => 0);
37 print {$fh} 'sub { leak() }';
38 $fname2 = $fh->filename;
42 $dm->_run_perl($fname1, [1]);
43 dies_ok { $dm->_run_perl($fname2, [1]) } 'info should not leak between coderefs';
47 END { unlink $fname1; unlink $fname2 }