Bug #17902 for Audio-TagLib: One build test fails

Tue Feb 28 16:47:01 2006 Guest - Ticket created

Subject:

One build test fails

Subject:

audio-taglib.txt

From: Kenneth Dombrowski Subject: Re: Audio::TagLib question Date: Fri, 10 Feb 2006 12:34:59 -0500 To: Dongxu Ma Installing on a second machine, one of the build tests failed, and I thought you might be interested: t/TagLib_ID3v2_Frame.............................ok 1/0Use of uninitialized value in numeric eq (==) at +t/TagLib_ID3v2_Frame.t line 27. Argument "\0" isn't numeric in numeric eq (==) at t/TagLib_ID3v2_Frame.t line 27. t/TagLib_ID3v2_Frame.............................ok 1/6 skipped: more test needed t/TagLib_ID3v2_FrameFactory......................ok 1/4 skipped: more test needed t/TagLib_ID3v2_FrameList.........................NOK 9 # Failed test in t/TagLib_ID3v2_FrameList.t at line 54. # 'TIT2^Ftitle' # doesn't match '(?-xism:^TPE1.*?artist$)' # method sortedInsert(item) and getItem(i) failed # Looks like you failed 1 test of 31. t/TagLib_ID3v2_FrameList.........................dubious Test returned status 1 (wstat 256, 0x100) DIED. FAILED test 9 Failed 1/31 tests, 96.77% okay I went ahead & force installed it, & everything seems fine. From: Kenneth Dombrowski Subject: Re: Audio::TagLib question Date: Mon, 13 Feb 2006 03:15:19 -0500 To: Dongxu Ma Sure thing, I am happy to oblige. Nothing too fancy, not an amd, no.. Probably more info than you'll ever need is here: https://tesla.cs.columbia.edu/~kenneth/dell_latitude_d510/ubuntu.txt If you need me to run some tests for you, let me know On 06-02-13 10:45 +0800, Dongxu Ma wrote: > Could you pls attach more hardware information about the second machine. Is > that a amd64 one? > From: Kenneth Dombrowski Subject: Re: Audio::TagLib question Date: Mon, 13 Feb 2006 07:20:16 -0500 To: Dongxu Ma kenneth@scivola:~$ /tmp/test1.pl TPE1artist kenneth@scivola:~$ On 06-02-13 17:22 +0800, Dongxu Ma wrote: > ;- ) > Pls help to try this script: > ------------------------------------------- > #!/usr/bin/perl > # > use warnings; > use strict; > > use Audio::TagLib; > > my $i = Audio::TagLib::ID3v2::FrameList->new(); > > my $tag = Audio::TagLib::ID3v2::Tag->new(); > $tag->setTitle(Audio::TagLib::String->new("title")); > $tag->setArtist(Audio::TagLib::String->new("artist")); > $tag->setAlbum(Audio::TagLib::String->new("album")); > $tag->setComment(Audio::TagLib::String->new("comment")); > $tag->setGenre(Audio::TagLib::String->new("genre")); > $tag->setYear(1981); > $tag->setTrack(3); > my $j = $tag->frameList(); > > print $j->getItem(1)->render()->data(), "\n"; > -------------------------------------------------------------------- > I need to make sure it construct the same internal data structure firstly. > On my machine, it is 'TPE1artist'. > > Thanks in advance. root@scivola:~# perl -V Summary of my perl5 (revision 5 version 8 subversion 7) configuration: Platform: osname=linux, osvers=2.6.10, archname=i486-linux-gnu-thread-multi uname='linux rothera 2.6.10 #1 smp fri may 13 09:24:22 utc 2005 i686 gnulinux ' config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=i486-linux-gnu -Dprefix=/usr -Dprivlib=/usr/share/perl/5.8 -Darchlib=/usr/lib/perl/5.8 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.8.7 -Dsitearch=/usr/local/lib/perl/5.8.7 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Uusesfio -Uusenm -Duseshrplib -Dlibperl=libperl.so.5.8.7 -Dd_dosuid -des' hint=recommended, useposix=true, d_sigaction=define usethreads=define use5005threads=undef useithreads=define usemultiplicity=define useperlio=define d_sfio=undef uselargefiles=define usesocks=undef use64bitint=undef use64bitall=undef uselongdouble=undef usemymalloc=n, bincompat5005=undef Compiler: cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', optimize='-O2', cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include' ccversion='', gccversion='4.0.2 20050808 (prerelease) (Ubuntu 4.0.1-4ubuntu9)', 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, prototype=define Linker and Libraries: ld='cc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt perllibs=-ldl -lm -lpthread -lc -lcrypt libc=/lib/libc-2.3.5.so, so=so, useshrplib=true, libperl=libperl.so.5.8.7 gnulibc_version='2.3.5' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E' cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib' Characteristics of this binary (from libperl): Compile-time options: MULTIPLICITY USE_ITHREADS USE_LARGE_FILES PERL_IMPLICIT_CONTEXT Locally applied patches: SPRINTF0 - fixes for sprintf formatting issues - CVE-2005-3962 Built under linux Compiled at Dec 12 2005 13:47:33 @INC: /etc/perl /usr/local/lib/perl/5.8.7 /usr/local/share/perl/5.8.7 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .

