t/10_03pg_common.t

   1 use strict;
   2 use lib qw(t/lib);
   3 use dbixcsl_common_tests;
   4 use Test::More;
   5 use File::Slurp 'slurp';
   6
   7 my $dsn      = $ENV{DBICTEST_PG_DSN} || '';
   8 my $user     = $ENV{DBICTEST_PG_USER} || '';
   9 my $password = $ENV{DBICTEST_PG_PASS} || '';
  10
  11 my $tester = dbixcsl_common_tests->new(
  12     vendor      => 'Pg',
  13     auto_inc_pk => 'SERIAL NOT NULL PRIMARY KEY',
  14     dsn         => $dsn,
  15     user        => $user,
  16     password    => $password,
  17     loader_options  => { preserve_case => 1 },
  18     connect_info_opts => {
  19         on_connect_do => [ 'SET client_min_messages=WARNING' ],
  20     },
  21     quote_char  => '"',
  22     data_types  => {
  23         # http://www.postgresql.org/docs/7.4/interactive/datatype.html
  24         #
  25         # Numeric Types
  26         boolean     => { data_type => 'boolean' },
  27         bool        => { data_type => 'boolean' },
  28         'bool default false'
  29                     => { data_type => 'boolean', default_value => \'false' },
  30
  31         bigint      => { data_type => 'bigint' },
  32         int8        => { data_type => 'bigint' },
  33         bigserial   => { data_type => 'bigint', is_auto_increment => 1 },
  34         serial8     => { data_type => 'bigint', is_auto_increment => 1 },
  35         integer     => { data_type => 'integer' },
  36         int         => { data_type => 'integer' },
  37         int4        => { data_type => 'integer' },
  38         serial      => { data_type => 'integer', is_auto_increment => 1 },
  39         serial4     => { data_type => 'integer', is_auto_increment => 1 },
  40         smallint    => { data_type => 'smallint' },
  41         int2        => { data_type => 'smallint' },
  42
  43         money       => { data_type => 'money' },
  44
  45         'double precision' => { data_type => 'double precision' },
  46         float8             => { data_type => 'double precision' },
  47         real               => { data_type => 'real' },
  48         float4             => { data_type => 'real' },
  49         'float(24)'        => { data_type => 'real' },
  50         'float(25)'        => { data_type => 'double precision' },
  51         'float(53)'        => { data_type => 'double precision' },
  52         float              => { data_type => 'double precision' },
  53
  54         numeric        => { data_type => 'numeric' },
  55         decimal        => { data_type => 'numeric' },
  56         'numeric(6,3)' => { data_type => 'numeric', size => [6,3] },
  57         'decimal(6,3)' => { data_type => 'numeric', size => [6,3] },
  58
  59         # Bit String Types
  60         'bit varying(2)' => { data_type => 'varbit', size => 2 },
  61         'varbit(2)'      => { data_type => 'varbit', size => 2 },
  62         'varbit'         => { data_type => 'varbit' },
  63         bit              => { data_type => 'bit', size => 1 },
  64         'bit(3)'         => { data_type => 'bit', size => 3 },
  65
  66         # Network Types
  67         inet    => { data_type => 'inet' },
  68         cidr    => { data_type => 'cidr' },
  69         macaddr => { data_type => 'macaddr' },
  70
  71         # Geometric Types
  72         point   => { data_type => 'point' },
  73         line    => { data_type => 'line' },
  74         lseg    => { data_type => 'lseg' },
  75         box     => { data_type => 'box' },
  76         path    => { data_type => 'path' },
  77         polygon => { data_type => 'polygon' },
  78         circle  => { data_type => 'circle' },
  79
  80         # Character Types
  81         'character varying(2)'           => { data_type => 'varchar', size => 2 },
  82         'varchar(2)'                     => { data_type => 'varchar', size => 2 },
  83         'character(2)'                   => { data_type => 'char', size => 2 },
  84         'char(2)'                        => { data_type => 'char', size => 2 },
  85         'character'                      => { data_type => 'char', size => 1 },
  86         'char'                           => { data_type => 'char', size => 1 },
  87         text                             => { data_type => 'text' },
  88         # varchar with no size has unlimited size, we rewrite to 'text'
  89         varchar                          => { data_type => 'text',
  90                                               original => { data_type => 'varchar' } },
  91
  92         # Datetime Types
  93         date                             => { data_type => 'date' },
  94         interval                         => { data_type => 'interval' },
  95         'interval(2)'                    => { data_type => 'interval', size => 2 },
  96         time                             => { data_type => 'time' },
  97         'time(2)'                        => { data_type => 'time', size => 2 },
  98         'time without time zone'         => { data_type => 'time' },
  99         'time(2) without time zone'      => { data_type => 'time', size => 2 },
 100         'time with time zone'            => { data_type => 'time with time zone' },
 101         'time(2) with time zone'         => { data_type => 'time with time zone', size => 2 },
 102         timestamp                        => { data_type => 'timestamp' },
 103         'timestamp default now()'
 104                                          => { data_type => 'timestamp', default_value => \'current_timestamp',
 105                                               original => { default_value => \'now()' } },
 106         'timestamp(2)'                   => { data_type => 'timestamp', size => 2 },
 107         'timestamp without time zone'    => { data_type => 'timestamp' },
 108         'timestamp(2) without time zone' => { data_type => 'timestamp', size => 2 },
 109
 110         'timestamp with time zone'       => { data_type => 'timestamp with time zone' },
 111         'timestamp(2) with time zone'    => { data_type => 'timestamp with time zone', size => 2 },
 112
 113         # Blob Types
 114         bytea => { data_type => 'bytea' },
 115
 116         # Enum Types
 117         pg_loader_test_enum => { data_type => 'enum', extra => { custom_type_name => 'pg_loader_test_enum',
 118                                                                  list => [ qw/foo bar baz/] } },
 119     },
 120     pre_create => [
 121         q{
 122             CREATE TYPE pg_loader_test_enum AS ENUM (
 123                 'foo', 'bar', 'baz'
 124             )
 125         },
 126     ],
 127     extra       => {
 128         create => [
 129             q{
 130                 CREATE SCHEMA dbicsl_test
 131             },
 132             q{
 133                 CREATE SEQUENCE dbicsl_test.myseq
 134             },
 135             q{
 136                 CREATE TABLE pg_loader_test1 (
 137                     id INTEGER NOT NULL DEFAULT nextval('dbicsl_test.myseq') PRIMARY KEY,
 138                     value VARCHAR(100)
 139                 )
 140             },
 141             qq{
 142                 COMMENT ON TABLE pg_loader_test1 IS 'The\15\12Table'
 143             },
 144             qq{
 145                 COMMENT ON COLUMN pg_loader_test1.value IS 'The\15\12Column'
 146             },
 147             q{
 148                 CREATE TABLE pg_loader_test2 (
 149                     id SERIAL NOT NULL PRIMARY KEY,
 150                     value VARCHAR(100)
 151                 )
 152             },
 153             q{
 154                 COMMENT ON TABLE pg_loader_test2 IS 'very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very long comment'
 155             },
 156         ],
 157         pre_drop_ddl => [
 158             'DROP SCHEMA dbicsl_test CASCADE',
 159             'DROP TYPE pg_loader_test_enum',
 160         ],
 161         drop  => [ qw/ pg_loader_test1 pg_loader_test2 / ],
 162         count => 4,
 163         run   => sub {
 164             my ($schema, $monikers, $classes) = @_;
 165
 166             is $schema->source($monikers->{pg_loader_test1})->column_info('id')->{sequence},
 167                 'dbicsl_test.myseq',
 168                 'qualified sequence detected';
 169
 170             my $class    = $classes->{pg_loader_test1};
 171             my $filename = $schema->_loader->get_dump_filename($class);
 172
 173             my $code = slurp $filename;
 174
 175             like $code, qr/^=head1 NAME\n\n^$class - The\nTable\n\n^=cut\n/m,
 176                 'table comment';
 177
 178             like $code, qr/^=head2 value\n\n(.+:.+\n)+\nThe\nColumn\n\n/m,
 179                 'column comment and attrs';
 180
 181             $class    = $classes->{pg_loader_test2};
 182             $filename = $schema->_loader->get_dump_filename($class);
 183
 184             $code = slurp $filename;
 185
 186             like $code, qr/^=head1 NAME\n\n^$class\n\n=head1 DESCRIPTION\n\n^very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very long comment\n\n^=cut\n/m,
 187                 'long table comment is in DESCRIPTION';
 188         },
 189     },
 190 );
 191
 192 if( !$dsn || !$user ) {
 193     $tester->skip_tests('You need to set the DBICTEST_PG_DSN, _USER, and _PASS environment variables');
 194 }
 195 else {
 196     $tester->run_tests();
 197 }
 198 # vim:et sw=4 sts=4 tw=0: