t/sqlmaker/sqlite.t

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