use Test::More;
use Test::Exception;
-use Scope::Guard ();
use Try::Tiny;
use DBIx::Class::Optional::Dependencies ();
+use DBIx::Class::_Util 'scope_guard';
use lib qw(t/lib);
use DBICTest;
or
(not $dsn || $dsn2);
+DBICTest::Schema->load_classes('ArtistGUID');
+
# tests stolen from 748informix.t
plan skip_all => <<'EOF' unless $dsn || $dsn2;
_USER and _PASS to run these tests
EOF
-require DBICTest::Schema;
-DBICTest::Schema->load_classes('ArtistGUID');
-
my @info = (
[ $dsn, $user, $pass ],
[ $dsn2, $user2, $pass2 ],
auto_savepoint => 1
});
- my $guard = Scope::Guard->new(sub{ cleanup($schema) });
+ my $guard = scope_guard { cleanup($schema) };
my $dbh = $schema->storage->dbh;
id INT NOT NULL PRIMARY KEY,
bytea INT NULL,
blob LONG BINARY NULL,
- blob2 LONG BINARY NULL,
clob LONG VARCHAR NULL,
- clob2 LONG VARCHAR NULL,
a_memo INT NULL
)
],{ RaiseError => 1, PrintError => 1 });