I need your help in debugging this problem. It works fine on my
machine, but the problem with locale-related code is that it behaves
differently depending on where you are. The locale test script
contains the following code:
if (setlocale(POSIX::LC_ALL, "de_DE"))
{
my $german = new Number::Format();
print "not "
unless ($german->format_price(123456.789) eq 'DEM 123.456,79');
}
print "ok 2\n";
setlocale(POSIX::LC_ALL, "en_US");
my $english = new Number::Format();
print "not " unless ($english->format_price(123456.789) eq 'USD 123,456.79');
print "ok 3\n";
If you can modify this script on your machine to print the values
being returned by format_price, and send the output back to me, I
would greatly appreciate it. Thanks!
--Bill.
Andreas Marcel Riechert writes:
>This distribution has been tested as part of the cpan-testers
>effort to test as many new uploads to CPAN as possible. See
>http://testers.cpan.org/
>
>Please cc any replies to [EMAIL PROTECTED] to keep other
>test volunteers informed and to prevent any duplicate effort.
>
>--
>One test failed:
>
>[riechert@tairou Number-Format-1.43]$ make test
>PERL_DL_NONLAZY=1 /usr/bin/perl -Iblib/arch -Iblib/lib
>-I/usr/local/lib/perl5/5.6.1/i686-linux -I/usr/local/lib/perl5/5.6.1 -e 'use
>Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t
>t/format_bytes.......ok
>t/format_negative....ok
>t/format_number......ok
>t/format_picture.....ok
>t/format_price.......ok
>t/locale.............FAILED test 2
> Failed 1/3 tests, 66.67% okay
>t/object.............ok
>t/round..............ok
>t/unformat_number....ok
>Failed Test Stat Wstat Total Fail Failed List of Failed
>-------------------------------------------------------------------------------
>t/locale.t 3 1 33.33% 2
>Failed 1/9 test scripts, 88.89% okay. 1/64 subtests failed, 98.44% okay.
>make: *** [test_dynamic] Error 29
>
>
>--
>
>Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration:
> Platform:
> osname=linux, osvers=2.2.14-5.0, archname=i686-linux
> uname='linux tairou.japanologie.kultur.uni-tuebingen.de 2.2.14-5.0 #1 tue mar 7
>21:07:39 est 2000 i686 unknown '
> config_args='-de'
> hint=recommended, useposix=true, d_sigaction=define
> usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
> useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef
> use64bitint=undef use64bitall=undef uselongdouble=undef
> Compiler:
> cc='cc', ccflags ='-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE
>-D_FILE_OFFSET_BITS=64',
> optimize='-O2',
> cppflags='-fno-strict-aliasing -I/usr/local/include'
> ccversion='', gccversion='egcs-2.91.66 19990314/Linux (egcs-1.1.2 release)',
>gccosandvers=''
> intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
> d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
> ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
> alignbytes=4, usemymalloc=n, prototype=define
> Linker and Libraries:
> ld='cc', ldflags =' -L/usr/local/lib'
> libpth=/usr/local/lib /lib /usr/lib
> libs=-lnsl -lndbm -ldb -ldl -lm -lc -lposix -lcrypt -lutil
> perllibs=-lnsl -ldl -lm -lc -lposix -lcrypt -lutil
> libc=/lib/libc-2.1.3.so, so=so, useshrplib=false, libperl=libperl.a
> Dynamic Linking:
> dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
> cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
>
--
William R Ward - [EMAIL PROTECTED] Bay View Consulting Services
http://www.bayview.com/~wrw/ 2860 Porter St PMB 408
phone +1 831/479-4072 Soquel, CA 95073-2419 USA
PGP Key 0x2BD331E5; public key at http://www.bayview.com/~wrw/pubkey.txt
