X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F15sybase_common.t;h=1d943a5a3dd677971d6cd0115c272b6fff5b7eb7;hb=49643e1dff62e16331c30f51953d548d94da1d30;hp=bbfeeda9f2f0cc07ff6596b37857fc78a8d0b222;hpb=ca7feebf8b6e7c50fe330f505ea5e9056a407f59;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/t/15sybase_common.t b/t/15sybase_common.t index bbfeeda..1d943a5 100644 --- a/t/15sybase_common.t +++ b/t/15sybase_common.t @@ -12,145 +12,88 @@ my $password = $ENV{DBICTEST_SYBASE_PASS} || ''; my $tester = dbixcsl_common_tests->new( vendor => 'sybase', auto_inc_pk => 'INTEGER IDENTITY NOT NULL PRIMARY KEY', + default_function => 'getdate()', + default_function_def => 'AS getdate()', dsn => $dsn, user => $user, password => $password, - extra => { - create => [ + data_types => { + # http://ispirer.com/wiki/sqlways/sybase/data-types + # + # Numeric Types + 'integer identity' => { data_type => 'integer', is_auto_increment => 1 }, + int => { data_type => 'integer' }, + integer => { data_type => 'integer' }, + bigint => { data_type => 'bigint' }, + smallint => { data_type => 'smallint' }, + tinyint => { data_type => 'tinyint' }, + 'double precision' => { data_type => 'double precision' }, + real => { data_type => 'real' }, + float => { data_type => 'double precision' }, + 'float(14)' => { data_type => 'real' }, + 'float(15)' => { data_type => 'real' }, + 'float(16)' => { data_type => 'double precision' }, + 'float(48)' => { data_type => 'double precision' }, + 'numeric(6,3)' => { data_type => 'numeric', size => [6,3] }, + 'decimal(6,3)' => { data_type => 'numeric', size => [6,3] }, + numeric => { data_type => 'numeric' }, + decimal => { data_type => 'numeric' }, + bit => { data_type => 'bit' }, + + # Money Types + money => { data_type => 'money' }, + smallmoney => { data_type => 'smallmoney' }, + + # Computed Column + 'AS getdate()' => { data_type => undef, inflate_datetime => 1, default_value => \'getdate()' }, + + # Blob Types + text => { data_type => 'text' }, + unitext => { data_type => 'unitext' }, + image => { data_type => 'image' }, + + # DateTime Types + date => { data_type => 'date' }, + time => { data_type => 'time' }, + datetime => { data_type => 'datetime' }, + smalldatetime => { data_type => 'smalldatetime' }, + + # Timestamp column + timestamp => { data_type => 'timestamp', inflate_datetime => 0 }, + + # String Types + 'char' => { data_type => 'char', size => 1 }, + 'char(2)' => { data_type => 'char', size => 2 }, + 'nchar' => { data_type => 'nchar', size => 1 }, + 'nchar(2)' => { data_type => 'nchar', size => 2 }, + 'unichar(2)' => { data_type => 'unichar', size => 2 }, + 'varchar(2)' => { data_type => 'varchar', size => 2 }, + 'nvarchar(2)' => { data_type => 'nvarchar', size => 2 }, + 'univarchar(2)' => { data_type => 'univarchar', size => 2 }, + + # Binary Types + 'binary' => { data_type => 'binary', size => 1 }, + 'binary(2)' => { data_type => 'binary', size => 2 }, + 'varbinary(2)' => { data_type => 'varbinary', size => 2 }, + }, + # test that named constraints aren't picked up as tables (I can't reproduce this on my machine) + failtrigger_warnings => [ qr/^Bad table or view 'sybase_loader_test2_ref_slt1'/ ], + extra => { + create => [ q{ CREATE TABLE sybase_loader_test1 ( - id INTEGER IDENTITY NOT NULL PRIMARY KEY, - ts timestamp, - charfield VARCHAR(10) DEFAULT 'foo', - computed_dt AS getdate() + id int identity primary key ) }, -# Test data types, see http://ispirer.com/wiki/sqlways/sybase/data-types -# XXX handle FLOAT(P) at some point -# ( http://msdn.microsoft.com/en-us/library/aa258876(SQL.80).aspx ) q{ CREATE TABLE sybase_loader_test2 ( - id INTEGER IDENTITY NOT NULL PRIMARY KEY, - a_text TEXT, - a_unitext UNITEXT, - an_image IMAGE, - a_bigint BIGINT, - an_int INT, - an_integer INTEGER, - a_smallint SMALLINT, - a_tinyint TINYINT, - a_real REAL, - a_double_precision DOUBLE PRECISION, - a_date DATE, - a_time TIME, - a_datetime DATETIME, - a_smalldatetime SMALLDATETIME, - a_money MONEY, - a_smallmoney SMALLMONEY, - a_timestamp timestamp, - a_bit BIT, - a_char_with_precision CHAR(2), - an_nchar_with_precision NCHAR(2), - a_unichar_with_precision UNICHAR(2), - a_varchar_with_precision VARCHAR(2), - an_nvarchar_with_precision NVARCHAR(2), - a_univarchar_with_precision UNIVARCHAR(2), - a_float FLOAT, - a_binary_with_precision BINARY(2), - a_varbinary_with_precision VARBINARY(2), - the_numeric NUMERIC(6,3), - the_decimal DECIMAL(6,3) + id int identity primary key, + sybase_loader_test1_id int, + CONSTRAINT sybase_loader_test2_ref_slt1 FOREIGN KEY (sybase_loader_test1_id) REFERENCES sybase_loader_test1 (id) ) }, ], - drop => [ qw/ sybase_loader_test1 sybase_loader_test2 / ], - count => 38, - run => sub { - my ($schema, $monikers, $classes) = @_; - - my $rs = $schema->resultset($monikers->{sybase_loader_test1}); - my $rsrc = $rs->result_source; - - is $rsrc->column_info('id')->{data_type}, - 'int', - 'INTEGER IDENTITY data_type is correct'; - - is $rsrc->column_info('id')->{is_auto_increment}, - 1, - 'INTEGER IDENTITY is_auto_increment => 1'; - - is $rsrc->column_info('ts')->{data_type}, - 'timestamp', - 'timestamps have the correct data_type'; - - is $rsrc->column_info('charfield')->{data_type}, - 'varchar', - 'VARCHAR has correct data_type'; - - is $rsrc->column_info('charfield')->{default_value}, - 'foo', - 'constant DEFAULT is correct'; - - is $rsrc->column_info('charfield')->{size}, - 10, - 'VARCHAR(10) has correct size'; - - ok ((exists $rsrc->column_info('computed_dt')->{data_type} - && (not defined $rsrc->column_info('computed_dt')->{data_type})), - 'data_type for computed column exists and is undef') - or diag "Data type is: ", - $rsrc->column_info('computed_dt')->{data_type} - ; - - my $computed_dt_default = - $rsrc->column_info('computed_dt')->{default_value}; - - ok ((ref $computed_dt_default eq 'SCALAR'), - 'default_value for computed column is a scalar ref') - or diag "default_value is: ", $computed_dt_default - ; - - eval { is $$computed_dt_default, - 'getdate()', - 'default_value for computed column is correct' }; - - $rsrc = $schema->resultset($monikers->{sybase_loader_test2}) - ->result_source; - my @type_columns = grep /^a/, $rsrc->columns; - my @without_precision = grep !/_with_precision\z/, @type_columns; - my @with_precision = grep /_with_precision\z/, @type_columns; - my %with_precision; - @with_precision{ - apply { s/_with_precision\z// } @with_precision - } = (); - - for my $col (@without_precision) { - my ($data_type) = $col =~ /^an?_(.*)/; - $data_type =~ s/_/ /g; - - ok((not exists $rsrc->column_info($col)->{size}), - "$data_type " . - (exists $with_precision{$col} ? 'without precision ' : '') . - "has no 'size' column_info") - or diag "size is ".$rsrc->column_info($col)->{size}."\n"; - } - - for my $col (@with_precision) { - my ($data_type) = $col =~ /^an?_(.*)_with_precision\z/; - ($data_type = uc $data_type) =~ s/_/ /g; - my $size = $rsrc->column_info($col)->{size}; - - is $size, 2, - "$data_type with precision has a correct 'size' column_info"; - } - - is_deeply $rsrc->column_info('the_numeric')->{size}, [6,3], - 'size for NUMERIC(precision, scale) is correct'; - - is_deeply $rsrc->column_info('the_decimal')->{size}, [6,3], - 'size for DECIMAL(precision, scale) is correct'; - - }, + drop => [ qw/sybase_loader_test1 sybase_loader_test2/ ], }, ); @@ -160,3 +103,5 @@ if( !$dsn || !$user ) { else { $tester->run_tests(); } + +# vim:et sts=4 sw=4 tw=0: