@@ -, +, @@ --- t/db_dependent/MungeMarcPrice.t | 17 ++++++++++++----- 1 files changed, 12 insertions(+), 5 deletions(-) --- a/t/db_dependent/MungeMarcPrice.t +++ a/t/db_dependent/MungeMarcPrice.t @@ -17,11 +17,18 @@ $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=>'32 EUR, 42.50$ USD, 54 CAD',expected=>'42.50' }, - { string =>'38.80 Ksh, ¥300, 51,50 USD', expected => '51.50' }, - { string =>'44 $, 33 €, 64 Br, £30', expected => '44' } - ); +my @prices2test = ( + { string => '25,5 £, $34,55, $LD35', expected => '34.55' }, + { string => '32 EUR, 42.50$ USD, 54 CAD', expected => '42.50' }, + { string => '38.80 Ksh, ¥300, 51,50 USD', expected => '51.50' }, + { string => '44 $, 33 €, 64 Br, £30', expected => '44' }, + { string => '$55.32', expected => '55.32' }, + { string => '9.99 USD (paperback)', expected => '9.99' }, + { string => '$9.99 USD (paperback)', expected => '9.99' }, + { string => '18.95 (U.S.)', expected => '18.95' }, + { string => '$5.99 ($7.75 CAN)', expected => '5.99' }, + { string => '5.99 (7.75 CAN)', expected => '5.99' }, +); plan tests => scalar @prices2test; --