From 12862646821210fcf895b3ab36410d1289e17de5 Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Wed, 10 Feb 2016 11:18:40 -0500 Subject: [PATCH] Bug 15777 - Test to prove initialization isn't working correctly. TEST PLAN --------- 1) Apply this testing patch 2) prove -v t/RecordProcessor.t -- tests will fail. 3) run koha qa test tools --- 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