+use DBIx::Class::Schema::Loader::Optional::Dependencies
+ -skip_all_without => 'test_rdbms_oracle';
+
use strict;
use warnings;
use Test::More;
my ($table, $col) = @_;
return (
qq{ CREATE SEQUENCE ${table}_${col}_seq START WITH 1 INCREMENT BY 1},
- qq{
- CREATE OR REPLACE TRIGGER ${table}_${col}_trigger
+ qq{
+ CREATE OR REPLACE TRIGGER ${table}_${col}_trg
BEFORE INSERT ON ${table}
FOR EACH ROW
BEGIN
return qq{ DROP SEQUENCE ${table}_${col}_seq };
};
-my $tester = dbixcsl_common_tests->new(
+dbixcsl_common_tests->new(
vendor => 'Oracle',
auto_inc_pk => 'INTEGER NOT NULL PRIMARY KEY',
auto_inc_cb => $auto_inc_cb,
- auto_inc_drop_cb => $auto_inc_drop_cb,
+ auto_inc_drop_cb => $auto_inc_drop_cb,
preserve_case_mode_is_exclusive => 1,
quote_char => '"',
+ default_is_deferrable => 0,
+ default_on_delete_clause => 'NO ACTION',
+ default_on_update_clause => 'NO ACTION',
dsn => $dsn,
user => $user,
password => $password,
},
extra => {
create => [
- q{
+ q{
CREATE TABLE oracle_loader_test1 (
id NUMBER(11),
value VARCHAR2(100)
},
q{ COMMENT ON TABLE oracle_loader_test1 IS 'oracle_loader_test1 table comment' },
q{ COMMENT ON COLUMN oracle_loader_test1.value IS 'oracle_loader_test1.value column comment' },
+ # 4 through 8 are used for the multi-schema tests
+ q{
+ create table oracle_loader_test9 (
+ id int primary key
+ )
+ },
+ q{
+ create table oracle_loader_test10 (
+ id int primary key,
+ nine_id int,
+ foreign key (nine_id) references oracle_loader_test9(id)
+ on delete set null deferrable
+ )
+ },
+ q{
+ create table oracle_loader_test11 (
+ id int primary key disable,
+ ten_id int unique disable,
+ foreign key (ten_id) references oracle_loader_test10(id) disable
+ )
+ },
+ $auto_inc_cb->('oracle_loader_test11', 'id'),
+ 'alter trigger oracle_loader_test11_id_trg disable',
],
- drop => [qw/oracle_loader_test1/],
- count => 3 + 30 * 2,
+ drop => [qw/oracle_loader_test1 oracle_loader_test9 oracle_loader_test10 oracle_loader_test11/],
+ count => 10 + 31 * 2, # basic + cross-schema * 2
run => sub {
my ($monikers, $classes);
($schema, $monikers, $classes) = @_;
like $code, qr/^=head2 value\n\n(.+:.+\n)+\noracle_loader_test1\.value column comment\n\n/m,
'column comment and attrs';
+ # test on delete/update fk clause introspection
+ ok ((my $rel_info = $schema->source('OracleLoaderTest10')->relationship_info('nine')),
+ 'got rel info');
+
+ is $rel_info->{attrs}{on_delete}, 'SET NULL',
+ 'ON DELETE clause introspected correctly';
+
+ is $rel_info->{attrs}{on_update}, 'NO ACTION',
+ 'ON UPDATE clause set to NO ACTION by default';
+
+ is $rel_info->{attrs}{is_deferrable}, 1,
+ 'DEFERRABLE clause introspected correctly';
+
+ my $source11 = $schema->source('OracleLoaderTest11');
+
+ # DBD::Oracle < 1.76 doesn't filter out disabled primary keys
+ my $uniqs = eval { DBD::Oracle->VERSION('1.76') } ? [] : ['primary'];
+ is_deeply [keys %{{$source11->unique_constraints}}], $uniqs,
+ 'Disabled unique constraints not loaded';
+
+ ok !$source11->relationship_info('ten'),
+ 'Disabled FK not loaded';
+
+ ok !$source11->column_info('id')->{is_auto_increment},
+ 'Disabled autoinc trigger not loaded';
+
SKIP: {
- skip 'Set the DBICTEST_ORA_EXTRAUSER_DSN, _USER and _PASS environment variables to run the cross-schema relationship tests', 6 * 2
+ skip 'Set the DBICTEST_ORA_EXTRAUSER_DSN, _USER and _PASS environment variables to run the cross-schema relationship tests', 31 * 2
unless $ENV{DBICTEST_ORA_EXTRAUSER_DSN};
$extra_schema = $schema->clone;
)
EOF
- $dbh1->do($_) for $auto_inc_cb->('oracle_loader_test4', 'id');
+ $dbh1->do($_) for $auto_inc_cb->(lc "${schema1}.oracle_loader_test4", 'id');
$dbh1->do("GRANT ALL ON oracle_loader_test4 TO $schema2");
$dbh1->do("GRANT ALL ON oracle_loader_test4_id_seq TO $schema2");
is try { $rsrc->column_info('id')->{is_auto_increment} }, 1,
'column in schema1';
+ is try { $rsrc->column_info('id')->{sequence} }, lc "${schema1}.oracle_loader_test4_id_seq",
+ 'sequence in schema1';
+
is try { $rsrc->column_info('value')->{data_type} }, 'varchar2',
'column in schema1';
}
},
},
-);
+)->run_tests();
-if( !$dsn || !$user ) {
- $tester->skip_tests('You need to set the DBICTEST_ORA_DSN, _USER, and _PASS environment variables');
-}
-else {
- $tester->run_tests();
-}
END {
if (not $ENV{SCHEMA_LOADER_TESTS_NOCLEANUP}) {
- if (my $dbh2 = try { $extra_schema->storage->dbh }) {
- my $dbh1 = $schema->storage->dbh;
-
- try {
- $dbh1->do($_) for $auto_inc_drop_cb->('oracle_loader_test8', 'id');
- $dbh2->do($_) for $auto_inc_drop_cb->('oracle_loader_test7', 'id');
- $dbh2->do($_) for $auto_inc_drop_cb->('oracle_loader_test6', 'id');
- $dbh2->do($_) for $auto_inc_drop_cb->('oracle_loader_test5', 'pk');
- $dbh1->do($_) for $auto_inc_drop_cb->('oracle_loader_test5', 'id');
- $dbh1->do($_) for $auto_inc_drop_cb->('oracle_loader_test4', 'id');
- }
- catch {
- die "Error dropping sequences for cross-schema test tables: $_";
- };
-
- try {
- $dbh1->do('DROP TABLE oracle_loader_test8');
- $dbh2->do('DROP TABLE oracle_loader_test7');
- $dbh2->do('DROP TABLE oracle_loader_test6');
- $dbh2->do('DROP TABLE oracle_loader_test5');
- $dbh1->do('DROP TABLE oracle_loader_test5');
- $dbh1->do('DROP TABLE oracle_loader_test4');
+ if (my $dbh1 = try { $schema->storage->dbh }) {
+ $dbh1->do($_) for $auto_inc_drop_cb->('oracle_loader_test11','id');
+
+ if (my $dbh2 = try { $extra_schema->storage->dbh }) {
+
+ try {
+ $dbh1->do($_) for $auto_inc_drop_cb->('oracle_loader_test8', 'id');
+ $dbh2->do($_) for $auto_inc_drop_cb->('oracle_loader_test7', 'id');
+ $dbh2->do($_) for $auto_inc_drop_cb->('oracle_loader_test6', 'id');
+ $dbh2->do($_) for $auto_inc_drop_cb->('oracle_loader_test5', 'pk');
+ $dbh1->do($_) for $auto_inc_drop_cb->('oracle_loader_test5', 'id');
+ $dbh1->do($_) for $auto_inc_drop_cb->('oracle_loader_test4', 'id');
+ }
+ catch {
+ die "Error dropping sequences for cross-schema test tables: $_";
+ };
+
+ try {
+ $dbh1->do('DROP TABLE oracle_loader_test8');
+ $dbh2->do('DROP TABLE oracle_loader_test7');
+ $dbh2->do('DROP TABLE oracle_loader_test6');
+ $dbh2->do('DROP TABLE oracle_loader_test5');
+ $dbh1->do('DROP TABLE oracle_loader_test5');
+ $dbh1->do('DROP TABLE oracle_loader_test4');
+ }
+ catch {
+ die "Error dropping cross-schema test tables: $_";
+ };
}
- catch {
- die "Error dropping cross-schema test tables: $_";
- };
}
-
rmtree EXTRA_DUMP_DIR;
}
}