Attachment #134865 for bug #29418

View | Details | Raw Unified | Return to bug 29418
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', 'remove colon at the end');
};

Return to bug 29418

Lines 17-23 Link Here

(-)a/t/Koha/SearchEngine/Zebra/QueryBuilder.t (-2 / +14 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	plan tests => 2;
		82
		83	my $qb;
		84	ok(
		85	$qb = Koha::SearchEngine::Zebra::QueryBuilder->new(),
		86	'Creating a new QueryBuilder object'
		87	);
		88
		89	my $res = $qb->clean_search_term('test query\:');
		90	is($res, 'test query', 'remove colon at the end');
		91	};