1#!perl
2
3use strict;
4use warnings;
5
6use lib 't/lib';
7use Test::More;
8use Test::Deep;
9
10use TestSchema;
11my $schema = TestSchema->deploy_or_connect();
12$schema->prepopulate;
13
14my $rs = $schema->resultset('Search');
15
16cmp_deeply
17   [$rs->not_like('me.name', 'bar%')->all],
18   [$rs->search({ 'me.name' => { '-not_like' => 'bar%' } })->all],
19   'not_like works the same';
20
21done_testing;
22