[Bast-commits] r5520 - DBIx-Class/0.08/branches/subquery/t/search

[robkinyon at dev.catalyst.perl.org]

Author: robkinyon
Date: 2009-02-18 19:19:28 +0000 (Wed, 18 Feb 2009)
New Revision: 5520

Modified:
   DBIx-Class/0.08/branches/subquery/t/search/subquery.t
Log:
Marked tests as TODO for later

Modified: DBIx-Class/0.08/branches/subquery/t/search/subquery.t
===================================================================
--- DBIx-Class/0.08/branches/subquery/t/search/subquery.t	2009-02-18 19:13:27 UTC (rev 5519)
+++ DBIx-Class/0.08/branches/subquery/t/search/subquery.t	2009-02-18 19:19:28 UTC (rev 5520)
@@ -31,7 +31,7 @@
 }
 
 TODO: {
-#  local $TODO = "'+select' doesn't work with as_query yet.";
+  local $TODO = "'+select' doesn't work with as_query yet.";
   my $rs = $art_rs->search(
     {},
     {
@@ -54,7 +54,7 @@
 }
 
 TODO: {
-#  local $TODO = "'from' doesn't work with as_query yet.";
+  local $TODO = "'from' doesn't work with as_query yet.";
   my $rs = $cdrs->search(
     {},
     {
@@ -74,8 +74,7 @@
   );
 }
 
-TODO: {
-#  local $TODO = "The subquery isn't being wrapped in parens for some reason.";
+{
   my $rs = $cdrs->search({
     year => {
       '=' => $cdrs->search(
@@ -93,6 +92,4 @@
   );
 }
 
-my $rs = $cdrs->search( undef, { alias => 'foo' } );
-warn ${$rs->as_query}->[0], $/;
 __END__