[Bast-commits] r7814 - DBIx-Class/0.08/trunk/t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-10-22 12:41:37 +0000 (Thu, 22 Oct 2009)
New Revision: 7814

Modified:
   DBIx-Class/0.08/trunk/t/100populate.t
Log:
a few extra tests can never hurt, right? :)

Modified: DBIx-Class/0.08/trunk/t/100populate.t
===================================================================
--- DBIx-Class/0.08/trunk/t/100populate.t	2009-10-22 11:17:41 UTC (rev 7813)
+++ DBIx-Class/0.08/trunk/t/100populate.t	2009-10-22 12:41:37 UTC (rev 7814)
@@ -258,4 +258,42 @@
   ok ($row, "Stringification test row '$_' properly inserted");
 }
 
+$rs->delete;
+
+# test stringification with ->create rather than Storage::insert_bulk as well
+
+lives_ok {
+  my @dummy = $rs->populate([
+    {
+      name => 'supplied before stringifying object',
+    },
+    {
+      name => $fn,
+    }
+  ]);
+} 'stringifying objects pass through';
+
+# ... and vice-versa.
+
+lives_ok {
+  my @dummy = $rs->populate([
+    {
+      name => $fn2,
+    },
+    {
+      name => 'supplied after stringifying object',
+    },
+  ]);
+} 'stringifying objects pass through';
+
+for (
+  $fn,
+  $fn2,
+  'supplied after stringifying object',
+  'supplied before stringifying object'
+) {
+  my $row = $rs->find ({name => $_});
+  ok ($row, "Stringification test row '$_' properly inserted");
+}
+
 done_testing;