From 5d12b2f099affb54ff1a3f8496e70e30ba816154 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Mon, 4 Jul 2022 15:18:44 -0300 Subject: [PATCH] Bug 29418: Unit tests Signed-off-by: Tomas Cohen Arazi Signed-off-by: David Nind --- t/Koha/SearchEngine/Zebra/QueryBuilder.t | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/t/Koha/SearchEngine/Zebra/QueryBuilder.t b/t/Koha/SearchEngine/Zebra/QueryBuilder.t index 809eb3a524..6dca03263d 100755 --- a/t/Koha/SearchEngine/Zebra/QueryBuilder.t +++ b/t/Koha/SearchEngine/Zebra/QueryBuilder.t @@ -17,7 +17,7 @@ use Modern::Perl; -use Test::More tests => 3; +use Test::More tests => 4; use Test::MockModule; use_ok('Koha::SearchEngine::Zebra::QueryBuilder'); @@ -76,3 +76,17 @@ subtest 'build_query_compat() tests' => sub { ( undef, $query ) = $qb->build_query_compat( undef, undef, undef, undef, undef, undef, undef, { suppress => 0 } ); is( $query, 'query', 'Suppress part of the query not added (PQF)'); }; + +subtest 'clean_search_term() tests' => sub { + + plan tests => 2; + + my $qb; + ok( + $qb = Koha::SearchEngine::Zebra::QueryBuilder->new(), + 'Creating a new QueryBuilder object' + ); + + my $res = $qb->clean_search_term('test "query":'); + is($res, 'test \"query\":', 'Double-quotes are escaped'); +}; -- 2.11.0