t/sqlmaker/sqlite.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use lib qw(t/lib);
   6 use DBICTest ':DiffSQL';
   7
   8 my $schema = DBICTest->init_schema;
   9
  10 is_same_sql_bind(
  11   $schema->resultset('Artist')->search ({}, {for => 'update'})->as_query,
  12   '(SELECT me.artistid, me.name, me.rank, me.charfield FROM artist me)', [],
  13 );
  14
  15 done_testing;