[Bast-commits] r8512 - in DBIx-Class/0.08/branches/sybase_asa: lib/DBIx/Class/Storage/DBI t/inflate

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-02-02 22:02:29 +0000 (Tue, 02 Feb 2010)
New Revision: 8512

Modified:
   DBIx-Class/0.08/branches/sybase_asa/lib/DBIx/Class/Storage/DBI/SQLAnywhere.pm
   DBIx-Class/0.08/branches/sybase_asa/t/inflate/datetime_sybase_asa.t
Log:
DT inflation now works

Modified: DBIx-Class/0.08/branches/sybase_asa/lib/DBIx/Class/Storage/DBI/SQLAnywhere.pm
===================================================================
--- DBIx-Class/0.08/branches/sybase_asa/lib/DBIx/Class/Storage/DBI/SQLAnywhere.pm	2010-02-02 21:59:28 UTC (rev 8511)
+++ DBIx-Class/0.08/branches/sybase_asa/lib/DBIx/Class/Storage/DBI/SQLAnywhere.pm	2010-02-02 22:02:29 UTC (rev 8512)
@@ -12,7 +12,7 @@
 
 =head1 NAME
 
-DBIx::Class::Storage::DBI::Sybase::ASA - Driver for Sybase SQL Anywhere
+DBIx::Class::Storage::DBI::SQLAnywhere - Driver for Sybase SQL Anywhere
 
 =head1 DESCRIPTION
 
@@ -22,8 +22,14 @@
 You need the C<DBD::SQLAnywhere> driver that comes with the SQL Anywhere
 distribution, B<NOT> the one on CPAN. It is usually under a path such as:
 
-    /opt/sqlanywhere11/sdk/perl
+  /opt/sqlanywhere11/sdk/perl
 
+Recommended L<DBIx::Class::Storage::DBI/connect_info> settings:
+
+  on_connect_call => 'datetime_setup'
+
+=head1 METHODS
+
 =cut
 
 sub last_insert_id { shift->_identity }
@@ -57,7 +63,7 @@
   return $self->next::method(@_);
 }
 
-# stolen from DB2
+# this sub stolen from DB2
 
 sub _sql_maker_opts {
   my ( $self, $opts ) = @_;
@@ -69,6 +75,48 @@
   return { limit_dialect => 'RowNumberOver', %{$self->{_sql_maker_opts}||{}} };
 }
 
+# this sub stolen from MSSQL
+
+sub build_datetime_parser {
+  my $self = shift;
+  my $type = "DateTime::Format::Strptime";
+  eval "use ${type}";
+  $self->throw_exception("Couldn't load ${type}: $@") if $@;
+  return $type->new( pattern => '%Y-%m-%d %H:%M:%S.%6N' );
+}
+
+=head2 connect_call_datetime_setup
+
+Used as:
+
+    on_connect_call => 'datetime_setup'
+
+In L<DBIx::Class::Storage::DBI/connect_info> to set the date and timestamp
+formats (as temporary options for the session) for use with
+L<DBIx::Class::InflateColumn::DateTime>.
+
+The C<TIMESTAMP> data type supports up to 6 digits after the decimal point for
+second precision. The full precision is used.
+
+The C<DATE> data type supposedly stores hours and minutes too, according to the
+documentation, but I could not get that to work. It seems to only store the
+date.
+
+You will need the L<DateTime::Format::Strptime> module for inflation to work.
+
+=cut
+
+sub connect_call_datetime_setup {
+  my $self = shift;
+
+  $self->_do_query(
+    "set temporary option timestamp_format = 'yyyy-mm-dd hh:mm:ss.ssssss'"
+  );
+  $self->_do_query(
+    "set temporary option date_format      = 'yyyy-mm-dd hh:mm:ss.ssssss'"
+  );
+}
+
 1;
 
 =head1 AUTHOR

Modified: DBIx-Class/0.08/branches/sybase_asa/t/inflate/datetime_sybase_asa.t
===================================================================
--- DBIx-Class/0.08/branches/sybase_asa/t/inflate/datetime_sybase_asa.t	2010-02-02 21:59:28 UTC (rev 8511)
+++ DBIx-Class/0.08/branches/sybase_asa/t/inflate/datetime_sybase_asa.t	2010-02-02 22:02:29 UTC (rev 8512)
@@ -13,9 +13,9 @@
     'Set $ENV{DBICTEST_SYBASE_ASA_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::Sybase;";
+  eval "use DateTime; use DateTime::Format::Strptime;";
   if ($@) {
-    plan skip_all => 'needs DateTime and DateTime::Format::Sybase for testing';
+    plan skip_all => 'needs DateTime and DateTime::Format::Strptime for testing';
   }
 }
 
@@ -24,15 +24,14 @@
 $schema = DBICTest::Schema->clone;
 
 $schema->connection($dsn, $user, $pass, {
-  AutoCommit => 1,
   on_connect_call => [ 'datetime_setup' ],
 });
 
 # coltype, col, date
 my @dt_types = (
-  ['DATETIME', 'last_updated_at', '2004-08-21T14:36:48.080Z'],
-# minute precision
-  ['SMALLDATETIME', 'small_dt', '2004-08-21T14:36:00.000Z'],
+  ['TIMESTAMP', 'last_updated_at', '2004-08-21 14:36:48.080444'],
+# date only (but minute precision according to ASA docs)
+  ['DATE', 'small_dt', '2004-08-21 00:00:00.000000'],
 );
 
 for my $dt_type (@dt_types) {
@@ -47,7 +46,7 @@
   $col $type,
 )
 SQL
-  ok(my $dt = DateTime::Format::Sybase->parse_datetime($sample_dt));
+  ok(my $dt = $schema->storage->datetime_parser->parse_datetime($sample_dt));
 
   my $row;
   ok( $row = $schema->resultset('Track')->create({