From 4315346d90387c7d5609bd0d1626341bc86d8cf3 Mon Sep 17 00:00:00 2001
From: Mark Tompsett <mtompset@hotmail.com>
Date: Wed, 10 Feb 2016 11:18:40 -0500
Subject: [PATCH] Bug 15777 - Test to prove initialization isn't working
 correctly.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

TEST PLAN
---------
1) Apply this testing patch
2) prove -v t/RecordProcessor.t
   -- tests will fail.
3) run koha qa test tools

Signed-off-by: Marc Véron <veron@veron.ch>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
---
 t/RecordProcessor.t | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/t/RecordProcessor.t b/t/RecordProcessor.t
index 850ad39..ad475d4 100755
--- a/t/RecordProcessor.t
+++ b/t/RecordProcessor.t
@@ -79,7 +79,7 @@ ok(!$@, 'Destroyed processor successfully');
 
 subtest "new() tests" => sub {
 
-    plan tests => 13;
+    plan tests => 14;
 
     my $processor;
 
@@ -103,11 +103,18 @@ subtest "new() tests" => sub {
     is( ref($processor->filters->[1]), 'Koha::Filter::MARC::EmbedSeeFromHeadings', 'Correct second filter initialized' );
 
     # Create a processor with both valid and invalid filters.
-    $processor = new Koha::RecordProcessor({ filters => [ 'Null', 'Dummy' ] });
+    # use hash reference for regression testing
+    my $parameters = {
+        filters => [ 'Null', 'Dummy' ],
+        options => { 'test' => 'true' }
+    };
+    $processor = new Koha::RecordProcessor($parameters);
     is( ref($processor), 'Koha::RecordProcessor', 'Processor created' );
     is( scalar @{ $processor->filters }, 1, 'Invalid filter skipped' );
     is( ref($processor->filters->[0]), 'Koha::Filter::MARC::Null', 'Correct filter initialized' );
 
+    my $filter_params = $processor->filters->[0]->params;
+    is_deeply( $filter_params, $parameters, 'Initialization parameters' );
 };
 
 done_testing();
-- 
2.1.4