use lib 't';
-use Test::More tests => 28;
+use Test::More tests => 38;
use Test::Deep;
use Data::Dumper;
}
}, 'deep laundering, check for laundered hash', target => 'launder', launder_to => { };
+test {
+ part => {
+ 'sellprice:number' => '2',
+ 'sellprice:number::' => 'le',
+ }
+}, {
+ part => {
+ 'sellprice:number' => '2',
+ 'sellprice:number::' => 'le',
+ }
+}, 'laundering of indirect filters does not alter', target => 'filter', launder_to => { };
+
+test {
+ part => {
+ 'sellprice:number' => '2',
+ 'sellprice:number::' => 'le',
+ }
+}, {
+ part => {
+ 'sellprice_number' => '2',
+ 'sellprice_number__' => 'le',
+ }
+}, 'laundering of indirect filters', target => 'launder', launder_to => { };
+
+test {
+ part => {
+ 'sellprice:number' => '2',
+ 'sellprice:number::' => 'le',
+ }
+}, {
+ part => {
+ 'sellprice:number' => '2',
+ 'sellprice:number::' => 'le',
+ 'sellprice_number' => '2',
+ 'sellprice_number__' => 'le',
+ }
+}, 'laundering of indirect filters - inplace', target => 'filter';
+
### bug: sub objects
test {
'part.partnumber', {
ilike => '%1%'
}
- ]
+ ],
+ with_objects => [ 'part' ],
}, 'Regression check: prefixing of fallback filtering in relation with custom filters', class => 'SL::DB::Manager::OrderItem';
+test {
+ 'description:substr:multi::ilike' => 'term1 term2',
+}, {
+ query => [
+ and => [
+ description => { ilike => '%term1%' },
+ description => { ilike => '%term2%' },
+ ]
+ ]
+}, 'simple :multi';
+
+test {
+ part => {
+ 'all:substr:multi::ilike' => 'term1 term2',
+ },
+}, {
+ query => [
+ and => [
+ or => [
+ 'part.partnumber' => { ilike => '%term1%' },
+ 'part.description' => { ilike => '%term1%' },
+ ],
+ or => [
+ 'part.partnumber' => { ilike => '%term2%' },
+ 'part.description' => { ilike => '%term2%' },
+ ],
+ ]
+ ],
+}, 'complex :multi with custom dispatch and prefix', class => 'SL::DB::Manager::OrderItem';
+
+test {
+ 'description:substr:multi::ilike' => q|term1 "term2 and half" 'term3 and stuff'|,
+}, {
+ query => [
+ and => [
+ description => { ilike => '%term1%' },
+ description => { ilike => '%term2 and half%' },
+ description => { ilike => '%term3 and stuff%' },
+ ]
+ ]
+}, ':multi with complex tokenizing';
+
+# test tokenizing for custom filters by monkeypatching a custom filter into Part
+SL::DB::Manager::Part->add_filter_specs(
+ test => sub {
+ my ($key, $value, $prefix, @additional) = @_;
+ return "$prefix$key" => { @additional, $value };
+ }
+);
+
+test {
+ 'part.test.what' => 2,
+}, {
+ query => [
+ 'part.test' => { 'what', 2 },
+ ]
+}, 'additional tokens', class => 'SL::DB::Manager::OrderItem';
+
+test {
+ 'part.test.what:substr::ilike' => 2,
+}, {
+ query => [
+ 'part.test' => { 'what', { ilike => '%2%' } },
+ ]
+}, 'additional tokens + filters + methods', class => 'SL::DB::Manager::OrderItem';
+
+test {
+ 'orderitems.part.test.what:substr::ilike' => 2,
+}, {
+ query => [
+ 'orderitems.part.test' => { 'what', { ilike => '%2%' } },
+ ]
+}, 'relationship + additional tokens + filters + methods', class => 'SL::DB::Manager::Order';
+
+test {
+ part => {
+ 'obsolete::lazy_bool_eq' => '0',
+ },
+}, {
+ query => [
+ or => [
+ 'part.obsolete' => undef,
+ 'part.obsolete' => 0
+ ],
+ ],
+ with_objects => [ 'part' ],
+}, 'complex methods modifying the key';
+