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