[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,
    loader_options  => { preserve_case => 1 },
    quote_char  => '"',
    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 now()'
                                         => { data_type => 'timestamp', default_value => \'current_timestamp',
                                              original => { default_value => \'now()' } },
	'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)
                )
            },
            qq{
                COMMENT ON TABLE pg_loader_test1 IS 'The\15\12Table'
            },
            qq{
                COMMENT ON COLUMN pg_loader_test1.value IS 'The\15\12Column'
            },
            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\nTable\n\n^=cut\n/m,
                'table comment';

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