Move find_co_root into DBICTest::Util
[dbsrgits/DBIx-Class-Historic.git] / t / storage / nobindvars.t
1 use strict;
2 use warnings;
3
4 use Test::More;
5 use lib qw(t/lib);
6 use DBICTest;
7
8 { # Fake storage driver for SQLite + no bind variables
9   package DBICTest::SQLite::NoBindVars;
10   use base qw(
11     DBIx::Class::Storage::DBI::NoBindVars
12     DBIx::Class::Storage::DBI::SQLite
13   );
14   use mro 'c3';
15 }
16
17 my $schema = DBICTest->init_schema (storage_type => 'DBICTest::SQLite::NoBindVars', no_populate => 1);
18
19 # test primary key handling
20 my $new = $schema->resultset('Artist')->create({ name => 'foo' });
21 ok($new->artistid, "Auto-PK worked");
22
23 # test LIMIT support
24 for (1..6) {
25     $schema->resultset('Artist')->create({ name => 'Artist ' . $_ });
26 }
27 my $it = $schema->resultset('Artist')->search( {},
28     { rows => 3,
29       offset => 2,
30       order_by => 'artistid' }
31 );
32
33 is( $it->count, 3, "LIMIT count ok" );  # ask for 3 rows out of 7 artists
34
35 $schema->is_executed_sql_bind( sub {
36   is( $it->next->name, "Artist 2", "iterator->next ok" );
37   $it->next;
38   $it->next;
39   is( $it->next, undef, "next past end of resultset ok" );
40 }, [
41   [ 'SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me ORDER BY artistid LIMIT 3 OFFSET 2' ],
42 ], 'Correctly interpolated SQL' );
43
44 done_testing;