Skip Menu |

This queue is for tickets about the Tk CPAN distribution.

Report information
The Basics
Id: 45771
Status: resolved
Priority: 0/
Queue: Tk

People
Owner: Nobody in particular
Requestors: gbarnt [...] student.dtu.dk
Cc: imacat [...] cpan.org
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: 804.028_500



Subject: Tk 804.028: t/canvas fails - possibly due to long doubles
Date: Wed, 6 May 2009 09:11:13 +0200 (CEST)
To: bug-Tk [...] rt.cpan.org
From: "Niels Thykier" <gbarnt [...] student.dtu.dk>
Hi I recently built a perl 5.10.0 on our university servers and whenever ever I try to install Tk the t/canvas test fail but the rest success (Tk version 804.028). Examining the failure I see it is a precession issue - usually on the 7th (or later) decimal figure. I have attached the error message from our Linux Blades. If you are interested I can show you the failures from our Solaris machines as well (but as far as I noticed they only differ in the exact digits, not in the failed tests) ~NT -- Niels Thykier : s072425 G-Bar Support Technical University of Denmark

Message body is not shown because sender requested not to inline it.

Dear Slaven Rezić, Hi. This is imacat from Taiwan. I have the same problem, too. Th test condition in t/canvas.t does not match with long-doubles enabled. The terminal log is attached below. Hope that this helps. Please tell me if you need any more information, or if I could be of any help. Thank you. imacat@cotton build/Tk-804.028-yAm6aq % make test t/00wmcheck.t ................ 1/1 # # Tk platform: unix # X11 server: X11R0 The X.Org Foundation 10402000 # window manager: Metacity # version: 2.22.0 # XFT: no t/00wmcheck.t ................ ok ... t/canvas.t ................... 66/158 # Failed test 'xview method' # at t/canvas.t line 145. # Structures begin differing at: # $got->[1] = '0.299999999999999989' # $expected->[1] = '0.3' # Failed test 'xview method after scroll' # at t/canvas.t line 148. # Structures begin differing at: # $got->[0] = '0.400000000000000022' # $expected->[0] = '0.4' # Failed test 'xview method (2)' # at t/canvas.t line 160. # Structures begin differing at: # $got->[0] = '0.599999999999999978' # $expected->[0] = '0.6' # Failed test 'xview method after scroll (2)' # at t/canvas.t line 163. # Structures begin differing at: # $got->[0] = '0.660000000000000031' # $expected->[0] = '0.66' # Failed test 'yview method after scroll (2)' # at t/canvas.t line 191. # Structures begin differing at: # $got->[0] = '0.100000000000000006' # $expected->[0] = '0.1' t/canvas.t ................... 126/158 # Looks like you failed 5 tests of 158. t/canvas.t ................... Dubious, test returned 5 (wstat 1280, 0x500) Failed 5/158 subtests (1 TODO test unexpectedly succeeded) t/canvas2.t .................. ok ... t/zzTixGrid.t ................ ok Test Summary Report ------------------- t/browseentry-grabtest.t (Wstat: 2816 Tests: 0 Failed: 0) Non-zero exit status: 11 Parse errors: Bad plan. You planned 1 tests but ran 0. t/canvas.t (Wstat: 1280 Tests: 158 Failed: 5) Failed tests: 72-75, 79 TODO passed: 116 Non-zero exit status: 5 t/listbox.t (Wstat: 0 Tests: 539 Failed: 0) TODO passed: 320-322, 328 t/text.t (Wstat: 0 Tests: 415 Failed: 0) TODO passed: 121 t/wm-tcl.t (Wstat: 0 Tests: 315 Failed: 0) TODO passed: 86-87, 154-157, 164-165, 175-178, 264-265 275-276, 280-283, 300 t/zzScrolled.t (Wstat: 0 Tests: 94 Failed: 0) TODO passed: 52, 80 Files=62, Tests=4250, 452 wallclock secs ( 3.85 usr 0.36 sys + 54.89 cusr 5.90 csys = 65.00 CPU) Result: FAIL Failed 2/62 test programs. 5/4250 subtests failed. make: *** [test_dynamic] Error 255 imacat@cotton build/Tk-804.028-yAm6aq % perl -Mblib t/canvas.t 1..158 ok 1 - use Tk::Canvas; ... ok 70 - bind method ok 71 - bind method with failure not ok 72 - xview method # Failed test 'xview method' # at t/canvas.t line 145. # Structures begin differing at: # $got->[1] = '0.299999999999999989' # $expected->[1] = '0.3' not ok 73 - xview method after scroll # Failed test 'xview method after scroll' # at t/canvas.t line 148. # Structures begin differing at: # $got->[0] = '0.400000000000000022' # $expected->[0] = '0.4' not ok 74 - xview method (2) # Failed test 'xview method (2)' # at t/canvas.t line 160. # Structures begin differing at: # $got->[0] = '0.599999999999999978' # $expected->[0] = '0.6' not ok 75 - xview method after scroll (2) # Failed test 'xview method after scroll (2)' # at t/canvas.t line 163. # Structures begin differing at: # $got->[0] = '0.660000000000000031' # $expected->[0] = '0.66' ok 76 - yview method ok 77 - yview method after scroll ok 78 - yview method (2) not ok 79 - yview method after scroll (2) # Failed test 'yview method after scroll (2)' # at t/canvas.t line 191. # Structures begin differing at: # $got->[0] = '0.100000000000000006' # $expected->[0] = '0.1' ok 80 - canvasx after scrolling to origin ... # Looks like you failed 5 tests of 158. imacat@cotton build/Tk-804.028-yAm6aq % perl -V Summary of my perl5 (revision 5 version 10 subversion 0) configuration: Platform: osname=linux, osvers=2.6.26-2-686, archname=i686-linux-thread-multi-64int-ld uname='linux cotton 2.6.26-2-686 #1 smp thu mar 26 01:08:11 utc 2009 i686 gnulinux ' config_args='-s -d -Dprefix=/usr -Dusethreads -Duselongdouble -Doptimize=-O2 -DDEBUGGING=-g -Duse64bitint -Dd_dosuid -Dotherlibdirs=/usr/lib/perl5:/usr/share/perl5 -Dinc_version_list=none -Duseshrplib=true -Dcf_email=imacat@mail.imacat.idv.tw -Dpager=/usr/bin/sensible-pager' hint=recommended, useposix=true, d_sigaction=define useithreads=define, usemultiplicity=define useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef use64bitint=define, use64bitall=undef, uselongdouble=define usemymalloc=n, bincompat5005=undef Compiler: cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', optimize='-O2 -g', cppflags='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -I/usr/local/include' ccversion='', gccversion='4.3.2', gccosandvers='' intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long long', ivsize=8, nvtype='long double', nvsize=12, Off_t='off_t', lseeksize=8 alignbytes=4, prototype=define Linker and Libraries: ld='cc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc libc=/lib/libc-2.7.so, so=so, useshrplib=true, libperl=libperl.so gnulibc_version='2.7' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-rpath,/usr/lib/perl5/5.10.0/i686-linux-thread-multi-64int-ld/CORE' cccdlflags='-fPIC', lddlflags='-shared -O2 -g -L/usr/local/lib' Characteristics of this binary (from libperl): Compile-time options: MULTIPLICITY PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES USE_LONG_DOUBLE USE_PERLIO USE_REENTRANT_API Built under linux Compiled at May 3 2009 11:31:09 %ENV: PERL5LIB="/home/imacat/lib/perl5" @INC: /home/imacat/lib/perl5 /usr/lib/perl5/5.10.0/i686-linux-thread-multi-64int-ld /usr/lib/perl5/5.10.0 /usr/lib/perl5/site_perl/5.10.0/i686-linux-thread-multi-64int-ld /usr/lib/perl5/site_perl/5.10.0 /usr/lib/perl5/5.10.0/i686-linux-thread-multi-64int-ld /usr/lib/perl5/5.10.0 /usr/lib/perl5 /usr/share/perl5 . imacat@cotton build/Tk-804.028-yAm6aq %
Dear Slaven Rezić, Hi. This is imacat from Taiwan. I found that this seems to be fixed in your development release Tk-804.028_501. Sorry for the trouble, and thank you very much for your hard work! Hope to see the stable release soon~