7 local $TODO = 'Temporarily todo-ed for dq2eb';
11 use DBIC::SqlMakerTest;
13 my $schema = DBICTest->init_schema();
15 my $sql_maker = $schema->storage->sql_maker;
17 # a loop so that the callsite line does not change
18 for my $expect_warn (1, 0) {
21 my ($sql, @bind) = $sql_maker->select ('foo', undef, { -nest => \ 'bar' } );
24 'SELECT * FROM foo WHERE ( bar )', [],
28 ($expect_warn ? qr/\Q-nest in search conditions is deprecated/ : []),
29 'Only one deprecation warning'