[Number::Format] Test failure

[Darren C. <dl...@se...>]

The latest CVS has test failures in t/format_price.t.  It appears that
the tests are expecting Number::Format to emit a space after the
currency symbol:

  print "not " unless ($usd->format_price(123456.51) eq 'USD 123,456.51');
  print "ok 2\n";

In reality, there is no space:

  $ perl -Mblib -MNumber::Format -wle '$f =3D Number::Format->new(-int_curr=
_symbol =3D> "USD"); print $f->format_price(123456.51)'
  USD123,456.51

Is this an error in the tests or in the output from format_price?

Also, is there a reason the tests are not using Test::Simple?

(darren)

--=20
I have had my solutions for a long time; but I do not yet know how I
am to arrive at them.
    -- Karl F. Gauss