1 package dbixcsl_firebird_extra_tests;
10 # test a mixed case table
12 CREATE TABLE "Firebird_Loader_Test1" (
13 "Id" INTEGER NOT NULL PRIMARY KEY
17 CREATE GENERATOR "Gen_Firebird_Loader_Test1_Id"
20 CREATE TRIGGER "Firebird_Loader_Test1_BI" for "Firebird_Loader_Test1"
21 ACTIVE BEFORE INSERT POSITION 0
24 IF (NEW."Id" IS NULL) THEN
25 NEW."Id" = GEN_ID("Gen_Firebird_Loader_Test1_Id",1);
30 q{DROP TRIGGER "Firebird_Loader_Test1_BI"},
31 q{DROP GENERATOR "Gen_Firebird_Loader_Test1_Id"},
34 q{"Firebird_Loader_Test1"}
38 my ($schema, $monikers, $classes) = @_;
40 ok ((my $rsrc = eval { $schema->resultset($monikers->{Firebird_Loader_Test1})->result_source }),
41 'got rsrc for mixed case table');
43 ok ((my $col_info = eval { $rsrc->column_info('Id') }),
44 'got column_info for column Id');
46 is $col_info->{accessor}, 'id', 'column Id has lowercase accessor "id"';
48 is $col_info->{is_auto_increment}, 1, 'is_auto_increment detected for mixed case trigger';
50 is $col_info->{sequence}, 'Gen_Firebird_Loader_Test1_Id', 'correct mixed case sequence name';