commit perl-XML-Writer

14 Dec 2006

Hello community,

here is the log from the commit of package perl-XML-Writer
checked in at Thu Dec 14 02:05:38 CET 2006.

--------

--- perl-XML-Writer/perl-XML-Writer.changes	2006-09-15 19:57:31.000000000 +0200
+++ /mounts/work_src_done/STABLE/perl-XML-Writer/perl-XML-Writer.changes	2006-12-13 13:43:02.000000000 +0100
@@ -1,0 +2,8 @@
+Wed Dec 13 12:17:22 CET 2006 - anicka@suse.cz
+
+- update to 0.602
+  * Fix bugs in test case to avoid breaking with new Perls.
+  * Make test case work with older Perls, tested against 5.004
+  * Include pod syntax and coverage tests.
+
+-------------------------------------------------------------------

Old:
----
  XML-Writer-0.601.tar.bz2

New:
----
  XML-Writer-0.602.tar.bz2

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-XML-Writer.spec ++++++
--- /var/tmp/diff_new_pack.asMVvh/_old	2006-12-14 02:05:29.000000000 +0100
+++ /var/tmp/diff_new_pack.asMVvh/_new	2006-12-14 02:05:29.000000000 +0100
@@ -1,5 +1,5 @@
 #
-# spec file for package perl-XML-Writer (Version 0.601)
+# spec file for package perl-XML-Writer (Version 0.602)
 #
 # Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany.
 # This file and all modifications and additions to the pristine
@@ -11,12 +11,12 @@
 # norootforbuild
 
 Name:           perl-XML-Writer
-Version:        0.601
+Version:        0.602
 Release:        1
 Requires:       perl = %{perl_version}
 Autoreqprov:    on
 Group:          Development/Libraries/Perl
-License:        GPL, Artistic License
+License:        Artistic License, GNU General Public License (GPL)
 URL:            http://cpan.org/modules/by-module/XML/
 Summary:        A Perl Extension for Writing XML Documents
 Source:         XML-Writer-%{version}.tar.bz2
@@ -59,6 +59,11 @@
 /var/adm/perl-modules/%{name}
 
 %changelog -n perl-XML-Writer
+* Wed Dec 13 2006 - anicka@suse.cz
+- update to 0.602
+  * Fix bugs in test case to avoid breaking with new Perls.
+  * Make test case work with older Perls, tested against 5.004
+  * Include pod syntax and coverage tests.
 * Thu Sep 14 2006 - anicka@suse.cz
 - update to 0.601
   * Don't modify list references passed as tag or attribute names

++++++ XML-Writer-0.601.tar.bz2 -> XML-Writer-0.602.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/Changes new/XML-Writer-0.602/Changes
--- old/XML-Writer-0.601/Changes	2006-09-01 16:17:24.000000000 +0200
+++ new/XML-Writer-0.602/Changes	2006-11-12 21:22:35.000000000 +0100
@@ -1,5 +1,10 @@
 Revision history for Perl extension XML::Writer.
 
