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