From cd47422943a244cfe79e3bf54f58322de26a9823 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Fri, 11 Mar 2016 11:32:22 +0000
Subject: [PATCH] [PASSED QA] Bug 16053: Add tests

Signed-off-by: Owen Leonard <oleonard@myacpl.org>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
---
 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 <http://www.gnu.org/licenses>.
 
 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' );
 
-- 
1.9.1