+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use Scope::Guard ();
use Try::Tiny;
use DBIx::Class::Optional::Dependencies ();
-use lib qw(t/lib);
+use DBIx::Class::_Util 'scope_guard';
+
use DBICTest;
my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MSACCESS_ODBC_${_}" } qw/DSN USER PASS/};
LongReadLen => $maxloblen,
});
- 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 IMAGE NULL,
- blob2 IMAGE NULL,
clob TEXT NULL,
- clob2 TEXT NULL,
a_memo MEMO NULL
)
],{ RaiseError => 1, PrintError => 1 });