X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F18firebird_common.t;h=9d71c1cd36637771a45d2a1d7ce465fb94ae85a4;hb=04dcecc885a874d392a63cc65d405b6e904b210f;hp=6143e9d1aff7a9359f26fc2977f16d60f7f2eada;hpb=4145a6f3b1d5ba46a566f9675b5563cee04cdc9b;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/t/18firebird_common.t b/t/18firebird_common.t
index 6143e9d..9d71c1c 100644
--- a/t/18firebird_common.t
+++ b/t/18firebird_common.t
@@ -1,10 +1,19 @@
 use strict;
+use warnings;
+use Test::More;
+use Scope::Guard ();
 use lib qw(t/lib);
 use dbixcsl_common_tests;
 
-my $dsn      = $ENV{DBICTEST_FIREBIRD_DSN} || '';
-my $user     = $ENV{DBICTEST_FIREBIRD_USER} || '';
-my $password = $ENV{DBICTEST_FIREBIRD_PASS} || '';
+my $dbd_interbase_dsn      = $ENV{DBICTEST_FIREBIRD_DSN} || '';
+my $dbd_interbase_user     = $ENV{DBICTEST_FIREBIRD_USER} || '';
+my $dbd_interbase_password = $ENV{DBICTEST_FIREBIRD_PASS} || '';
+
+my $odbc_dsn      = $ENV{DBICTEST_FIREBIRD_ODBC_DSN} || '';
+my $odbc_user     = $ENV{DBICTEST_FIREBIRD_ODBC_USER} || '';
+my $odbc_password = $ENV{DBICTEST_FIREBIRD_ODBC_PASS} || '';
+
+my $schema;
 
 my $tester = dbixcsl_common_tests->new(
     vendor      => 'Firebird',
@@ -32,21 +41,106 @@ my $tester = dbixcsl_common_tests->new(
         );
     },
     null        => '',
-    dsn         => $dsn,
-    user        => $user,
-    password    => $password,
-    connect_info_opts => { on_connect_call => 'use_softcommit' },
+    loader_options => { unquoted_ddl => 1 },
+    connect_info => [ ($dbd_interbase_dsn ? {
+            dsn         => $dbd_interbase_dsn,
+            user        => $dbd_interbase_user,
+            password    => $dbd_interbase_password,
+            connect_info_opts => { on_connect_call => 'use_softcommit' },
+        } : ()),
+        ($odbc_dsn ? {
+            dsn         => $odbc_dsn,
+            user        => $odbc_user,
+            password    => $odbc_password,
+        } : ()),
+    ],
+    extra => {
+        count  => 7,
+        run    => sub {
+            $schema = shift;
+
+            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);
+
+            delete $schema->_loader->{unquoted_ddl};
+
+            my $warning;
+            {
+                local $SIG{__WARN__} = sub { $warning = shift };
+                $schema->_loader->_setup;
+            }
+            like $warning, qr/unquoted_ddl option/,
+                'warning mentions unquoted_ddl option';
+
+            {
+                local $SIG{__WARN__} = sub {};
+                $schema->rescan;
+            }
+
+            ok ((my $rsrc = eval { $schema->resultset('FirebirdLoaderTest1')->result_source }),
+                'got rsrc for mixed case table');
+
+            ok ((my $col_info = eval { $rsrc->column_info('Id') }),
+                'got column_info for column Id');
+
+            is $col_info->{accessor}, 'id', 'column Id has lowercase accessor "id"';
+
+            is $col_info->{is_auto_increment}, 1, 'is_auto_increment detected for mixed case trigger';
+
+            is $col_info->{sequence}, 'Gen_Firebird_Loader_Test1_Id', 'correct mixed case sequence name';
+
+            is eval { $rsrc->column_info('Foo')->{default_value} }, 42, 'default_value detected for mixed case column';
+        },
+    },
 );
 
-if( !$dsn ) {
-    $tester->skip_tests('You need to set the DBICTEST_FIREBIRD_DSN, _USER, and _PASS environment variables');
+if (not ($dbd_interbase_dsn || $odbc_dsn)) {
+    $tester->skip_tests('You need to set the DBICTEST_FIREBIRD_DSN, _USER and _PASS and/or the DBICTEST_FIREBIRD_ODBC_DSN, _USER and _PASS environment variables');
 }
 else {
     # get rid of stupid warning from InterBase/GetInfo.pm
-    {
+    if ($dbd_interbase_dsn) {
         local $SIG{__WARN__} = sub {};
         require DBD::InterBase;
         require DBD::InterBase::GetInfo;
     }
     $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) };
+    }
+}