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