X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ficdt%2Fengine_specific%2Finformix.t;h=4a6231c054ce6879f1b082c17946a12ee1f6963c;hb=bbf6a9a5d39cbf1c9d22cccd298ae95ac0fef694;hp=339d8cb7c667bdb79b4a0fa399f563e17cea8865;hpb=2baba3d9dbc029462c5ce8e2b86c74ed650b22c0;p=dbsrgits%2FDBIx-Class.git diff --git a/t/icdt/engine_specific/informix.t b/t/icdt/engine_specific/informix.t index 339d8cb..4a6231c 100644 --- a/t/icdt/engine_specific/informix.t +++ b/t/icdt/engine_specific/informix.t @@ -1,12 +1,12 @@ -use DBIx::Class::Optional::Dependencies -skip_all_without => qw( icdt test_rdbms_informix ); +use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt test_rdbms_informix ); use strict; use warnings; use Test::More; +use DBIx::Class::_Util 'scope_guard'; use lib qw(t/lib); use DBICTest; -use Scope::Guard (); my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_INFORMIX_${_}" } qw/DSN USER PASS/}; my $schema; @@ -16,7 +16,7 @@ my $schema; on_connect_call => [ 'datetime_setup' ], }); - my $sg = Scope::Guard->new(sub { cleanup($schema) } ); + my $sg = scope_guard { cleanup($schema) }; eval { $schema->storage->dbh->do('DROP TABLE event') }; $schema->storage->dbh->do(<<'SQL');