X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F18firebird_common.t;h=342d88550361179d0bd0ce26cf221f92123add1b;hb=c9cf9b4def5db80a79facea0eaba6dc32ac1e2c3;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..342d885 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,155 @@ my $tester = dbixcsl_common_tests->new( ); }, null => '', - dsn => $dsn, - user => $user, - password => $password, - connect_info_opts => { on_connect_call => 'use_softcommit' }, + preserve_case_mode_is_exclusive => 1, + quote_char => '"', + warnings => [ qr/'preserve_case' option/ ], + 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, + } : ()), + ], + data_types => { + # based on the Interbase Data Definition Guide + # http://www.ibphoenix.com/downloads/60DataDef.zip + # + # Numeric types + 'smallint' => { data_type => 'smallint' }, + 'int' => { data_type => 'integer' }, + 'integer' => { data_type => 'integer' }, + 'bigint' => { data_type => 'bigint' }, + 'float' => { data_type => 'real' }, + 'double precision' => + { data_type => 'double precision' }, + 'real' => { data_type => 'real' }, + + 'float(2)' => { data_type => 'real' }, + 'float(7)' => { data_type => 'real' }, + 'float(8)' => { data_type => 'double precision' }, + + 'decimal' => { data_type => 'decimal' }, + 'dec' => { data_type => 'decimal' }, + 'numeric' => { data_type => 'numeric' }, + + 'decimal(3)' => { data_type => 'decimal', size => [3,0] }, + + 'decimal(3,3)' => { data_type => 'decimal', size => [3,3] }, + 'dec(3,3)' => { data_type => 'decimal', size => [3,3] }, + 'numeric(3,3)' => { data_type => 'numeric', size => [3,3] }, + + 'decimal(6,3)' => { data_type => 'decimal', size => [6,3] }, + 'numeric(6,3)' => { data_type => 'numeric', size => [6,3] }, + + 'decimal(12,3)' => { data_type => 'decimal', size => [12,3] }, + 'numeric(12,3)' => { data_type => 'numeric', size => [12,3] }, + + 'decimal(18,18)' => { data_type => 'decimal', size => [18,18] }, + 'dec(18,18)' => { data_type => 'decimal', size => [18,18] }, + 'numeric(18,18)' => { data_type => 'numeric', size => [18,18] }, + + # Date and Time Types + 'date' => { data_type => 'date' }, + 'timestamp default current_timestamp' + => { data_type => 'timestamp', default_value => \'current_timestamp' }, + 'time' => { data_type => 'time' }, + + # String Types + 'char' => { data_type => 'char', size => 1 }, + 'char(11)' => { data_type => 'char', size => 11 }, + 'varchar(20)' => { data_type => 'varchar', size => 20 }, + + # Blob types + 'blob' => { data_type => 'blob' }, + 'blob sub_type text' + => { data_type => 'blob sub_type text' }, + }, + extra => { + count => 6, + 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); + + local $schema->_loader->{preserve_case} = 1; + $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'; + }, + }, ); -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) }; + } +}