t/12pg_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 => { list => [ qw/foo bar baz/] }, size => 4 },
 118     },
 119     pre_create => [
 120         q{
 121             CREATE TYPE pg_loader_test_enum AS ENUM (
 122                 'foo', 'bar', 'baz'
 123             )
 124         },
 125     ],
 126     extra       => {
 127         create => [
 128             q{
 129                 CREATE SCHEMA dbicsl_test
 130             },
 131             q{
 132                 CREATE SEQUENCE dbicsl_test.myseq
 133             },
 134             q{
 135                 CREATE TABLE pg_loader_test1 (
 136                     id INTEGER NOT NULL DEFAULT nextval('dbicsl_test.myseq') PRIMARY KEY,
 137                     value VARCHAR(100)
 138                 )
 139             },
 140             qq{
 141                 COMMENT ON TABLE pg_loader_test1 IS 'The\15\12Table'
 142             },
 143             qq{
 144                 COMMENT ON COLUMN pg_loader_test1.value IS 'The\15\12Column'
 145             },
 146             q{
 147                 CREATE TABLE pg_loader_test2 (
 148                     id SERIAL NOT NULL PRIMARY KEY,
 149                     value VARCHAR(100)
 150                 )
 151             },
 152             q{
 153                 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'
 154             },
 155         ],
 156         pre_drop_ddl => [
 157             'DROP SCHEMA dbicsl_test CASCADE',
 158             'DROP TYPE pg_loader_test_enum',
 159         ],
 160         drop  => [ qw/ pg_loader_test1 pg_loader_test2 / ],
 161         count => 4,
 162         run   => sub {
 163             my ($schema, $monikers, $classes) = @_;
 164
 165             is $schema->source($monikers->{pg_loader_test1})->column_info('id')->{sequence},
 166                 'dbicsl_test.myseq',
 167                 'qualified sequence detected';
 168
 169             my $class    = $classes->{pg_loader_test1};
 170             my $filename = $schema->_loader->_get_dump_filename($class);
 171
 172             my $code = slurp $filename;
 173
 174             like $code, qr/^=head1 NAME\n\n^$class - The\nTable\n\n^=cut\n/m,
 175                 'table comment';
 176
 177             like $code, qr/^=head2 value\n\n(.+:.+\n)+\nThe\nColumn\n\n/m,
 178                 'column comment and attrs';
 179
 180             $class    = $classes->{pg_loader_test2};
 181             $filename = $schema->_loader->_get_dump_filename($class);
 182
 183             $code = slurp $filename;
 184
 185             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,
 186                 'long table comment is in DESCRIPTION';
 187         },
 188     },
 189 );
 190
 191 if( !$dsn || !$user ) {
 192     $tester->skip_tests('You need to set the DBICTEST_PG_DSN, _USER, and _PASS environment variables');
 193 }
 194 else {
 195     $tester->run_tests();
 196 }
 197 # vim:et sw=4 sts=4 tw=0: