r65011 - in /trunk/libnet-z3950-zoom-perl: Changes MANIFEST.SKIP META.yml debian/changelog 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:09:17 UTC 2010


Author: gregoa
Date: Wed Nov 17 20:09:01 2010
New Revision: 65011

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65011
Log:
New upstream release.

Modified:
    trunk/libnet-z3950-zoom-perl/Changes
    trunk/libnet-z3950-zoom-perl/MANIFEST.SKIP
    trunk/libnet-z3950-zoom-perl/META.yml
    trunk/libnet-z3950-zoom-perl/debian/changelog
    trunk/libnet-z3950-zoom-perl/lib/Net/Z3950/ZOOM.pm
    trunk/libnet-z3950-zoom-perl/t/15-scan.t
    trunk/libnet-z3950-zoom-perl/t/25-scan.t

Modified: trunk/libnet-z3950-zoom-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/Changes?rev=65011&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/Changes (original)
+++ trunk/libnet-z3950-zoom-perl/Changes Wed Nov 17 20:09:01 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: trunk/libnet-z3950-zoom-perl/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/MANIFEST.SKIP?rev=65011&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/MANIFEST.SKIP (original)
+++ trunk/libnet-z3950-zoom-perl/MANIFEST.SKIP Wed Nov 17 20:09:01 2010
@@ -6,3 +6,7 @@
 archive
 build-stamp
 install-stamp
+IDMETA
+mkdist.sh
+modules
+zoom-perl.spec

Modified: trunk/libnet-z3950-zoom-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/META.yml?rev=65011&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/META.yml (original)
+++ trunk/libnet-z3950-zoom-perl/META.yml Wed Nov 17 20:09:01 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: trunk/libnet-z3950-zoom-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/debian/changelog?rev=65011&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/debian/changelog (original)
+++ trunk/libnet-z3950-zoom-perl/debian/changelog Wed Nov 17 20:09:01 2010
@@ -1,8 +1,10 @@
-libnet-z3950-zoom-perl (1.26-2) UNRELEASED; urgency=low
+libnet-z3950-zoom-perl (1.28-1) UNRELEASED; urgency=low
 
   * Set Standards-Version to 3.9.1; replace Conflicts with Breaks.
 
- -- gregor herrmann <gregoa at debian.org>  Sat, 31 Jul 2010 15:01:13 -0400
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Wed, 17 Nov 2010 21:07:56 +0100
 
 libnet-z3950-zoom-perl (1.26-1) unstable; urgency=low
 

Modified: trunk/libnet-z3950-zoom-perl/lib/Net/Z3950/ZOOM.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/lib/Net/Z3950/ZOOM.pm?rev=65011&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/lib/Net/Z3950/ZOOM.pm (original)
+++ trunk/libnet-z3950-zoom-perl/lib/Net/Z3950/ZOOM.pm Wed Nov 17 20:09:01 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: trunk/libnet-z3950-zoom-perl/t/15-scan.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/15-scan.t?rev=65011&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/15-scan.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/15-scan.t Wed Nov 17 20:09:01 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: trunk/libnet-z3950-zoom-perl/t/25-scan.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/t/25-scan.t?rev=65011&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/t/25-scan.t (original)
+++ trunk/libnet-z3950-zoom-perl/t/25-scan.t Wed Nov 17 20:09:01 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