From: Galen Charlton <gmc@esilibrary.com>
Date: Sun, 4 May 2014 23:24:06 +0000 (+0000)
Subject: Bug 11466: (follow-up) add additional test
X-Git-Tag: v3.16.00-beta~109
X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;h=c221194a94d42d44057c33bfe47957dca15f3415;p=koha_fer

Bug 11466: (follow-up) add additional test

This adds an additional test case to document the behavior
that if AdvancedSearchTypes contains 'itemtypes' or /is/
'itemtypes', that it returns the same results.

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

diff --git a/t/db_dependent/Suggestions.t b/t/db_dependent/Suggestions.t
index 51c21b880d..252c423281 100644
--- a/t/db_dependent/Suggestions.t
+++ b/t/db_dependent/Suggestions.t
@@ -9,7 +9,7 @@ use Data::Dumper;
 
 use C4::Suggestions;
 
-use Test::More tests =>12;
+use Test::More tests => 13;
 
 BEGIN {
     use_ok('C4::Suggestions');
@@ -29,10 +29,13 @@ ok(@{SearchSuggestion( {STATUS=>'STALLED'} )}>0, "SearchSuggestion Status OK");
 
 ## Bug 11466, making sure GetSupportList() returns itemtypes, even if AdvancedSearchTypes has multiple values
 C4::Context->set_preference("AdvancedSearchTypes", 'itemtypes|loc|ccode');
-my $itemtypes = C4::Koha::GetSupportList();
-ok(scalar @$itemtypes, "Purchase suggestion itemtypes collected, multiple AdvancedSearchTypes");
+my $itemtypes1 = C4::Koha::GetSupportList();
+ok(scalar @$itemtypes1, "Purchase suggestion itemtypes collected, multiple AdvancedSearchTypes");
 
 C4::Context->set_preference("AdvancedSearchTypes", 'itemtypes');
-$itemtypes = C4::Koha::GetSupportList();
-ok(scalar @$itemtypes, "Purchase suggestion itemtypes collected, default AdvancedSearchTypes");
-##EO Bug 11466
\ No newline at end of file
+my $itemtypes2 = C4::Koha::GetSupportList();
+ok(scalar @$itemtypes2, "Purchase suggestion itemtypes collected, default AdvancedSearchTypes");
+
+is_deeply($itemtypes1, $itemtypes2, 'same set of purchase suggestion formats retrieved');
+
+##EO Bug 11466