r4256 - in /packages/libxml-writer-perl/trunk: Changes MANIFEST
META.yml
Makefile.PL Writer.pm debian/changelog debian/control t/01_main.t
t/pod-coverage.t t/pod.t
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sun Nov 19 18:21:32 CET 2006
Author: gregoa-guest
Date: Sun Nov 19 18:21:32 2006
New Revision: 4256
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=4256
Log:
* New upstream release.
* Add libtest-pod-perl, libtest-pod-coverage-perl to Build-Depends-Indep.
Added:
packages/libxml-writer-perl/trunk/t/pod-coverage.t
- copied unchanged from r4255, packages/libxml-writer-perl/branches/upstream/current/t/pod-coverage.t
packages/libxml-writer-perl/trunk/t/pod.t
- copied unchanged from r4255, packages/libxml-writer-perl/branches/upstream/current/t/pod.t
Modified:
packages/libxml-writer-perl/trunk/Changes
packages/libxml-writer-perl/trunk/MANIFEST
packages/libxml-writer-perl/trunk/META.yml
packages/libxml-writer-perl/trunk/Makefile.PL
packages/libxml-writer-perl/trunk/Writer.pm
packages/libxml-writer-perl/trunk/debian/changelog
packages/libxml-writer-perl/trunk/debian/control
packages/libxml-writer-perl/trunk/t/01_main.t
Modified: packages/libxml-writer-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/trunk/Changes?rev=4256&op=diff
==============================================================================
--- packages/libxml-writer-perl/trunk/Changes (original)
+++ packages/libxml-writer-perl/trunk/Changes Sun Nov 19 18:21:32 2006
@@ -1,4 +1,9 @@
Revision history for Perl extension XML::Writer.
+
+0.602 Sat Nov 11 16:54:22 GMT 2006 <joe at 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 at kafsemo.org>
- Don't modify list references passed as tag or attribute names
Modified: packages/libxml-writer-perl/trunk/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/trunk/MANIFEST?rev=4256&op=diff
==============================================================================
--- packages/libxml-writer-perl/trunk/MANIFEST (original)
+++ packages/libxml-writer-perl/trunk/MANIFEST Sun Nov 19 18:21:32 2006
@@ -5,4 +5,6 @@
META.yml
Writer.pm
t/01_main.t
+t/pod.t
+t/pod-coverage.t
TODO
Modified: packages/libxml-writer-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/trunk/META.yml?rev=4256&op=diff
==============================================================================
--- packages/libxml-writer-perl/trunk/META.yml (original)
+++ packages/libxml-writer-perl/trunk/META.yml Sun Nov 19 18:21:32 2006
@@ -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 at megginson.com>
- Ed Avis <ed at membled.com>
- Joseph Walton <joe at kafsemo.org>
Modified: packages/libxml-writer-perl/trunk/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/trunk/Makefile.PL?rev=4256&op=diff
==============================================================================
--- packages/libxml-writer-perl/trunk/Makefile.PL (original)
+++ packages/libxml-writer-perl/trunk/Makefile.PL Sun Nov 19 18:21:32 2006
@@ -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
Modified: packages/libxml-writer-perl/trunk/Writer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/trunk/Writer.pm?rev=4256&op=diff
==============================================================================
--- packages/libxml-writer-perl/trunk/Writer.pm (original)
+++ packages/libxml-writer-perl/trunk/Writer.pm Sun Nov 19 18:21:32 2006
@@ -4,7 +4,7 @@
# Copyright (c) 2004, 2005 by Joseph Walton <joe at 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";
Modified: packages/libxml-writer-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/trunk/debian/changelog?rev=4256&op=diff
==============================================================================
--- packages/libxml-writer-perl/trunk/debian/changelog (original)
+++ packages/libxml-writer-perl/trunk/debian/changelog Sun Nov 19 18:21:32 2006
@@ -1,3 +1,10 @@
+libxml-writer-perl (0.602-1) unstable; urgency=low
+
+ * New upstream release.
+ * Add libtest-pod-perl, libtest-pod-coverage-perl to Build-Depends-Indep.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Sun, 19 Nov 2006 18:19:17 +0100
+
libxml-writer-perl (0.601-1) unstable; urgency=low
* New upstream release.
Modified: packages/libxml-writer-perl/trunk/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/trunk/debian/control?rev=4256&op=diff
==============================================================================
--- packages/libxml-writer-perl/trunk/debian/control (original)
+++ packages/libxml-writer-perl/trunk/debian/control Sun Nov 19 18:21:32 2006
@@ -6,7 +6,7 @@
Standards-Version: 3.7.2
XS-Vcs-Svn: svn://svn.debian.org/pkg-perl/packages/libxml-writer-perl/trunk/
Build-Depends: debhelper (>= 5)
-Build-Depends-Indep: perl (>= 5.6.0-16)
+Build-Depends-Indep: perl (>= 5.6.0-16), libtest-pod-perl, libtest-pod-coverage-perl
Package: libxml-writer-perl
Section: perl
Modified: packages/libxml-writer-perl/trunk/t/01_main.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libxml-writer-perl/trunk/t/01_main.t?rev=4256&op=diff
==============================================================================
--- packages/libxml-writer-perl/trunk/t/01_main.t (original)
+++ packages/libxml-writer-perl/trunk/t/01_main.t Sun Nov 19 18:21:32 2006
@@ -5,7 +5,7 @@
# Copyright (c) 2004 - 2006 by Joseph Walton <joe at 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();
More information about the Pkg-perl-cvs-commits
mailing list