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 use DBIC::DebugObj;
   8 use DBIC::SqlMakerTest;
   9 use DBI::Const::GetInfoType;
  10
  11 { # Fake storage driver for SQLite + no bind variables
  12   package DBICTest::SQLite::NoBindVars;
  13     use Class::C3;
  14     use base qw/
  15         DBIx::Class::Storage::DBI::NoBindVars
  16         DBIx::Class::Storage::DBI::SQLite
  17     /;
  18 }
  19
  20 my $schema = DBICTest->init_schema (storage_type => 'DBICTest::SQLite::NoBindVars', no_populate => 1);
  21
  22 # test primary key handling
  23 my $new = $schema->resultset('Artist')->create({ name => 'foo' });
  24 ok($new->artistid, "Auto-PK worked");
  25
  26 # test LIMIT support
  27 for (1..6) {
  28     $schema->resultset('Artist')->create({ name => 'Artist ' . $_ });
  29 }
  30 my $it = $schema->resultset('Artist')->search( {},
  31     { rows => 3,
  32       offset => 2,
  33       order_by => 'artistid' }
  34 );
  35
  36 is( $it->count, 3, "LIMIT count ok" );  # ask for 3 rows out of 7 artists
  37
  38 my ($sql, @bind);
  39 my $orig_debugobj = $schema->storage->debugobj;
  40 my $orig_debug = $schema->storage->debug;
  41 $schema->storage->debugobj (DBIC::DebugObj->new (\$sql, \@bind) );
  42 $schema->storage->debug (1);
  43
  44 is( $it->next->name, "Artist 2", "iterator->next ok" );
  45 $it->next;
  46 $it->next;
  47 is( $it->next, undef, "next past end of resultset ok" );
  48
  49 $schema->storage->debugobj ($orig_debugobj);
  50 $schema->storage->debug ($orig_debug);
  51
  52 is_same_sql_bind (
  53   $sql,
  54   \@bind,
  55   'SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me ORDER BY artistid LIMIT 3 OFFSET 2',
  56   [],
  57   'Correctly interpolated SQL'
  58 );
  59
  60 done_testing;