X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Finflate%2Fdatetime_mssql.t;h=bc85fdc1796b86bd2b7aaec8e07a6a71a4d4153c;hb=6848ce7ce4825f7f8e485b7efa2259a1f2f19578;hp=5d4c5a57de7fb2c53961bdc7e4482243d42ea258;hpb=43e06a679829e454e999b89bced59114a7a3e7fb;p=dbsrgits%2FDBIx-Class.git diff --git a/t/inflate/datetime_mssql.t b/t/inflate/datetime_mssql.t index 5d4c5a5..bc85fdc 100644 --- a/t/inflate/datetime_mssql.t +++ b/t/inflate/datetime_mssql.t @@ -27,8 +27,11 @@ my $schema = DBICTest::Schema->clone; $schema->connection($dsn, $user, $pass); $schema->storage->ensure_connected; +# coltype, column, datehash my @dt_types = ( - ['DATETIME', { + ['DATETIME', + 'last_updated_at', + { year => 2004, month => 8, day => 21, @@ -37,7 +40,9 @@ my @dt_types = ( second => 48, nanosecond => 500000000, }], - ['SMALLDATETIME', { # minute precision + ['SMALLDATETIME', # minute precision + 'small_dt', + { year => 2004, month => 8, day => 21, @@ -47,7 +52,7 @@ my @dt_types = ( ); 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"); @@ -55,21 +60,21 @@ CREATE TABLE track ( trackid INT IDENTITY PRIMARY KEY, cd INT, position INT, - last_updated_on $type, + $col $type, ) SQL ok(my $dt = DateTime->new($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' ); } # clean up our mess