r65009 - in /branches/upstream/libnet-z3950-zoom-perl/current: Changes MANIFEST.SKIP META.yml lib/Net/Z3950/ZOOM.pm t/15-scan.t t/25-scan.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Wed Nov 17 20:07:06 UTC 2010
Author: gregoa
Date: Wed Nov 17 20:06:42 2010
New Revision: 65009
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65009
Log:
[svn-upgrade] new version libnet-z3950-zoom-perl (1.28)
Modified:
branches/upstream/libnet-z3950-zoom-perl/current/Changes
branches/upstream/libnet-z3950-zoom-perl/current/MANIFEST.SKIP
branches/upstream/libnet-z3950-zoom-perl/current/META.yml
branches/upstream/libnet-z3950-zoom-perl/current/lib/Net/Z3950/ZOOM.pm
branches/upstream/libnet-z3950-zoom-perl/current/t/15-scan.t
branches/upstream/libnet-z3950-zoom-perl/current/t/25-scan.t
Modified: branches/upstream/libnet-z3950-zoom-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-z3950-zoom-perl/current/Changes?rev=65009&op=diff
==============================================================================
--- branches/upstream/libnet-z3950-zoom-perl/current/Changes (original)
+++ branches/upstream/libnet-z3950-zoom-perl/current/Changes Wed Nov 17 20:06:42 2010
@@ -1,4 +1,21 @@
Revision history for Perl extension Net::Z3950::ZOOM.
+
+1.28 Fri Oct 15 13:34:41 BST 2010
+ - In the test-suite, provide a more explicit report when the
+ scan identity test (display term == term) fails.
+ - The displayTerm==term assertion is now case-insensitive, as
+ it ought always to have been: previously, the test-suite
+ relied on a specific implementaton detail of the
+ test-server, which has recently changed causing extraneous
+ test-suite failures.
+ - Also in the test-suite for scan, remove the test that all
+ title-terms are in the general-term list, an assumption that
+ should never have been made.
+
+1.27 Wed Aug 11 17:13:07 BST 2010
+ - Support for Index Data build procedures, including making
+ Debian/Ubuntu and Red Hat packages from clean tarballs.
+ - No upstream changes -- packaging only.
1.26 Tue Jun 8 16:43:29 BST 2010
- Tweak the test-suite so that it works correctly on Fedora
Modified: branches/upstream/libnet-z3950-zoom-perl/current/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-z3950-zoom-perl/current/MANIFEST.SKIP?rev=65009&op=diff
==============================================================================
--- branches/upstream/libnet-z3950-zoom-perl/current/MANIFEST.SKIP (original)
+++ branches/upstream/libnet-z3950-zoom-perl/current/MANIFEST.SKIP Wed Nov 17 20:06:42 2010
@@ -6,3 +6,7 @@
archive
build-stamp
install-stamp
+IDMETA
+mkdist.sh
+modules
+zoom-perl.spec
Modified: branches/upstream/libnet-z3950-zoom-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-z3950-zoom-perl/current/META.yml?rev=65009&op=diff
==============================================================================
--- branches/upstream/libnet-z3950-zoom-perl/current/META.yml (original)
+++ branches/upstream/libnet-z3950-zoom-perl/current/META.yml Wed Nov 17 20:06:42 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Net-Z3950-ZOOM
-version: 1.26
+version: 1.28
abstract: Perl extension for invoking the ZOOM-C API.
license: ~
author:
Modified: branches/upstream/libnet-z3950-zoom-perl/current/lib/Net/Z3950/ZOOM.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-z3950-zoom-perl/current/lib/Net/Z3950/ZOOM.pm?rev=65009&op=diff
==============================================================================
--- branches/upstream/libnet-z3950-zoom-perl/current/lib/Net/Z3950/ZOOM.pm (original)
+++ branches/upstream/libnet-z3950-zoom-perl/current/lib/Net/Z3950/ZOOM.pm Wed Nov 17 20:06:42 2010
@@ -4,7 +4,7 @@
use strict;
use warnings;
-our $VERSION = '1.26';
+our $VERSION = '1.28';
require XSLoader;
XSLoader::load('Net::Z3950::ZOOM', $VERSION);
Modified: branches/upstream/libnet-z3950-zoom-perl/current/t/15-scan.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-z3950-zoom-perl/current/t/15-scan.t?rev=65009&op=diff
==============================================================================
--- branches/upstream/libnet-z3950-zoom-perl/current/t/15-scan.t (original)
+++ branches/upstream/libnet-z3950-zoom-perl/current/t/15-scan.t Wed Nov 17 20:06:42 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 87;
+use Test::More tests => 81;
BEGIN { use_ok('Net::Z3950::ZOOM') };
@@ -31,7 +31,8 @@
my $disp = Net::Z3950::ZOOM::scanset_display_term($ss, $i-1, $occ, $len);
ok(defined $disp && $len eq length($disp),
"display term $i of $n: '$disp' ($occ occurences)");
- ok($disp eq $term, "display term $i identical to term");
+ ok(lc($disp) eq lc($term),
+ "display term $i ($disp) equivalent to term ($term)");
}
Net::Z3950::ZOOM::scanset_destroy($ss);
@@ -51,7 +52,8 @@
"got title term $i of $n: '$term' ($occ occurences)");
ok($term ge $previous, "title term '$term' ge previous '$previous'");
$previous = $term;
- ok((grep { $term eq $_ } @terms), "title term was in term list");
+ # See comment in 25-scan.t
+ #ok((grep { $term eq $_ } @terms), "title term ($term) was in term list (@terms)");
}
Net::Z3950::ZOOM::scanset_destroy($ss);
Modified: branches/upstream/libnet-z3950-zoom-perl/current/t/25-scan.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-z3950-zoom-perl/current/t/25-scan.t?rev=65009&op=diff
==============================================================================
--- branches/upstream/libnet-z3950-zoom-perl/current/t/25-scan.t (original)
+++ branches/upstream/libnet-z3950-zoom-perl/current/t/25-scan.t Wed Nov 17 20:06:42 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 87;
+use Test::More tests => 81;
BEGIN { use_ok('ZOOM') };
@@ -28,7 +28,8 @@
(my $disp, $occ) = $ss->display_term($i-1);
ok(defined $disp,
"display term $i of $n: '$disp' ($occ occurences)");
- ok($disp eq $term, "display term $i identical to term");
+ ok(lc($disp) eq lc($term),
+ "display term $i ($disp) equivalent to term ($term)");
}
$ss->destroy();
@@ -48,7 +49,14 @@
"got title term $i of $n: '$term' ($occ occurences)");
ok($term ge $previous, "title term '$term' ge previous '$previous'");
$previous = $term;
- ok((grep { $term eq $_ } @terms), "title term was in term list");
+
+ # Previously we used to assert that the each title-term was
+ # included in the initial term-list that we got by scanning across
+ # all indexes. Of course this will not in general be true,
+ # because not all terms are title terms, which means that the $n
+ # title terms will include some that are past the end of $n
+ # general terms. So remove that test.
+ #ok((grep { $term eq $_ } @terms), "title term ($term) was in term list (@terms)");
}
$ss->destroy();
More information about the Pkg-perl-cvs-commits
mailing list