[Bast-commits] r3282 - branches/DBIx-Class/bulk_create/t

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-05-10 22:29:55 +0100 (Thu, 10 May 2007)
New Revision: 3282

Modified:
   branches/DBIx-Class/bulk_create/t/96multi_create.t
Log:
dt test

Modified: branches/DBIx-Class/bulk_create/t/96multi_create.t
===================================================================
--- branches/DBIx-Class/bulk_create/t/96multi_create.t	2007-05-10 21:16:42 UTC (rev 3281)
+++ branches/DBIx-Class/bulk_create/t/96multi_create.t	2007-05-10 21:29:55 UTC (rev 3282)
@@ -4,10 +4,11 @@
 use Test::More;
 use lib qw(t/lib);
 use DBICTest;
+use DateTime;
 
 my $schema = DBICTest->init_schema();
 
-plan tests => 11;
+plan tests => 12;
 
 my $cd2 = $schema->resultset('CD')->create({ artist => 
                                    { name => 'Fred Bloggs' },
@@ -118,3 +119,9 @@
 		ok( $track && ref $track eq 'DBICTest::Track', 'Got Expected Track Class');
 	}
 }
+
+my $now = DateTime->now;
+
+ok( $schema->resultset('Event')
+           ->create( { starts_at => $now, created_on => $now } ),
+  'object with inflated non-rels ok');