Tue Feb 28 23:02:24 2006 DONGXU [...] cpan.org - Correspondence added

RT-Send-CC:

kenneth [...] ylayali.net

could you also post the output of this script? thanks. BR, dongxu

#!/usr/bin/perl use warnings; use strict; #use blib q(Term-BashTab/blib); use Audio::TagLib; my $i = Audio::TagLib::ID3v2::FrameList->new(); my $tag = Audio::TagLib::ID3v2::Tag->new(); $tag->setTitle(Audio::TagLib::String->new("title")); $tag->setArtist(Audio::TagLib::String->new("artist")); $tag->setAlbum(Audio::TagLib::String->new("album")); $tag->setComment(Audio::TagLib::String->new("comment")); $tag->setGenre(Audio::TagLib::String->new("genre")); $tag->setYear(1981); $tag->setTrack(3); my $j = $tag->frameList(); $i->insert($i->end(), $j->front()); $i->front(); $i->back(); $i->sortedInsert($j->getItem(1)); print $i->getItem(1)->render()->data(), "\n"; print "-" x 12, "\n"; tie my @i, "Audio::TagLib::ID3v2::FrameList", $i; tie my @j, "Audio::TagLib::ID3v2::FrameList", $j; print join("\n", map { $_->render()->data() } @i), "\n"; print "-" x 12, "\n"; print join("\n", map { $_->render()->data() } @j), "\n";

Tue Feb 28 23:02:26 2006 The RT System itself - Status changed from 'new' to 'open'

Wed Mar 01 21:07:14 2006 Guest - Correspondence added

On Tue Feb 28 23:02:24 2006, DONGXU wrote: Show quoted text

> could you also post the output of this script? > thanks. > > BR, dongxu

kenneth@scivola:/tmp$ ./test.pl TPE1artist ------------ TIT2title TPE1artist ------------ TIT2title TPE1artist TALBalbum COMM comment TCONgenre TDRC1981 TRCK3 kenneth@scivola:/tmp$

Mon Mar 06 01:10:55 2006 DONGXU [...] cpan.org - Correspondence added

The dumped structure is exactly the same as mine here. Could you also re-run the specific test script as below: $perl t/TagLib_ID3v2_FrameList.t under the root of package. BR, dongxu On Wed Mar 01 21:07:14 2006, guest wrote: Show quoted text

> On Tue Feb 28 23:02:24 2006, DONGXU wrote:

> > could you also post the output of this script? > > thanks. > > > > BR, dongxu

> > > kenneth@scivola:/tmp$ ./test.pl > TPE1artist > ------------ > TIT2title > TPE1artist > ------------ > TIT2title > TPE1artist > TALBalbum > COMM comment > TCONgenre > TDRC1981 > TRCK3 > kenneth@scivola:/tmp$

Mon Mar 06 04:37:54 2006 kenneth [...] ylayali.net - Correspondence added

