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

[arcanez at dev.catalyst.perl.org]

Author: arcanez
Date: 2009-04-29 13:47:03 +0100 (Wed, 29 Apr 2009)
New Revision: 6018

Modified:
   DBIx-Class/0.08/trunk/t/76select.t
Log:
untodo/fix test

Modified: DBIx-Class/0.08/trunk/t/76select.t
===================================================================
--- DBIx-Class/0.08/trunk/t/76select.t	2009-04-29 08:24:20 UTC (rev 6017)
+++ DBIx-Class/0.08/trunk/t/76select.t	2009-04-29 12:47:03 UTC (rev 6018)
@@ -102,13 +102,9 @@
   $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'); 
-}
+lives_ok(sub {
+  $rs->first->artist->get_column('name') 
+}, 'columns 3rd rscolumn present'); 
 
 
 
@@ -137,10 +133,6 @@
   $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');
-}
+lives_ok(sub {
+  $rs->first->artist->get_column('name')
+}, 'columns 3rd rscolumn present');