Firebird: unquoted_ddl option. Revert wrapped dbic code in common tests.

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / lib / dbixcsl_firebird_extra_tests.pm

package dbixcsl_firebird_extra_tests;

use strict;
use warnings;
use Test::More;
use Test::Exception;

sub extra { +{
    pre_drop_ddl => [
        q{DROP TRIGGER "Firebird_Loader_Test1_BI"},
        q{DROP GENERATOR "Gen_Firebird_Loader_Test1_Id"},
    ],
    drop   => [
        q{"Firebird_Loader_Test1"}
    ],
    count  => 6,
    run    => sub {
        my ($schema, $monikers, $classes) = @_;

        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
},
        );

        $schema->_loader->{unquoted_ddl} = 0;
        $schema->_loader->_setup;
        {
            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';
    },
}}

1;