Subject:	Re: [rt.cpan.org #17902] One build test fails
Date:	Mon, 6 Mar 2006 04:33:13 -0500
To:	via RT <bug-Audio-TagLib [...] rt.cpan.org>
From:	Kenneth Dombrowski <kenneth [...] ylayali.net>

It seems to work when run from the build directory, but it still fails from within the cpan shell... root@scivola:~/.cpan/build/Audio-TagLib-1.41# perl t/TagLib_ID3v2_FrameList.t 1..31 ok 1 - use Audio::TagLib::ID3v2::FrameList; ok 2 - Audio::TagLib::ID3v2::FrameList->can(...) ok 3 - The object isa Audio::TagLib::ID3v2::FrameList ok 4 - The object isa Audio::TagLib::ID3v2::FrameList ok 5 - The object isa Audio::TagLib::ID3v2::FrameList::Iterator ok 6 - The object isa Audio::TagLib::ID3v2::FrameList::Iterator ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 - The object isa Audio::TagLib::ID3v2::FrameList ok 19 ok 20 ok 21 ok 22 ok 23 ok 24 ok 25 ok 26 ok 27 ok 28 ok 29 ok 30 ok 31 root@scivola:~/.cpan/build/Audio-TagLib-1.41# t/TagLib_ID3v2_Frame.............................ok 1/0Use of uninitialized value in numeric eq (==) at t/TagLib_ID3v2_Frame.t line 27. Argument "\0" isn't numeric in numeric eq (==) at t/TagLib_ID3v2_Frame.t line 27. t/TagLib_ID3v2_Frame.............................ok 1/6 skipped: more test needed t/TagLib_ID3v2_FrameFactory......................ok 1/4 skipped: more test needed t/TagLib_ID3v2_FrameList.........................NOK 9 # Failed test in t/TagLib_ID3v2_FrameList.t at line 54. # 'TIT2title' # doesn't match '(?-xism:^TPE1.*?artist$)' # method sortedInsert(item) and getItem(i) failed # Looks like you failed 1 test of 31. t/TagLib_ID3v2_FrameList.........................dubious Test returned status 1 (wstat 256, 0x100) DIED. FAILED test 9 Failed 1/31 tests, 96.77% okay

Mon Mar 06 04:48:26 2006 DONGXU [...] cpan.org - Correspondence added

Which version of Test::More did you use? Could you please check. BR, dongxu

Mon Mar 06 11:13:59 2006 kenneth [...] ylayali.net - Correspondence added

Subject:	Re: [rt.cpan.org #17902] One build test fails
Date:	Mon, 6 Mar 2006 11:09:12 -0500
To:	via RT <bug-Audio-TagLib [...] rt.cpan.org>
From:	Kenneth Dombrowski <kenneth [...] ylayali.net>

On 06-03-06 04:48 -0500, via RT wrote: Show quoted text

> Which version of Test::More did you use? Could you please check. > > BR, dongxu >

Show quoted text

cpan> i Test::More

Strange distribution name [Test::More] Module id = Test::More DESCRIPTION More functions for writing tests CPAN_USERID MSCHWERN (Michael G Schwern <mschwern@cpan.org>) CPAN_VERSION 0.62 CPAN_FILE M/MS/MSCHWERN/Test-Simple-0.62.tar.gz UPLOAD_DATE 2005-10-08 DSLI_STATUS RdpO (released,developer,perl,object-oriented) MANPAGE Test::More - yet another framework for writing test scripts INST_FILE /usr/local/share/perl/5.8.7/Test/More.pm INST_VERSION 0.62

Tue Mar 07 21:39:30 2006 DONGXU [...] cpan.org - Correspondence added

well, could you please apply this patch and rerun it in your cpan session?

--- TagLib_ID3v2_FrameList.t 2006-03-08 10:34:12.000000000 +0800 +++ /home/dongxu/coding/Audio-TagLib/t/TagLib_ID3v2_FrameList.t 2006-01-13 14:27:37.000000000 +0800 @@ -51,8 +51,7 @@ like($i->back()->render()->data(), qr/^TIT2.*?title$/) or diag("method back() failed"); $i->sortedInsert($j->getItem(1)); -#like($i->getItem(1)->render()->data(), qr/^TPE1.*?artist$/) or -ok($i->getItem(1)->render()->data() =~ m/^TPE1.*?artist$/) or +like($i->getItem(1)->render()->data(), qr/^TPE1.*?artist$/) or diag("method sortedInsert(item) and getItem(i) failed"); $i->append($j->getItem(2)); like($i->back()->render()->data(), qr/^TALB.*?album$/) or @@ -117,4 +116,4 @@ like($first->render()->data(), qr/^TIT2.*?title$/) or diag("method SPLICE failed"); like($second->render()->data(), qr/^TRCK.*?3$/) or - diag("method SPLICE failed"); + diag("method SPLICE failed"); \ No newline at end of file

Sat Mar 15 10:56:51 2008 DONGXU [...] cpan.org - Correspondence added

will make a release for taglib 1.5 and fix there

Sat Mar 15 10:56:53 2008 DONGXU [...] cpan.org - Status changed from 'open' to 'resolved'

Fri Dec 21 13:14:06 2012 GLEACH [...] cpan.org - Fixed in 1.62 added