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