$dsns{$_}{user} = $ENV{"DBICTEST_${_}_USER"};
$dsns{$_}{password} = $ENV{"DBICTEST_${_}_PASS"};
$dsns{$_}{connect_info_opts} = { on_connect_call => 'use_softcommit' }
- if /\AFIREBIRD(?:_INTERBASE)\z/;
+ if /\AFIREBIRD(?:_INTERBASE)?\z/;
};
plan skip_all => 'You need to set the DBICTEST_FIREBIRD_DSN, _USER and _PASS and/or the DBICTEST_FIREBIRD_ODBC_DSN, _USER and _PASS and/or the DBICTEST_FIREBIRD_INTERBASE_DSN, _USER and _PASS environment variables'
null => '',
preserve_case_mode_is_exclusive => 1,
quote_char => '"',
- connect_info => [ values %dsns ],
+ connect_info => [ map { $dsns{$_} } sort keys %dsns ],
data_types => {
# based on the Interbase Data Definition Guide
# http://www.ibphoenix.com/downloads/60DataDef.zip
},
extra => {
count => 9,
+ create => [
+ q{
+ CREATE TABLE "Firebird_Loader_Test1" (
+ "Id" INTEGER NOT NULL PRIMARY KEY,
+ "Foo" INTEGER DEFAULT 42
+ )
+ },
+ q{
+ CREATE GENERATOR "Gen_Firebird_Loader_Test1_Id"
+ },
+ q{
+ CREATE TRIGGER "Firebird_Loader_Test1_BI" for "Firebird_Loader_Test1"
+ ACTIVE BEFORE INSERT POSITION 0
+ AS
+ BEGIN
+ IF (NEW."Id" IS NULL) THEN
+ NEW."Id" = GEN_ID("Gen_Firebird_Loader_Test1_Id",1);
+ END
+ },
+ ],
+ pre_drop_ddl => [
+ 'DROP TRIGGER "Firebird_Loader_Test1_BI"',
+ 'DROP GENERATOR "Gen_Firebird_Loader_Test1_Id"',
+ 'DROP TABLE "Firebird_Loader_Test1"',
+ ],
run => sub {
$schema = shift;
my ($monikers, $classes, $self) = @_;
- cleanup_extra();
-
my $dbh = $schema->storage->dbh;
# create a mixed case table
$dbh->do($_) for (
-q{
- CREATE TABLE "Firebird_Loader_Test1" (
- "Id" INTEGER NOT NULL PRIMARY KEY,
- "Foo" INTEGER DEFAULT 42
- )
-},
-q{
- CREATE GENERATOR "Gen_Firebird_Loader_Test1_Id"
-},
-q{
- CREATE TRIGGER "Firebird_Loader_Test1_BI" for "Firebird_Loader_Test1"
- ACTIVE BEFORE INSERT POSITION 0
- AS
- BEGIN
- IF (NEW."Id" IS NULL) THEN
- NEW."Id" = GEN_ID("Gen_Firebird_Loader_Test1_Id",1);
- END
-},
);
- my $guard = Scope::Guard->new(\&cleanup_extra);
-
local $schema->loader->{preserve_case} = 1;
$schema->loader->_setup;
$tester->run_tests();
}
-sub cleanup_extra {
- $schema->storage->disconnect;
- my $dbh = $schema->storage->dbh;
-
- foreach my $stmt (
- 'DROP TRIGGER "Firebird_Loader_Test1_BI"',
- 'DROP GENERATOR "Gen_Firebird_Loader_Test1_Id"',
- 'DROP TABLE "Firebird_Loader_Test1"',
- ) {
- eval { $dbh->do($stmt) };
- }
-}
# vim:et sts=4 sw=4 tw=0: