From: Matt S Trout <mst@shadowcat.co.uk>
Date: Fri, 27 Jul 2007 00:20:54 +0000 (+0000)
Subject: missed adding the test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=05e8dc0a4848cd094c2aa063d183500017421fcc;p=dbsrgits%2FDBIx-Class-Historic.git

missed adding the test
---

diff --git a/t/36datetime.t b/t/36datetime.t
new file mode 100644
index 0000000..d0d6aef
--- /dev/null
+++ b/t/36datetime.t
@@ -0,0 +1,31 @@
+use strict;
+use warnings;  
+
+use Test::More;
+use lib qw(t/lib);
+use DBICTest;
+
+eval { require DateTime::Format::MySQL };
+
+plan $@ ? ( skip_all => 'Requires DateTime::Format::MySQL' )
+        : ( tests => 3 );
+
+my $schema = DBICTest->init_schema(
+    no_deploy => 1, # Deploying would cause an early rebless
+);
+
+is(
+    ref $schema->storage, 'DBIx::Class::Storage::DBI',
+    'Starting with generic storage'
+);
+
+# Calling date_time_parser should cause the storage to be reblessed,
+# so that we can pick up datetime_parser_type from subclasses
+
+my $parser = $schema->storage->datetime_parser();
+
+# We're currently expecting a MySQL parser. May change in future.
+is($parser, 'DateTime::Format::MySQL', 'Got expected datetime_parser');
+
+isa_ok($schema->storage, 'DBIx::Class::Storage::DBI::SQLite', 'storage');
+