use warnings;
use Test::More;
-use Test::Exception;
use DBIx::Class::Optional::Dependencies ();
use lib qw(t/lib);
use DBICTest;
on_connect_call => [ 'datetime_setup' ],
});
- my $sg = Scope::Guard->new(\&cleanup);
+ my $sg = Scope::Guard->new(sub { cleanup($schema) } );
eval { $schema->storage->dbh->do('DROP TABLE event') };
$schema->storage->dbh->do(<<'SQL');
my $row;
ok( $row = $rs->create({
id => 1,
- starts_at => $date_only,
+ starts_at => $date_only,
created_on => $dt,
}));
ok( $row = $rs->search({ id => 1 }, { select => [qw/starts_at created_on/] })
# clean up our mess
sub cleanup {
- my $dbh;
+ my $schema = shift;
+ my $dbh;
eval {
$dbh = $schema->storage->dbh;
};