View | Details | Raw Unified | Return to bug 9593
Collapse All | Expand All

(-)a/t/db_dependent/MungeMarcPrice.t (-6 / +12 lines)
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
- 

Return to bug 9593