[dbsrgits/DBIx-Class-Schema-Loader.git] / t / 12pg_common.t

use strict;
use lib qw(t/lib);
use dbixcsl_common_tests;
use Test::More;
use File::Slurp 'slurp';

my $dsn      = $ENV{DBICTEST_PG_DSN} || '';
my $user     = $ENV{DBICTEST_PG_USER} || '';
my $password = $ENV{DBICTEST_PG_PASS} || '';

my $tester = dbixcsl_common_tests->new(
    vendor      => 'Pg',
    auto_inc_pk => 'SERIAL NOT NULL PRIMARY KEY',
    dsn         => $dsn,
    user        => $user,
    password    => $password,
    data_types  => {
        # http://www.postgresql.org/docs/7.4/interactive/datatype.html
        #
        # Numeric Types
	boolean     => { data_type => 'boolean' },
	bool        => { data_type => 'boolean' },
        'bool default false'
                    => { data_type => 'boolean', default_value => \'false' },

	bigint      => { data_type => 'bigint' },
	int8        => { data_type => 'bigint' },
	bigserial   => { data_type => 'bigint', is_auto_increment => 1 },
	serial8     => { data_type => 'bigint', is_auto_increment => 1 },
	integer     => { data_type => 'integer' },
	int         => { data_type => 'integer' },
	int4        => { data_type => 'integer' },
	serial      => { data_type => 'integer', is_auto_increment => 1 },
	serial4     => { data_type => 'integer', is_auto_increment => 1 },
	smallint    => { data_type => 'smallint' },
	int2        => { data_type => 'smallint' },

	money       => { data_type => 'money' },

	'double precision' => { data_type => 'double precision' },
	float8             => { data_type => 'double precision' },
	real               => { data_type => 'real' },
	float4             => { data_type => 'real' },
        'float(24)'        => { data_type => 'real' },
        'float(25)'        => { data_type => 'double precision' },
        'float(53)'        => { data_type => 'double precision' },
        float              => { data_type => 'double precision' },

        numeric        => { data_type => 'numeric' },
        decimal        => { data_type => 'numeric' },
	'numeric(6,3)' => { data_type => 'numeric', size => [6,3] },
	'decimal(6,3)' => { data_type => 'numeric', size => [6,3] },

        # Bit String Types
	'bit varying(2)' => { data_type => 'varbit', size => 2 },
	'varbit(2)'      => { data_type => 'varbit', size => 2 },
	'varbit'         => { data_type => 'varbit' },
	bit              => { data_type => 'bit', size => 1 },
	'bit(3)'         => { data_type => 'bit', size => 3 },

        # Network Types
	inet    => { data_type => 'inet' },
	cidr    => { data_type => 'cidr' },
	macaddr => { data_type => 'macaddr' },

        # Geometric Types
	point   => { data_type => 'point' },
	line    => { data_type => 'line' },
	lseg    => { data_type => 'lseg' },
	box     => { data_type => 'box' },
	path    => { data_type => 'path' },
	polygon => { data_type => 'polygon' },
	circle  => { data_type => 'circle' },

        # Character Types
	'character varying(2)'           => { data_type => 'varchar', size => 2 },
	'varchar(2)'                     => { data_type => 'varchar', size => 2 },
	'character(2)'                   => { data_type => 'char', size => 2 },
	'char(2)'                        => { data_type => 'char', size => 2 },
	'character'                      => { data_type => 'char', size => 1 },
	'char'                           => { data_type => 'char', size => 1 },
	text                             => { data_type => 'text' },
        # varchar with no size has unlimited size, we rewrite to 'text'
	varchar                          => { data_type => 'text',
                                              original => { data_type => 'varchar' } },

        # Datetime Types
	date                             => { data_type => 'date' },
	interval                         => { data_type => 'interval' },
	'interval(2)'                    => { data_type => 'interval', size => 2 },
	time                             => { data_type => 'time' },
	'time(2)'                        => { data_type => 'time', size => 2 },
	'time without time zone'         => { data_type => 'time' },
	'time(2) without time zone'      => { data_type => 'time', size => 2 },
	'time with time zone'            => { data_type => 'time with time zone' },
	'time(2) with time zone'         => { data_type => 'time with time zone', size => 2 },
	timestamp                        => { data_type => 'timestamp' },
        'timestamp default current_timestamp'
                                         => { data_type => 'timestamp', default_value => \'current_timestamp' },
	'timestamp(2)'                   => { data_type => 'timestamp', size => 2 },
	'timestamp without time zone'    => { data_type => 'timestamp' },
	'timestamp(2) without time zone' => { data_type => 'timestamp', size => 2 },

	'timestamp with time zone'       => { data_type => 'timestamp with time zone' },
	'timestamp(2) with time zone'    => { data_type => 'timestamp with time zone', size => 2 },

        # Blob Types
	bytea => { data_type => 'bytea' },
    },
    extra       => {
        create => [
            q{
                CREATE TABLE pg_loader_test1 (
                    id SERIAL NOT NULL PRIMARY KEY,
                    value VARCHAR(100)
                )
            },
            q{
                COMMENT ON TABLE pg_loader_test1 IS 'The Table'
            },
            q{
                COMMENT ON COLUMN pg_loader_test1.value IS 'The Column'
            },
            q{
                CREATE TABLE pg_loader_test2 (
                    id SERIAL NOT NULL PRIMARY KEY,
                    value VARCHAR(100)
                )
            },
            q{
                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'
            },
        ],
        drop  => [ qw/ pg_loader_test1 pg_loader_test2 / ],
        count => 3,
        run   => sub {
            my ($schema, $monikers, $classes) = @_;

            my $class    = $classes->{pg_loader_test1};
            my $filename = $schema->_loader->_get_dump_filename($class);

            my $code = slurp $filename;

            like $code, qr/^=head1 NAME\n\n^$class - The Table\n\n^=cut\n/m,
                'table comment';

            like $code, qr/^=head2 value\n\n(.+:.+\n)+\nThe Column\n\n/m,
                'column comment and attrs';

            $class    = $classes->{pg_loader_test2};
            $filename = $schema->_loader->_get_dump_filename($class);

            $code = slurp $filename;

            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,
                'long table comment is in DESCRIPTION';
        },
    },
);

