[Bast-commits] r6834 - DBIx-Class/0.08/branches/table_name_ref/t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-06-29 01:54:31 +0000 (Mon, 29 Jun 2009)
New Revision: 6834

Modified:
   DBIx-Class/0.08/branches/table_name_ref/t/19quotes_newstyle.t
Log:
another test

Modified: DBIx-Class/0.08/branches/table_name_ref/t/19quotes_newstyle.t
===================================================================
--- DBIx-Class/0.08/branches/table_name_ref/t/19quotes_newstyle.t	2009-06-28 21:24:47 UTC (rev 6833)
+++ DBIx-Class/0.08/branches/table_name_ref/t/19quotes_newstyle.t	2009-06-29 01:54:31 UTC (rev 6834)
@@ -11,7 +11,7 @@
     eval "use DBD::SQLite";
     plan $@
         ? ( skip_all => 'needs DBD::SQLite for testing' )
-        : ( tests => 8 );
+        : ( tests => 9 );
 }
 
 use_ok('DBICTest');
@@ -57,6 +57,16 @@
   'got correct SQL for count query with quoting'
 );
 
+# check that the table works
+eval {
+  my $rs = $schema->resultset('CDTableRef');
+  $rs->create({ cdid => 6, artist => 3, title => 'mtfnpy', year => 2009 });
+  my $row = $rs->find(6);
+  $row->update({ title => 'bleh' });
+  $row->delete;
+};
+ok !$@, 'operations on scalarref table name work';
+
 my $order = 'year DESC';
 $rs = $schema->resultset('CD')->search({},
             { 'order_by' => $order });