X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F14postgres-parser.t;h=4816eaf3d018b9c4f4dfa23bf5a80ec5a2072af5;hb=4e32b65d1ab3a051d814739135c0bcdfee6bd7e1;hp=d159c58188a2179b51b1185fe4b4e2e0b0e6e3bb;hpb=5c2813d9dcd09027448a8df61eb1f7f882ecd43b;p=dbsrgits%2FSQL-Translator-2.0-ish.git diff --git a/t/14postgres-parser.t b/t/14postgres-parser.t index d159c58..4816eaf 100644 --- a/t/14postgres-parser.t +++ b/t/14postgres-parser.t @@ -1,16 +1,8 @@ -#!/usr/bin/perl -# vim: set ft=perl: - use strict; +use warnings; use Test::More; use SQL::Translator; use SQL::Translator::Constants qw(:sqlt_types :sqlt_constants); -use Test::SQL::Translator qw(maybe_plan); - -BEGIN { - maybe_plan(120, 'SQL::Translator::Parser::DDL::PostgreSQL'); -# SQL::Translator::Parser::PostgreSQL->import('parse'); -} my $t = SQL::Translator->new( trace => 0, from => 'PostgreSQL' ); my $sql = q[ @@ -63,7 +55,9 @@ my $sql = q[ alter table only t_test1 add constraint c_u1 unique (f_varchar); alter table t_test1 add constraint "c_fk2" foreign key (f_fk2) - references t_test2 (f_id) on update no action on delete cascade; + references t_test2 (f_id) match simple + on update no action on delete cascade deferrable; + alter table t_test1 drop column f_dropped restrict; @@ -197,7 +191,7 @@ is( $fk_ref1->reference_table, 't_test2', 'FK is to "t_test2" table' ); my $f11 = shift @t1_fields; is( $f11->name, 'f_timestamp', 'Eleventh field is "f_timestamp"' ); -is( $f11->data_type, 'timestamp', 'Field is a timestamp' ); +is( $f11->data_type, 'timestamp with time zone', 'Field is a timestamp with time zone' ); is( $f11->is_nullable, 1, 'Field can be null' ); is( $f11->size, 0, 'Size is "0"' ); is( $f11->default_value, undef, 'Default value is "undef"' ); @@ -278,3 +272,5 @@ is( $t2_c3->type, CHECK_C, "Constraint is a 'CHECK'" ); is( exists $schema->get_table('products_1')->extra()->{'temporary'}, "", "Table is NOT temporary"); is( $schema->get_table('products_2')->extra('temporary'), 1,"Table is TEMP"); is( $schema->get_table('products_3')->extra('temporary'), 1,"Table is TEMPORARY"); + +done_testing;