t/sqlahacks/sqlite.t

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