@@ -, +, @@ --- t/db_dependent/Koha/Acquisition/Currencies.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) --- a/t/db_dependent/Koha/Acquisition/Currencies.t +++ a/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' ); --