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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-04-29 09:23:25 +0100 (Wed, 29 Apr 2009)
New Revision: 6016

Modified:
   DBIx-Class/0.08/trunk/t/76select.t
Log:
Add two TODOs by arcanez (not sure about those)

Modified: DBIx-Class/0.08/trunk/t/76select.t
===================================================================
--- DBIx-Class/0.08/trunk/t/76select.t	2009-04-29 08:22:16 UTC (rev 6015)
+++ DBIx-Class/0.08/trunk/t/76select.t	2009-04-29 08:23:25 UTC (rev 6016)
@@ -9,7 +9,7 @@
 
 my $schema = DBICTest->init_schema();
 
-plan tests => 19;
+plan tests => 21;
 
 my $rs = $schema->resultset('CD')->search({},
     {
@@ -102,7 +102,16 @@
   $rs->first->get_column('title')
 }, 'columns 2nd rscolumn present');
 
+TODO: {
+  local $TODO = "Need to remove '.' from accessors";
+  # I think this is too much dwis  #ribasushi
+  lives_ok(sub {
+    $rs->first->get_column("artist.name") 
+  }, 'columns 3rd rscolumn present'); 
+}
 
+
+
 $rs = $schema->resultset('CD')->search({},
     {  
         'join' => 'artist',
@@ -127,3 +136,11 @@
 lives_ok(sub {
   $rs->first->get_column('title')
 }, 'columns 2nd rscolumn present');
+
+TODO: {
+  local $TODO = "Need to remove '.' from accessors";
+  # I think this is too much dwis  #ribasushi
+  lives_ok(sub {
+    $rs->first->get_column("artist.name")
+  }, 'columns 3rd rscolumn present');
+}