From: Andy Grundman <andy@hybridized.org>
Date: Fri, 12 Aug 2005 19:49:06 +0000 (+0000)
Subject: Added Oracle LIMIT tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4bb63dac77371df16576966b655ec1a4bbd4180b;p=dbsrgits%2FDBIx-Class-Historic.git

Added Oracle LIMIT tests
---

diff --git a/t/13oracle.t b/t/13oracle.t
index b031ab3..a327099 100644
--- a/t/13oracle.t
+++ b/t/13oracle.t
@@ -9,7 +9,7 @@ plan skip_all, 'Set $ENV{DBICTEST_ORA_DSN}, _USER and _PASS to run this test. '
   'Warning: This test drops and creates a table called \'artist\''
   unless ($dsn && $user && $pass);
 
-plan tests => 1;
+plan tests => 4;
 
 DBICTest::Schema->compose_connection('OraTest' => $dsn, $user, $pass);
 
@@ -37,10 +37,26 @@ $dbh->do(qq{
 
 OraTest::Artist->load_components('PK::Auto::Oracle');
 
+# test primary key handling
 my $new = OraTest::Artist->create({ name => 'foo' });
-
 ok($new->artistid, "Oracle Auto-PK worked");
 
+# test LIMIT support
+for (1..6) {
+    OraTest::Artist->create({ name => 'Artist ' . $_ });
+}
+my $it = OraTest::Artist->search( {},
+    { rows => 3,
+      offset => 2,
+      order_by => 'artistid' }
+);
+is( $it->count, 3, "LIMIT count ok" );
+is( $it->next->name, "Artist 2", "iterator->next ok" );
+$it->next;
+$it->next;
+is( $it->next, undef, "next past end of resultset ok" );
+
+# clean up our mess
 $dbh->do("DROP SEQUENCE artist_seq");
 $dbh->do("DROP TABLE artist");