X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Finflate%2Fdatetime_sybase.t;h=bbd603ae35a5a728dca7ea02f7b3410b3717f778;hb=95787afeb4ecec13279ab2fb26a407c0f971b7df;hp=13edcb58915932bc3c00ea33b5f0461c5fbaca0d;hpb=7d17f469081c4932520458014b820daa8d3e986e;p=dbsrgits%2FDBIx-Class.git diff --git a/t/inflate/datetime_sybase.t b/t/inflate/datetime_sybase.t index 13edcb5..bbd603a 100644 --- a/t/inflate/datetime_sybase.t +++ b/t/inflate/datetime_sybase.t @@ -23,15 +23,15 @@ if (not ($dsn && $user)) { } my @storage_types = ( - 'DBI::Sybase', - 'DBI::Sybase::NoBindVars', + 'DBI::Sybase::ASE', + 'DBI::Sybase::ASE::NoBindVars', ); my $schema; for my $storage_type (@storage_types) { $schema = DBICTest::Schema->clone; - unless ($storage_type eq 'DBI::Sybase') { # autodetect + unless ($storage_type eq 'DBI::Sybase::ASE') { # autodetect $schema->storage_type("::$storage_type"); } $schema->connection($dsn, $user, $pass, { @@ -43,13 +43,15 @@ for my $storage_type (@storage_types) { isa_ok( $schema->storage, "DBIx::Class::Storage::$storage_type" ); +# coltype, col, date my @dt_types = ( - ['DATETIME', '2004-08-21T14:36:48.080Z'], - ['SMALLDATETIME', '2004-08-21T14:36:00.000Z'], # minute precision + ['DATETIME', 'last_updated_at', '2004-08-21T14:36:48.080Z'], +# minute precision + ['SMALLDATETIME', 'small_dt', '2004-08-21T14:36:00.000Z'], ); for my $dt_type (@dt_types) { - my ($type, $sample_dt) = @$dt_type; + my ($type, $col, $sample_dt) = @$dt_type; eval { $schema->storage->dbh->do("DROP TABLE track") }; $schema->storage->dbh->do(<<"SQL"); @@ -57,21 +59,21 @@ CREATE TABLE track ( trackid INT IDENTITY PRIMARY KEY, cd INT, position INT, - last_updated_on $type, + $col $type, ) SQL ok(my $dt = DateTime::Format::Sybase->parse_datetime($sample_dt)); my $row; ok( $row = $schema->resultset('Track')->create({ - last_updated_on => $dt, + $col => $dt, cd => 1, })); ok( $row = $schema->resultset('Track') - ->search({ trackid => $row->trackid }, { select => ['last_updated_on'] }) + ->search({ trackid => $row->trackid }, { select => [$col] }) ->first ); - is( $row->updated_date, $dt, 'DateTime roundtrip' ); + is( $row->$col, $dt, 'DateTime roundtrip' ); } }