[Bast-commits] r7105 - DBIx-Class/0.08/branches/reduce_pings/t/inflate

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-07-24 05:26:13 +0000 (Fri, 24 Jul 2009)
New Revision: 7105

Removed:
   DBIx-Class/0.08/branches/reduce_pings/t/inflate/datetime_mssql.t
Log:
moving test to another branch

Deleted: DBIx-Class/0.08/branches/reduce_pings/t/inflate/datetime_mssql.t
===================================================================
--- DBIx-Class/0.08/branches/reduce_pings/t/inflate/datetime_mssql.t	2009-07-24 04:51:57 UTC (rev 7104)
+++ DBIx-Class/0.08/branches/reduce_pings/t/inflate/datetime_mssql.t	2009-07-24 05:26:13 UTC (rev 7105)
@@ -1,80 +0,0 @@
-use strict;
-use warnings;  
-
-use Test::More;
-use Test::Exception;
-use lib qw(t/lib);
-use DBICTest;
-
-my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MSSQL_ODBC_${_}" } qw/DSN USER PASS/};
-
-if (not ($dsn && $user)) {
-  plan skip_all =>
-    'Set $ENV{DBICTEST_MSSQL_ODBC_DSN}, _USER and _PASS to run this test' .
-    "\nWarning: This test drops and creates a table called 'track'";
-} else {
-  eval "use DateTime; use DateTime::Format::Strptime;";
-  if ($@) {
-    plan skip_all => 'needs DateTime and DateTime::Format::Strptime for testing';
-  }
-  else {
-    plan tests => 4 * 2; # (tests * dt_types)
-  }
-}
-
-my $schema = DBICTest::Schema->clone;
-
-$schema->connection($dsn, $user, $pass);
-$schema->storage->ensure_connected;
-
-my @dt_types = (
-  ['DATETIME', {
-    year => 2004,
-    month => 8,
-    day => 21,
-    hour => 14,
-    minute => 36,
-    second => 48,
-    nanosecond => 500000000,
-  }],
-  ['SMALLDATETIME', { # minute precision
-    year => 2004,
-    month => 8,
-    day => 21,
-    hour => 14,
-    minute => 36,
-  }],
-);
-
-for my $dt_type (@dt_types) {
-  my ($type, $sample_dt) = @$dt_type;
-
-  eval { $schema->storage->dbh->do("DROP TABLE track") };
-  $schema->storage->dbh->do(<<"SQL");
-CREATE TABLE track (
- trackid INT IDENTITY PRIMARY KEY,
- cd INT,
- position INT,
- last_updated_on $type,
-)
-SQL
-  ok(my $dt = DateTime->new($sample_dt));
-
-  my $row;
-  ok( $row = $schema->resultset('Track')->create({
-        last_updated_on => $dt,
-        cd => 1,
-      }));
-  ok( $row = $schema->resultset('Track')
-    ->search({ trackid => $row->trackid }, { select => ['last_updated_on'] })
-    ->first
-  );
-  is( $row->updated_date, $dt, 'DateTime roundtrip' );
-}
-
-# clean up our mess
-END {
-  if (my $dbh = eval { $schema->storage->_dbh }) {
-    $dbh->do('DROP TABLE track');
-  }
-}