+0.602 Sat Nov 11 16:54:22 GMT 2006    <joe@kafsemo.org>
+        - Fix bugs in test case to avoid breaking with new Perls.
+        - Make test case work with older Perls, tested against 5.004 (#17288).
+        - Include pod syntax and coverage tests.
+
 0.601 Fri Sep  1 15:01:45 BST 2006    <joe@kafsemo.org>
         - Don't modify list references passed as tag or attribute names
            (cpan #14854).
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/MANIFEST new/XML-Writer-0.602/MANIFEST
--- old/XML-Writer-0.601/MANIFEST	2004-05-25 15:28:54.000000000 +0200
+++ new/XML-Writer-0.602/MANIFEST	2006-09-23 23:26:58.000000000 +0200
@@ -5,4 +5,6 @@
 META.yml
 Writer.pm
 t/01_main.t
+t/pod.t
+t/pod-coverage.t
 TODO
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/META.yml new/XML-Writer-0.602/META.yml
--- old/XML-Writer-0.601/META.yml	2006-09-01 16:17:24.000000000 +0200
+++ new/XML-Writer-0.602/META.yml	2006-11-12 21:22:35.000000000 +0100
@@ -1,10 +1,11 @@
-# http://module-build.sourceforge.net/META-spec-new.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-meta-spec:    1.1
+--- #YAML:1.0
+meta-spec:
+  version: 1.2
+  url: http://module-build.sourceforge.net/META-spec-v1.2.html
 name:         XML-Writer
-version:      0.601
+version:      0.602
 abstract:     Easily generate well-formed, namespace-aware XML.
-authored_by:
+author:
   - David Megginson <david@megginson.com>
   - Ed Avis <ed@membled.com>
   - Joseph Walton <joe@kafsemo.org>
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/Makefile.PL new/XML-Writer-0.602/Makefile.PL
--- old/XML-Writer-0.601/Makefile.PL	2006-09-01 16:17:24.000000000 +0200
+++ new/XML-Writer-0.602/Makefile.PL	2006-11-12 21:22:35.000000000 +0100
@@ -7,7 +7,7 @@
 # the contents of the Makefile that is written.
 WriteMakefile(
     'NAME'    => 'XML::Writer',
-    'VERSION' => '0.601',
+    'VERSION' => '0.602',
 
     # A manually-created META.yml has all the other metadata;
     #  we don't want it overwritten
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/Writer.pm new/XML-Writer-0.602/Writer.pm
--- old/XML-Writer-0.601/Writer.pm	2006-09-01 16:17:24.000000000 +0200
+++ new/XML-Writer-0.602/Writer.pm	2006-11-12 21:22:35.000000000 +0100
@@ -4,7 +4,7 @@
 # Copyright (c) 2004, 2005 by Joseph Walton <joe@kafsemo.org>.
 # No warranty.  Commercial and non-commercial use freely permitted.
 #
-# $Id: Writer.pm 166 2006-09-01 14:17:24Z josephw $
+# $Id: Writer.pm 176 2006-11-12 20:22:35Z josephw $
 ########################################################################
 
 package XML::Writer;
@@ -15,7 +15,7 @@
 use vars qw($VERSION);
 use Carp;
 use IO::Handle;
-$VERSION = "0.601";
+$VERSION = "0.602";
 
 
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/t/01_main.t new/XML-Writer-0.602/t/01_main.t
--- old/XML-Writer-0.601/t/01_main.t	2006-09-01 16:01:45.000000000 +0200
+++ new/XML-Writer-0.602/t/01_main.t	2006-11-11 17:54:22.000000000 +0100
@@ -5,7 +5,7 @@
 # Copyright (c) 2004 - 2006 by Joseph Walton <joe@kafsemo.org>.
 # No warranty.  Commercial and non-commercial use freely permitted.
 #
-# $Id: 01_main.t 164 2006-09-01 14:01:45Z josephw $
+# $Id: 01_main.t 175 2006-11-11 16:54:22Z josephw $
 ########################################################################
 
 # Before 'make install' is performed this script should be runnable with
@@ -42,7 +42,12 @@
 
 require XML::Writer;
 
-wasNoWarning('Loading XML::Writer should not result in warnings');
+SKIP: {
+	skip "Perls before 5.6 always warn when loading XML::Writer", 1 if $] <= 
+	5.006;
+
+	wasNoWarning('Loading XML::Writer should not result in warnings');
+}
 
 use IO::File;
 
@@ -68,7 +73,7 @@
 	# Reset the scratch file
 	$outputFile->seek(0, 0);
 	$outputFile->truncate(0);
-	binmode($outputFile, ':raw');
+	binmode($outputFile, ':raw') if $] >= 5.006;
 
 	# Overwrite OUTPUT so it goes to the scratch file
 	$args{'OUTPUT'} = $outputFile;
@@ -721,7 +726,7 @@
 	$w->emptyTag('elem', ['http://www.w3.org/XML/1998/namespace', 'space'] => 'preserve');
 	$w->end();
 
-	if (!unlike(getBufStr(), qr/1998/, "No declaration should be generated for the 'xml:' prefix"))
+	if (!unlike(getBufStr(), '/1998/', "No declaration should be generated for the 'xml:' prefix"))
 	{
 		diag(getBufStr());
 	}
@@ -742,7 +747,7 @@
 	$w->endTag('doc');
 	$w->end();
 
-	if (!unlike(getBufStr(), qr/uri:test.*uri:test/, 'An API should allow forced namespace declarations'))
+	if (!unlike(getBufStr(), '/uri:test.*uri:test/', 'An API should allow forced namespace declarations'))
 	{
 		diag(getBufStr());
 	}
@@ -1360,7 +1365,13 @@
 	$w->comment("\$ \x{A3} \x{20AC}");
 	$w->startTag('a');
 	$w->dataElement('b', '$');
-	$w->dataElement('b', "\x{A3}");
+
+	# I need U+00A3 as an is_utf8 string; I want to keep the source ASCII.
+	# There must be a better way to do this.
+	require Encode;
+	my $text = Encode::decode('iso-8859-1', "\x{A3}");
+	$w->dataElement('b', $text);
+
 	$w->dataElement('b', "\x{20AC}");
 	$w->startTag('c');
 	$w->cdata(" \$ \x{A3} \x{20AC} ");
@@ -1383,6 +1394,7 @@
 
 # Capture generated XML in a scalar
 TEST: {
+	initEnv();
 	my $s;
 
 	$w = new XML::Writer(OUTPUT => \$s);
@@ -1395,6 +1407,7 @@
 
 # Modify the scalar during capture
 TEST: {
+	initEnv();
 	my $s;
 
 	$w = new XML::Writer(OUTPUT => \$s);
@@ -1411,6 +1424,7 @@
 
 # Ensure that ENCODING and SCALAR don't cause failure when used together
 TEST: {
+	initEnv();
 	my $s;
 
 	ok(eval {$w = new XML::Writer(OUTPUT => \$s,
@@ -1429,6 +1443,7 @@
 SKIP: {
 	skip $unicodeSkipMessage, 2 unless isUnicodeSupported();
 
+	initEnv();
 	my $s;
 
 	$w = new XML::Writer(OUTPUT => \$s);
@@ -1482,8 +1497,11 @@
 
 	# Make sure non-ASCII characters that can't be represented
 	#  as references cause failure
-	my $text = "\x{A3}";
-#	utf8::upgrade($text);
+
+	# I need U+00A3 as an is_utf8 string; I want to keep the source ASCII.
+	# There must be a better way to do this.
+	require Encode;
+	my $text = Encode::decode('iso-8859-1', "\x{A3}");
 
 	initEnv(ENCODING => 'us-ascii', DATA_MODE => 1);
 	$w->startTag('a');
@@ -1692,7 +1710,9 @@
 }
 
 # Cover XML declaration encoding cases
-TEST: {
+SKIP: {
+	skip $unicodeSkipMessage, 8 unless isUnicodeSupported();
+
 	# No declaration unless specified
 	initEnv();
 	$w->xmlDecl();
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/t/pod-coverage.t new/XML-Writer-0.602/t/pod-coverage.t
--- old/XML-Writer-0.601/t/pod-coverage.t	1970-01-01 01:00:00.000000000 +0100
+++ new/XML-Writer-0.602/t/pod-coverage.t	2006-09-23 23:26:58.000000000 +0200
@@ -0,0 +1,8 @@
+use Test::More;
+
+eval "use Test::Pod::Coverage";
+plan skip_all => "Test::Pod::Coverage required for testing pod coverage" if $@;
+
+plan tests => 1;
+
+pod_coverage_ok('XML::Writer');
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/t/pod.t new/XML-Writer-0.602/t/pod.t
--- old/XML-Writer-0.601/t/pod.t	1970-01-01 01:00:00.000000000 +0100
+++ new/XML-Writer-0.602/t/pod.t	2006-09-23 23:26:58.000000000 +0200
@@ -0,0 +1,8 @@
+use Test::More;
+
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+
+plan tests => 1;
+
+pod_file_ok('Writer.pm');


++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



Remember to have fun...

---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org

    

root＠suse.de

tags

participants (1)