#!/usr/bin/perl
-use strict;
-use warnings;
+use Modern::Perl;
use C4::Biblio;
-use C4::Budgets;
+use Koha::Database;
+use Koha::Acquisition::Currencies;
use Test::More;
-use utf8;
# work around wide character warnings
binmode Test::More->builder->output, ":encoding(UTF-8)";
binmode Test::More->builder->failure_output, ":encoding(UTF-8)";
-# start transaction
+my $schema = Koha::Database->new->schema;
+$schema->storage->txn_begin;
my $dbh = C4::Context->dbh;
-$dbh->{AutoCommit} = 0;
-$dbh->{RaiseError} = 1;
# set some test price strings and expected output
my @prices2test=( { string => '25,5 £, $34,55, $LD35', expected => '34.55' },
{ string => '5.99 (7.75 CAN)', expected => '5.99' },
);
-plan tests => scalar @prices2test;
+plan tests => 2 * scalar @prices2test;
# set active currency test data
my $CURRENCY = 'TEST';
my $RATE= 1;
# disables existing active currency if necessary.
-my $active_currency = C4::Budgets->GetCurrency();
+my $active_currency = Koha::Acquisition::Currencies->get_active;
my $curr;
if ($active_currency) {
- $curr = $active_currency->{'currency'};
+ $curr = $active_currency->currency;
$dbh->do("UPDATE currency set active = 0 where currency = '$curr'");
}
$dbh->do("INSERT INTO currency ( currency,symbol,isocode,rate,active )
VALUES ('$CURRENCY','$SYMBOL','$ISOCODE','$RATE',1)");
foreach my $price (@prices2test) {
- my $mungemarcprice=MungeMarcPrice($price->{'string'});
- my $expected=$price->{'expected'};
- ok ($mungemarcprice eq $expected, "must return $price->{'expected'} from initial string : $price->{'string'}");
+ is(
+ MungeMarcPrice($price->{'string'}),
+ $price->{'expected'},
+ "got expected price from $price->{'string'} (using currency.isocode)",
+ );
+}
+
+# run tests again, but fall back to currency name
+$dbh->do('DELETE FROM aqbasket');
+$dbh->do('DELETE FROM currency');
+$dbh->do("INSERT INTO currency ( currency, symbol, rate, active )
+ VALUES ('$ISOCODE', '$SYMBOL', '$RATE', 1)");
+
+foreach my $price (@prices2test) {
+ is(
+ MungeMarcPrice($price->{'string'}),
+ $price->{'expected'},
+ "got expected price from $price->{'string'} (using ISO code as currency name)",
+ );
}
-# Cleanup
-$dbh->rollback;