From 0a14e22d59343475ed6970b82b474a80e43d8e29 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 30 Mar 2016 11:30:01 +0100 Subject: [PATCH] Bug 15323: Use fixtures for the active currency prove t/Prices.t fails after bug 15084 has been pushed It's caused by commit 1538e9ecf47642c4974693ff499c3e95e4d71977 Bug 15084: Replace C4::Budgets::GetCurrencies with Koha::Acquisition::Currencies->search Koha::Number::Price->_format_params calls Koha::Acquisition::Currencies->get_active, which requests the DB. The currency data should be mocked. Test plan: sudo service mysql stop prove t/Prices.t should return green Signed-off-by: Tomas Cohen Arazi Patch works as expected and passes the qa-tools tests. Signed-off-by: Katrin Fischer Signed-off-by: Brendan A Gallagher --- t/Prices.t | 20 ++++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) diff --git a/t/Prices.t b/t/Prices.t index 7ba1cc15fe..d6bfda2dd4 100644 --- a/t/Prices.t +++ b/t/Prices.t @@ -1,11 +1,10 @@ use Modern::Perl; -use Test::More tests => 16; +use Test::More tests => 17; use Test::MockModule; use t::lib::Mocks; BEGIN { - my $context_module = t::lib::Mocks::mock_dbh; use_ok('C4::Acquisition'); use_ok('C4::Bookseller'); use_ok('C4::Context'); @@ -14,6 +13,23 @@ BEGIN { t::lib::Mocks::mock_preference( 'gist', '0.02|0.05|0.196' ); +use Test::DBIx::Class { + schema_class => 'Koha::Schema', + connect_info => ['dbi:SQLite:dbname=:memory:','',''], + connect_opts => { name_sep => '.', quote_char => '`', }, + fixture_class => '::Populate', +}, 'Currency' ; + +my $db = Test::MockModule->new('Koha::Database'); +$db->mock( _new_schema => sub { return Schema(); } ); + +fixtures_ok [ + Currency => [ + [ qw/ currency symbol rate active / ], + [[ 'my_cur', '€', 1, 1, ]], + ], +], 'add currency fixtures'; + my $bookseller_module = Test::MockModule->new('Koha::Acquisition::Bookseller'); my ( $basketno_0_0, $basketno_1_1, $basketno_1_0, $basketno_0_1 ); -- 2.11.4.GIT