[Bast-commits] r7431 - DBIx-Class/0.08/branches/sybase/t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-08-29 22:02:20 +0000 (Sat, 29 Aug 2009)
New Revision: 7431

Modified:
   DBIx-Class/0.08/branches/sybase/t/746sybase.t
Log:
test correlated subquery

Modified: DBIx-Class/0.08/branches/sybase/t/746sybase.t
===================================================================
--- DBIx-Class/0.08/branches/sybase/t/746sybase.t	2009-08-29 20:54:58 UTC (rev 7430)
+++ DBIx-Class/0.08/branches/sybase/t/746sybase.t	2009-08-29 22:02:20 UTC (rev 7431)
@@ -11,7 +11,7 @@
 
 my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_SYBASE_${_}" } qw/DSN USER PASS/};
 
-my $TESTS = 38 + 2;
+my $TESTS = 39 + 2;
 
 if (not ($dsn && $user)) {
   plan skip_all =>
@@ -188,6 +188,15 @@
     }
   }
 
+# test correlated subquery
+  my $subq = $schema->resultset('Artist')->search({ artistid => { '>' => 3 } })
+    ->get_column('artistid')
+    ->as_query;
+  my $subq_rs = $schema->resultset('Artist')->search({
+    artistid => { -in => $subq }
+  });
+  is $subq_rs->count, 11, 'correlated subquery';
+
 # mostly stolen from the blob stuff Nniuq wrote for t/73oracle.t
   SKIP: {
     skip 'TEXT/IMAGE support does not work with FreeTDS', 12