t/12pg_common.t

   1 use strict;
   2 use lib qw(t/lib);
   3 use dbixcsl_common_tests;
   4 use Test::More;
   5 use List::MoreUtils 'apply';
   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     extra       => {
  18         create => [
  19             q{
  20                 CREATE TABLE pg_loader_test1 (
  21                     id SERIAL NOT NULL PRIMARY KEY,
  22                     value VARCHAR(100)
  23                 )
  24             },
  25             q{
  26                 COMMENT ON TABLE pg_loader_test1 IS 'The Table'
  27             },
  28             q{
  29                 COMMENT ON COLUMN pg_loader_test1.value IS 'The Column'
  30             },
  31             # Test to make sure data_types that don't need a size => don't
  32             # have one.
  33             q{
  34                 CREATE TABLE pg_loader_test2 (
  35                     id SERIAL NOT NULL PRIMARY KEY,
  36                     a_bigint BIGINT,
  37                     an_int8 INT8,
  38                     a_bigserial BIGSERIAL,
  39                     a_serial8 SERIAL8,
  40                     a_bit BIT,
  41                     a_boolean BOOLEAN,
  42                     a_bool BOOL,
  43                     a_box BOX,
  44                     a_bytea BYTEA,
  45                     a_cidr CIDR,
  46                     a_circle CIRCLE,
  47                     a_date DATE,
  48                     a_double_precision DOUBLE PRECISION,
  49                     a_float8 FLOAT8,
  50                     an_inet INET,
  51                     an_integer INTEGER,
  52                     an_int INT,
  53                     an_int4 INT4,
  54                     an_interval INTERVAL,
  55                     an_interval_with_precision INTERVAL(2),
  56                     a_line LINE,
  57                     an_lseg LSEG,
  58                     a_macaddr MACADDR,
  59                     a_money MONEY,
  60                     a_path PATH,
  61                     a_point POINT,
  62                     a_polygon POLYGON,
  63                     a_real REAL,
  64                     a_float4 FLOAT4,
  65                     a_smallint SMALLINT,
  66                     an_int2 INT2,
  67                     a_serial SERIAL,
  68                     a_serial4 SERIAL4,
  69                     a_text TEXT,
  70                     a_time TIME,
  71                     a_time_with_precision TIME(2),
  72                     a_time_without_time_zone TIME WITHOUT TIME ZONE,
  73                     a_time_without_time_zone_with_precision TIME(2) WITHOUT TIME ZONE,
  74                     a_time_with_time_zone TIME WITH TIME ZONE,
  75                     a_time_with_time_zone_with_precision TIME(2) WITH TIME ZONE,
  76                     a_timestamp TIMESTAMP,
  77                     a_timestamp_with_precision TIMESTAMP(2),
  78                     a_timestamp_without_time_zone TIMESTAMP WITHOUT TIME ZONE,
  79                     a_timestamp_without_time_zone_with_precision TIMESTAMP(2) WITHOUT TIME ZONE,
  80                     a_timestamp_with_time_zone TIMESTAMP WITH TIME ZONE,
  81                     a_timestamp_with_time_zone_with_precision TIMESTAMP(2) WITH TIME ZONE,
  82                     a_bit_varying_with_precision BIT VARYING(2),
  83                     a_varbit_with_precision VARBIT(2),
  84                     a_character_varying_with_precision CHARACTER VARYING(2),
  85                     a_varchar_with_precision VARCHAR(2),
  86                     a_character_with_precision CHARACTER(2),
  87                     a_char_with_precision CHAR(2)
  88                 )
  89             },
  90 # XXX figure out what to do with DECIMAL(precision, scale) aka
  91 # NUMERIC(precision, scale)
  92         ],
  93         drop  => [ qw/ pg_loader_test1 pg_loader_test2 / ],
  94         count => 54,
  95         run   => sub {
  96             my ($schema, $monikers, $classes) = @_;
  97
  98             my $class    = $classes->{pg_loader_test1};
  99             my $filename = $schema->_loader->_get_dump_filename($class);
 100
 101             my $code = do {
 102                 local ($/, @ARGV) = (undef, $filename);
 103                 <>;
 104             };
 105
 106             like $code, qr/^=head1 NAME\n\n^$class - The Table\n\n^=cut\n/m,
 107                 'table comment';
 108
 109             like $code, qr/^=head2 value\n\n(.+:.+\n)+\nThe Column\n\n/m,
 110                 'column comment and attrs';
 111
 112             my $rsrc = $schema->resultset('PgLoaderTest2')->result_source;
 113             my @type_columns = grep $_ ne 'id', $rsrc->columns;
 114             my @without_precision = grep !/_with_precision\z/, @type_columns;
 115             my @with_precision    = grep  /_with_precision\z/, @type_columns;
 116             my %with_precision;
 117             @with_precision{
 118                 apply { s/_with_precision\z// } @with_precision
 119             } = ();
 120
 121             for my $col (@without_precision) {
 122                 my ($data_type) = $col =~ /^an?_(.*)/;
 123                 ($data_type = uc $data_type) =~ s/_/ /g;
 124
 125                 ok((not exists $rsrc->column_info($col)->{size}),
 126                     "$data_type " .
 127                     (exists $with_precision{$col} ? 'without precision ' : '') .
 128                     "has no 'size' column_info");
 129             }
 130
 131             for my $col (@with_precision) {
 132                 my ($data_type) = $col =~ /^an?_(.*)_with_precision\z/;
 133                 ($data_type = uc $data_type) =~ s/_/ /g;
 134                 my $size = $rsrc->column_info($col)->{size};
 135
 136                 is $size, 2,
 137                   "$data_type with precision has a correct 'size' column_info";
 138             }
 139         },
 140     },
 141 );
 142
 143 if( !$dsn || !$user ) {
 144     $tester->skip_tests('You need to set the DBICTEST_PG_DSN, _USER, and _PASS environment variables');
 145 }
 146 else {
 147     $tester->run_tests();
 148 }