From: Rafael Kitover <rkitover@cpan.org>
Date: Mon, 29 Jun 2009 01:54:31 +0000 (+0000)
Subject: another test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b3c4ad6b3a6978ab476a2a965566047af8ba1694;p=dbsrgits%2FDBIx-Class-Historic.git

another test
---

diff --git a/t/19quotes_newstyle.t b/t/19quotes_newstyle.t
index 01a8c77..7c2d3f2 100644
--- a/t/19quotes_newstyle.t
+++ b/t/19quotes_newstyle.t
@@ -11,7 +11,7 @@ BEGIN {
     eval "use DBD::SQLite";
     plan $@
         ? ( skip_all => 'needs DBD::SQLite for testing' )
-        : ( tests => 8 );
+        : ( tests => 9 );
 }
 
 use_ok('DBICTest');
@@ -57,6 +57,16 @@ is_same_sql_bind(
   '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 });