[Bast-commits] r5457 - DBIx-Class/0.08/branches/subquery/t/resultset

robkinyon at dev.catalyst.perl.org robkinyon at dev.catalyst.perl.org
Wed Feb 11 16:24:12 GMT 2009


Author: robkinyon
Date: 2009-02-11 16:24:11 +0000 (Wed, 11 Feb 2009)
New Revision: 5457

Modified:
   DBIx-Class/0.08/branches/subquery/t/resultset/as_query.t
Log:
Checking in failing test

Modified: DBIx-Class/0.08/branches/subquery/t/resultset/as_query.t
===================================================================
--- DBIx-Class/0.08/branches/subquery/t/resultset/as_query.t	2009-02-11 16:18:16 UTC (rev 5456)
+++ DBIx-Class/0.08/branches/subquery/t/resultset/as_query.t	2009-02-11 16:24:11 UTC (rev 5457)
@@ -3,6 +3,8 @@
 use strict;
 use warnings FATAL => 'all';
 
+use Data::Dumper;
+
 use Test::More;
 use lib qw(t/lib);
 use DBICTest;
@@ -68,10 +70,11 @@
     -in => $art_rs->get_column( 'id' )->as_query,
   },
 });
+warn Dumper $cdrs2->as_query;
+__END__
+my @x = $cdrs2->all;
+warn Dumper \@x;
 
-my @x = $cdrs2->all;
-use Data::Dumper; warn Dumper \@x;
-__END__
 {
   my $arr = $cdrs2->as_query;
   my ($query, @bind) = @{$$arr};




More information about the Bast-commits mailing list