# 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;
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' );