update to 1.16

from new maintainer Jasper Lievisse Adriaanse <jasper at nedbsd.nl>

and fix regression test
ok sturm@
This commit is contained in:
steven 2005-11-26 21:19:18 +00:00
parent 4944aef63a
commit 685c2e1bf1
3 changed files with 37 additions and 6 deletions

View File

@ -1,11 +1,13 @@
# $OpenBSD: Makefile,v 1.15 2005/02/07 19:01:48 pvalchev Exp $
# $OpenBSD: Makefile,v 1.16 2005/11/26 21:19:18 steven Exp $
COMMENT= "Perl5 module for CDDB"
DISTNAME= CDDB-1.15
DISTNAME= CDDB-1.16
PKGNAME= p5-${DISTNAME}
CATEGORIES= audio perl5
MAINTAINER= Jasper Lievisse Adriaanse <jasper@nedbsd.nl>
# Artistic
PERMIT_PACKAGE_CDROM= Yes
PERMIT_PACKAGE_FTP= Yes

View File

@ -1,4 +1,4 @@
MD5 (CDDB-1.15.tar.gz) = 978aaecd665af4988d33d8f3df392fb7
RMD160 (CDDB-1.15.tar.gz) = 1c2f00c135b5019753870aa9336f2ce3d1b99858
SHA1 (CDDB-1.15.tar.gz) = aca1b94d1fb4f046270ac2a3f8e15ac970f1f6d3
SIZE (CDDB-1.15.tar.gz) = 22009
MD5 (CDDB-1.16.tar.gz) = 4753c73ac7162ab18d1508ae02d40014
RMD160 (CDDB-1.16.tar.gz) = 509a52aa11c034bb6bb629e9362ee57facc7715d
SHA1 (CDDB-1.16.tar.gz) = 212f71d1c22a597cb72df85212ea6e9d0a2f3152
SIZE (CDDB-1.16.tar.gz) = 22657

View File

@ -0,0 +1,29 @@
$OpenBSD: patch-t_cddb_t,v 1.1 2005/11/26 21:19:18 steven Exp $
--- t/cddb.t.orig Sat Nov 26 20:19:34 2005
+++ t/cddb.t Sat Nov 26 20:55:04 2005
@@ -134,13 +134,13 @@ else {
print "not ok 12\n";
}
-### test looking up discs (one match)
+### test looking up discs (two matches)
my @discs = $cddb->get_discs($id, $track_offsets, $total_seconds);
-(@discs == 1) || print 'not '; print "ok 13\n";
+(@discs == 2) || print 'not '; print "ok 13\n";
-my ($genre, $cddb_id, $title) = @{$discs[0]};
+my ($genre, $cddb_id, $title) = @{$discs[1]};
($genre eq 'misc') || print 'not '; print "ok 14\n";
($cddb_id eq '03015501') || print 'not '; print "ok 15\n";
@@ -153,7 +153,7 @@ $cddb->disconnect();
my @other_discs = $cddb->get_discs_by_toc(@toc);
if (@other_discs) {
- (@other_discs == 1) || print 'not '; print "ok 17\n";
+ (@other_discs == 2) || print 'not '; print "ok 17\n";
($other_discs[0]->[0] eq $discs[0]->[0]) || print 'not '; print "ok 18\n";
($other_discs[0]->[1] eq $discs[0]->[1]) || print 'not '; print "ok 19\n";
($other_discs[0]->[2] eq $discs[0]->[2]) || print 'not '; print "ok 20\n";