From 424db2673dafcb4c07228315d754c85fbd414fd0 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Mon, 8 Dec 2014 07:19:59 -0500 Subject: [PATCH] [PASSED QA] Bug 13189: (QA Followup) Unit Tests MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Resolved easy conflict (test count) and tested. Signed-off-by: Marc VĂ©ron Signed-off-by: Tomas Cohen Arazi --- t/db_dependent/Members.t | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Members.t b/t/db_dependent/Members.t index cf19819..dc2b0a3 100755 --- a/t/db_dependent/Members.t +++ b/t/db_dependent/Members.t @@ -17,10 +17,12 @@ use Modern::Perl; -use Test::More tests => 72; +use Test::More tests => 74; use Test::MockModule; use Data::Dumper; use C4::Context; +use C4::Members::Attributes qw( SetBorrowerAttributes ); +use C4::Members::AttributeTypes; BEGIN { use_ok('C4::Members'); @@ -183,6 +185,16 @@ $results = Search(\@searchstring); ok (_find_member($results), "Search (arrayref) for independent branches, same branch") or diag("Card $CARDNUMBER not found in the resultset for independent branches: ".Dumper(C4::Context->preference($INDEPENDENT_BRANCHES_PREF), $results)); +C4::Context->set_preference('ExtendedPatronAttributes', 1); +my $attr_type = C4::Members::AttributeTypes->new("TEST", "Test Description"); +$attr_type->staff_searchable(1); +$attr_type->store(); +SetBorrowerAttributes($addmem, [ { code => 'TEST', value => 'XYZZYX' } ] ); +$results = Search( "XYZZYX", undef, undef, undef, undef, undef, 1 ); +is( @$results, 0, "Search without extended attributes returns no results" ); +$results = Search( "XYZZYX", undef, undef, undef, undef, undef, 0 ); +is( @$results, 1, "Search with extended attributes returns results" ); + C4::Context->set_preference( 'CardnumberLength', '' ); C4::Context->clear_syspref_cache(); -- 2.3.5