if( !$dsn || !$user ) {
    $tester->skip_tests('You need to set the DBICTEST_PG_DSN, _USER, and _PASS environment variables');
}
else {
    $tester->run_tests();
}
# vim:et sw=4 sts=4 tw=0:
Commit	Line	Data
a78e3fed	1	use strict;
c2849787	2	use lib qw(t/lib);
fbd83464	3	use dbixcsl_common_tests;
fdd8ff16	4	use Test::More;
9065de34	5	use File::Slurp 'slurp';
a78e3fed	6
9e978a19	7	my $dsn = $ENV{DBICTEST_PG_DSN} \|\| '';
	8	my $user = $ENV{DBICTEST_PG_USER} \|\| '';
	9	my $password = $ENV{DBICTEST_PG_PASS} \|\| '';
a78e3fed	10
fbd83464	11	my $tester = dbixcsl_common_tests->new(
a78e3fed	12	vendor => 'Pg',
a78e3fed	13	auto_inc_pk => 'SERIAL NOT NULL PRIMARY KEY',
9e978a19	14	dsn => $dsn,
a78e3fed	15	user => $user,
a78e3fed	16	password => $password,
ee07e280	17	data_types => {
760fd65c	18	# http://www.postgresql.org/docs/7.4/interactive/datatype.html
	19	#
	20	# Numeric Types
	21	boolean => { data_type => 'boolean' },
	22	bool => { data_type => 'boolean' },
45321eda	23	'bool default false'
45321eda	24	=> { data_type => 'boolean', default_value => \'false' },
760fd65c	25
	26	bigint => { data_type => 'bigint' },
	27	int8 => { data_type => 'bigint' },
	28	bigserial => { data_type => 'bigint', is_auto_increment => 1 },
	29	serial8 => { data_type => 'bigint', is_auto_increment => 1 },
5163dc4a	30	integer => { data_type => 'integer' },
	31	int => { data_type => 'integer' },
	32	int4 => { data_type => 'integer' },
5163dc4a	33	serial => { data_type => 'integer', is_auto_increment => 1 },
5163dc4a	34	serial4 => { data_type => 'integer', is_auto_increment => 1 },
760fd65c	35	smallint => { data_type => 'smallint' },
	36	int2 => { data_type => 'smallint' },
	37
	38	money => { data_type => 'money' },
	39
	40	'double precision' => { data_type => 'double precision' },
	41	float8 => { data_type => 'double precision' },
	42	real => { data_type => 'real' },
	43	float4 => { data_type => 'real' },
	44	'float(24)' => { data_type => 'real' },
	45	'float(25)' => { data_type => 'double precision' },
	46	'float(53)' => { data_type => 'double precision' },
	47	float => { data_type => 'double precision' },
	48
	49	numeric => { data_type => 'numeric' },
	50	decimal => { data_type => 'numeric' },
f80b0ea7	51	'numeric(6,3)' => { data_type => 'numeric', size => [6,3] },
f80b0ea7	52	'decimal(6,3)' => { data_type => 'numeric', size => [6,3] },
760fd65c	53
760fd65c	54	# Bit String Types
f80b0ea7	55	'bit varying(2)' => { data_type => 'varbit', size => 2 },
	56	'varbit(2)' => { data_type => 'varbit', size => 2 },
	57	'varbit' => { data_type => 'varbit' },
	58	bit => { data_type => 'bit', size => 1 },
	59	'bit(3)' => { data_type => 'bit', size => 3 },
760fd65c	60
	61	# Network Types
	62	inet => { data_type => 'inet' },
	63	cidr => { data_type => 'cidr' },
	64	macaddr => { data_type => 'macaddr' },
	65
	66	# Geometric Types
	67	point => { data_type => 'point' },
	68	line => { data_type => 'line' },
	69	lseg => { data_type => 'lseg' },
	70	box => { data_type => 'box' },
	71	path => { data_type => 'path' },
	72	polygon => { data_type => 'polygon' },
	73	circle => { data_type => 'circle' },
	74
	75	# Character Types
f80b0ea7	76	'character varying(2)' => { data_type => 'varchar', size => 2 },
	77	'varchar(2)' => { data_type => 'varchar', size => 2 },
	78	'character(2)' => { data_type => 'char', size => 2 },
	79	'char(2)' => { data_type => 'char', size => 2 },
	80	'character' => { data_type => 'char', size => 1 },
	81	'char' => { data_type => 'char', size => 1 },
760fd65c	82	text => { data_type => 'text' },
f80b0ea7	83	# varchar with no size has unlimited size, we rewrite to 'text'
8e030521	84	varchar => { data_type => 'text',
8e030521	85	original => { data_type => 'varchar' } },
760fd65c	86
	87	# Datetime Types
	88	date => { data_type => 'date' },
	89	interval => { data_type => 'interval' },
f80b0ea7	90	'interval(2)' => { data_type => 'interval', size => 2 },
8e030521	91	time => { data_type => 'time' },
	92	'time(2)' => { data_type => 'time', size => 2 },
	93	'time without time zone' => { data_type => 'time' },
	94	'time(2) without time zone' => { data_type => 'time', size => 2 },
df956aad	95	'time with time zone' => { data_type => 'time with time zone' },
f80b0ea7	96	'time(2) with time zone' => { data_type => 'time with time zone', size => 2 },
f80b0ea7	97	timestamp => { data_type => 'timestamp' },
8e64075f	98	'timestamp default current_timestamp'
f80b0ea7	99	=> { data_type => 'timestamp', default_value => \'current_timestamp' },
	100	'timestamp(2)' => { data_type => 'timestamp', size => 2 },
	101	'timestamp without time zone' => { data_type => 'timestamp' },
	102	'timestamp(2) without time zone' => { data_type => 'timestamp', size => 2 },
760fd65c	103
df956aad	104	'timestamp with time zone' => { data_type => 'timestamp with time zone' },
f80b0ea7	105	'timestamp(2) with time zone' => { data_type => 'timestamp with time zone', size => 2 },
760fd65c	106
	107	# Blob Types
	108	bytea => { data_type => 'bytea' },
ee07e280	109	},
fdd8ff16	110	extra => {
	111	create => [
	112	q{
	113	CREATE TABLE pg_loader_test1 (
	114	id SERIAL NOT NULL PRIMARY KEY,
	115	value VARCHAR(100)
	116	)
	117	},
	118	q{
	119	COMMENT ON TABLE pg_loader_test1 IS 'The Table'
	120	},
	121	q{
	122	COMMENT ON COLUMN pg_loader_test1.value IS 'The Column'
	123	},
4b9fb838	124	q{
	125	CREATE TABLE pg_loader_test2 (
	126	id SERIAL NOT NULL PRIMARY KEY,
	127	value VARCHAR(100)
	128	)
	129	},
	130	q{
	131	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'
	132	},
fdd8ff16	133	],
9065de34	134	drop => [ qw/ pg_loader_test1 pg_loader_test2 / ],
9065de34	135	count => 3,
fdd8ff16	136	run => sub {
	137	my ($schema, $monikers, $classes) = @_;
	138
	139	my $class = $classes->{pg_loader_test1};
	140	my $filename = $schema->_loader->_get_dump_filename($class);
	141
9065de34	142	my $code = slurp $filename;
fdd8ff16	143
	144	like $code, qr/^=head1 NAME\n\n^$class - The Table\n\n^=cut\n/m,
	145	'table comment';
	146
79a00530	147	like $code, qr/^=head2 value\n\n(.+:.+\n)+\nThe Column\n\n/m,
79a00530	148	'column comment and attrs';
baff904e	149
4b9fb838	150	$class = $classes->{pg_loader_test2};
	151	$filename = $schema->_loader->_get_dump_filename($class);
	152
9065de34	153	$code = slurp $filename;
4b9fb838	154
	155	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,
	156	'long table comment is in DESCRIPTION';
fdd8ff16	157	},
fdd8ff16	158	},
a78e3fed	159	);
a78e3fed	160
9e978a19	161	if( !$dsn \|\| !$user ) {
9e978a19	162	$tester->skip_tests('You need to set the DBICTEST_PG_DSN, _USER, and _PASS environment variables');
a78e3fed	163	}
	164	else {
	165	$tester->run_tests();
	166	}
8e64075f	167	# vim:et sw=4 sts=4 tw=0: