Attachment #137237 for bug #31106

View | Details | Raw Unified | Return to bug 31106
Collapse All | Expand All





use Modern::Perl;

use Test::More tests => 4;
use Test::MockModule;

use_ok('Koha::SearchEngine::Zebra::QueryBuilder');

    ( 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');
};

Return to bug 31106

Lines 17-23 Link Here

(-)a/t/Koha/SearchEngine/Zebra/QueryBuilder.t (-2 / +15 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Test::More tests => 3;	20	use Test::More tests => 4;
21	use Test::MockModule;	21	use Test::MockModule;
22		22
23	use_ok('Koha::SearchEngine::Zebra::QueryBuilder');	23	use_ok('Koha::SearchEngine::Zebra::QueryBuilder');
Lines 76-78 subtest 'build_query_compat() tests' => sub { Link Here
76	( undef, $query ) = $qb->build_query_compat( undef, undef, undef, undef, undef, undef, undef, { suppress => 0 } );	76	( undef, $query ) = $qb->build_query_compat( undef, undef, undef, undef, undef, undef, undef, { suppress => 0 } );
77	is( $query, 'query', 'Suppress part of the query not added (PQF)');	77	is( $query, 'query', 'Suppress part of the query not added (PQF)');
78	};	78	};
79	-	79
		80	subtest 'clean_search_term() tests' => sub {
		81
		82	plan tests => 2;
		83
		84	my $qb;
		85	ok(
		86	$qb = Koha::SearchEngine::Zebra::QueryBuilder->new(),
		87	'Creating a new QueryBuilder object'
		88	);
		89
		90	my $res = $qb->clean_search_term('test "query":');
		91	is($res, 'test \"query\":', 'Double-quotes are escaped');
		92	};