From 38621d2130ec3a1d29541d1362c478c33e9836f0 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 11 Mar 2016 11:32:22 +0000 Subject: [PATCH] [SIGNED-OFF] Bug 16053: Add tests Content-Type: text/plain; charset="utf-8" Signed-off-by: Owen Leonard --- 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 3e919af..7e77593 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.1.4