Lines 15-32
$schema->storage->txn_begin;
Link Here
|
15 |
my $dbh = C4::Context->dbh; |
15 |
my $dbh = C4::Context->dbh; |
16 |
|
16 |
|
17 |
# set some test price strings and expected output |
17 |
# set some test price strings and expected output |
18 |
my @prices2test=( { string => '25,5 £, $34,55, $LD35', expected => '34.55' }, |
18 |
my @prices2test = ( |
19 |
{ string => '32 EUR, 42.50$ USD, 54 CAD', expected=>'42.50' }, |
19 |
{ string => '25,5 £, $34,55, $LD35', expected => '34.55' }, |
20 |
{ string => '38.80 Ksh, ¥300, 51,50 USD', expected => '51.50' }, |
20 |
{ string => '32 EUR, 42.50$ USD, 54 CAD', expected => '42.50' }, |
21 |
{ string => '44 $, 33 €, 64 Br, £30', expected => '44' }, |
21 |
{ string => '38.80 Ksh, ¥300, 51,50 USD', expected => '51.50' }, |
22 |
{ string => '9 EUR,$34,55 USD,$7.35 CAN', expected => '34.55' }, |
22 |
{ string => '44 $, 33 €, 64 Br, £30', expected => '44' }, |
23 |
{ string => '$55.32', expected => '55.32' }, |
23 |
{ string => '9 EUR,$34,55 USD,$7.35 CAN', expected => '34.55' }, |
24 |
{ string => '9.99 USD (paperback)', expected => '9.99' }, |
24 |
{ string => '$55.32', expected => '55.32' }, |
25 |
{ string => '$9.99 USD (paperback)', expected => '9.99' }, |
25 |
{ string => '9.99 USD (paperback)', expected => '9.99' }, |
26 |
{ string => '18.95 (U.S.)', expected => '18.95' }, |
26 |
{ string => '$9.99 USD (paperback)', expected => '9.99' }, |
27 |
{ string => '$5.99 ($7.75 CAN)', expected => '5.99' }, |
27 |
{ string => '18.95 (U.S.)', expected => '18.95' }, |
28 |
{ string => '5.99 (7.75 CAN)', expected => '5.99' }, |
28 |
{ string => '$5.99 ($7.75 CAN)', expected => '5.99' }, |
29 |
); |
29 |
{ string => '5.99 (7.75 CAN)', expected => '5.99' }, |
|
|
30 |
); |
30 |
|
31 |
|
31 |
plan tests => 2 * scalar @prices2test; |
32 |
plan tests => 2 * scalar @prices2test; |
32 |
|
33 |
|
33 |
- |
|
|