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