LP#1005040: adjust test cases

* Now reflects change in signature of
  OpenILS::WWW::EGCatLoader::_prepare_biblio_search()
* add test case for change in date filter mapping

Signed-off-by: Galen Charlton <gmc@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/t/19-OpenILS-WWW-EGCatLoader.t b/Open-ILS/src/perlmods/t/19-OpenILS-WWW-EGCatLoader.t
index 9d33829..e8c1a0b 100644 (file)
--- a/Open-ILS/src/perlmods/t/19-OpenILS-WWW-EGCatLoader.t
+++ b/Open-ILS/src/perlmods/t/19-OpenILS-WWW-EGCatLoader.t
@@ -1,6 +1,6 @@
 #!perl -T
 
-use Test::More tests => 9;
+use Test::More tests => 11;
 use CGI;
 
 BEGIN {
@@ -17,7 +17,14 @@ my $cgi = CGI->new();
 $cgi->param('query', 'sort(titlesort) cats site(CONS)');
 $cgi->param('sort',  '');
 $cgi->param('depth', 0);
-my ($new_query, $site, $depth) = OpenILS::WWW::EGCatLoader::_prepare_biblio_search($cgi, $ctx);
+my ($user_query, $query, $site, $depth) = OpenILS::WWW::EGCatLoader::_prepare_biblio_search($cgi, $ctx);
+is($user_query, 'sort(titlesort) cats site(CONS)', 'LP#100504: user query left as is');
 is($site,  'CONS', 'successfully parsed site');
 is($depth, '0',    'successfully parsed depth');
-is($new_query,  'cats site(CONS) depth(0)', 'LP#1562153: change sort order to relevance');
+is($query,  'cats site(CONS) depth(0)', 'LP#1562153: change sort order to relevance');
+
+# test date filter
+$cgi->param('pubdate', 'is');
+$cgi->param('date1', '1999');
+($user_query, $query, $site, $depth) = OpenILS::WWW::EGCatLoader::_prepare_biblio_search($cgi, $ctx);
+is($query, 'date1(1999)  cats site(CONS) depth(0)', 'LP#1005040: "is" pubdate filter mapped to date1() filter');