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