From b656d90147fc1cd20434c812129a1c2603aee185 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 11 Mar 2016 11:32:22 +0000 Subject: [PATCH] Bug 16053: Add tests Signed-off-by: Owen Leonard Signed-off-by: Katrin Fischer Signed-off-by: Brendan Gallagher brendan@bywatersolutions.com --- t/db_dependent/Koha/Acquisition/Currencies.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Koha/Acquisition/Currencies.t b/t/db_dependent/Koha/Acquisition/Currencies.t index 3e919afe58..7e77593be9 100644 --- a/t/db_dependent/Koha/Acquisition/Currencies.t +++ b/t/db_dependent/Koha/Acquisition/Currencies.t @@ -18,7 +18,7 @@ # along with Koha; if not, see . use Modern::Perl; -use Test::More tests => 6; +use Test::More tests => 7; use Koha::Database; use Koha::Acquisition::Currency; use Koha::Acquisition::Currencies; @@ -56,6 +56,10 @@ is( Koha::Acquisition::Currencies->search->count, $nb_of_currencies + 2, 'The 2 my $retrieved_currency_2 = Koha::Acquisition::Currencies->find( $new_currency_2->currency ); is( $retrieved_currency_2->active, 1, 'Active should have been set to 1' ); +$retrieved_currency_2->store; +$retrieved_currency_2 = Koha::Acquisition::Currencies->find( $new_currency_2->currency ); +is( $retrieved_currency_2->active, 1, 'Editing the existing active currency should not remove its active flag' ); + my $active_currency = Koha::Acquisition::Currencies->get_active; is ( $active_currency->currency, $retrieved_currency_2->currency, 'The active currency should be the last one marked as active' ); -- 2.39.5