|
finised mysql test cleanup
|
1 |
use strict; |
| 2 |
use warnings; |
|
| 3 | ||
| 4 |
use FindBin; |
|
| 5 |
$ENV{DBIX_CUSTOM_TEST_RUN} = 1
|
|
| 6 |
if -f "$FindBin::Bin/run/common-postgresql.run"; |
|
| 7 |
$ENV{DBIX_CUSTOM_SKIP_MESSAGE} = 'postgresql private test';
|
|
| 8 | ||
| 9 |
use DBIx::Custom; |
|
| 10 |
{
|
|
| 11 |
package DBIx::Custom; |
|
| 12 |
no warnings 'redefine'; |
|
| 13 | ||
| 14 |
my $date_typename = 'Date'; |
|
| 15 |
my $datetime_typename = 'Timestamp'; |
|
| 16 | ||
| 17 |
sub date_typename { lc $date_typename }
|
|
| 18 |
sub datetime_typename { 'timestamp without time zone' }
|
|
| 19 | ||
| 20 |
my $date_datatype = 91; |
|
| 21 |
my $datetime_datatype = 11; |
|
| 22 | ||
| 23 |
sub date_datatype { lc $date_datatype }
|
|
| 24 |
sub datetime_datatype { lc $datetime_datatype }
|
|
| 25 | ||
| 26 |
has dsn => "dbi:Pg:dbname=dbix_custom"; |
|
| 27 |
has user => 'dbix_custom'; |
|
| 28 |
has password => 'dbix_custom'; |
|
| 29 |
has exclude_table => sub {
|
|
| 30 | ||
| 31 |
return qr/^( |
|
| 32 |
pg_|column_|role_|view_|sql_ |
|
| 33 |
|applicable_roles |
|
| 34 |
|check_constraints |
|
| 35 |
|columns |
|
| 36 |
|constraint_column_usage |
|
| 37 |
|constraint_table_usage |
|
| 38 |
|data_type_privileges |
|
| 39 |
|domain_constraints |
|
| 40 |
|domain_udt_usage |
|
| 41 |
|domains |
|
| 42 |
|element_types |
|
| 43 |
|enabled_roles |
|
| 44 |
|information_schema |
|
| 45 |
|information_schema_catalog_name |
|
| 46 |
|key_column_usage |
|
| 47 |
|parameters |
|
| 48 |
|referential_constraints |
|
| 49 |
|routine_privileges |
|
| 50 |
|routines |
|
| 51 |
|schemata |
|
| 52 |
|table_constraints |
|
| 53 |
|table_privileges |
|
| 54 |
|tables |
|
| 55 |
|triggered_update_columns |
|
| 56 |
|triggers |
|
| 57 |
|usage_privileges |
|
| 58 |
|views |
|
| 59 |
)/x |
|
| 60 |
}; |
|
| 61 |
|
|
| 62 |
sub create_table1 { 'create table table1 (key1 varchar(255), key2 varchar(255));' }
|
|
| 63 |
sub create_table1_2 {'create table table1 (key1 varchar(255), key2 varchar(255), '
|
|
| 64 |
. 'key3 varchar(255), key4 varchar(255), key5 varchar(255));' } |
|
| 65 |
sub create_table1_type { "create table table1 (key1 $date_typename, key2 $datetime_typename);" }
|
|
| 66 |
sub create_table1_highperformance { "create table table1 (ab varchar(255), bc varchar(255), "
|
|
| 67 |
. "ik varchar(255), hi varchar(255), ui varchar(255), pq varchar(255), dc varchar(255));" } |
|
| 68 |
sub create_table2 { 'create table table2 (key1 varchar(255), key3 varchar(255));' }
|
|
| 69 |
sub create_table2_2 { "create table table2 (key1 varchar(255), key2 varchar(255), key3 varchar(255))" }
|
|
| 70 |
sub create_table3 { "create table table3 (key1 varchar(255), key2 varchar(255), key3 varchar(255))" }
|
|
| 71 |
sub create_table_reserved { 'create table "table" ("select" varchar(255), "update" varchar(255))' }
|
|
| 72 |
} |
|
| 73 | ||
| 74 |
require "$FindBin::Bin/common.t"; |