From: Rob Kinyon <rkinyon@cpan.org>
Date: Wed, 11 Feb 2009 16:24:11 +0000 (+0000)
Subject: Checking in failing test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=70eb901c022556ae982cbd55b4f738af20d2a302;p=dbsrgits%2FDBIx-Class-Historic.git

Checking in failing test
---

diff --git a/t/resultset/as_query.t b/t/resultset/as_query.t
index 43c8ddd..5211637 100644
--- a/t/resultset/as_query.t
+++ b/t/resultset/as_query.t
@@ -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 @@ my $cdrs2 = $cdrs->search({
     -in => $art_rs->get_column( 'id' )->as_query,
   },
 });
-
-my @x = $cdrs2->all;
-use Data::Dumper; warn Dumper \@x;
+warn Dumper $cdrs2->as_query;
 __END__
+my @x = $cdrs2->all;
+warn Dumper \@x;
+
 {
   my $arr = $cdrs2->as_query;
   my ($query, @bind) = @{$$arr};