r30365 - in /branches/upstream/libxml-rss-libxml-perl/current: Changes META.yml lib/XML/RSS/LibXML.pm lib/XML/RSS/LibXML/V2_0.pm t/1.0-parse-2.t t/1.0-to-2.0.t t/2.0-permalink.t t/data/2.0/ t/regress-broken-image.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sun Feb 1 14:18:59 UTC 2009
Author: gregoa
Date: Sun Feb 1 14:18:56 2009
New Revision: 30365
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=30365
Log:
[svn-upgrade] Integrating new upstream version, libxml-rss-libxml-perl (0.3004)
Removed:
branches/upstream/libxml-rss-libxml-perl/current/t/data/2.0/
Modified:
branches/upstream/libxml-rss-libxml-perl/current/Changes
branches/upstream/libxml-rss-libxml-perl/current/META.yml
branches/upstream/libxml-rss-libxml-perl/current/lib/XML/RSS/LibXML.pm
branches/upstream/libxml-rss-libxml-perl/current/lib/XML/RSS/LibXML/V2_0.pm
branches/upstream/libxml-rss-libxml-perl/current/t/1.0-parse-2.t
branches/upstream/libxml-rss-libxml-perl/current/t/1.0-to-2.0.t
branches/upstream/libxml-rss-libxml-perl/current/t/2.0-permalink.t
branches/upstream/libxml-rss-libxml-perl/current/t/regress-broken-image.t
Modified: branches/upstream/libxml-rss-libxml-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-libxml-perl/current/Changes?rev=30365&op=diff
==============================================================================
--- branches/upstream/libxml-rss-libxml-perl/current/Changes (original)
+++ branches/upstream/libxml-rss-libxml-perl/current/Changes Sun Feb 1 14:18:56 2009
@@ -2,6 +2,11 @@
=======
Except where noted, all changes made by Daisuke Maki
+
+0.3004 - 20 Jan 2009
+ - rt #42536. Some files were removed from the distro for the time being.
+ (I don't have the time to re-create these for now -- patch submissions
+ are most welcome)
0.3003 - 26 Nov 2008
- Try not to die if we encountered a Broken <image> tag in RSS 2.0
Modified: branches/upstream/libxml-rss-libxml-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-libxml-perl/current/META.yml?rev=30365&op=diff
==============================================================================
--- branches/upstream/libxml-rss-libxml-perl/current/META.yml (original)
+++ branches/upstream/libxml-rss-libxml-perl/current/META.yml Sun Feb 1 14:18:56 2009
@@ -23,4 +23,4 @@
XML::LibXML::XPathContext: 0
resources:
license: http://dev.perl.org/licenses/
-version: 0.3003
+version: 0.3004
Modified: branches/upstream/libxml-rss-libxml-perl/current/lib/XML/RSS/LibXML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-libxml-perl/current/lib/XML/RSS/LibXML.pm?rev=30365&op=diff
==============================================================================
--- branches/upstream/libxml-rss-libxml-perl/current/lib/XML/RSS/LibXML.pm (original)
+++ branches/upstream/libxml-rss-libxml-perl/current/lib/XML/RSS/LibXML.pm Sun Feb 1 14:18:56 2009
@@ -1,7 +1,4 @@
-# $Id: /mirror/coderepos/lang/perl/XML-RSS-LibXML/trunk/lib/XML/RSS/LibXML.pm 92874 2008-11-26T08:46:35.232842Z daisuke $
-#
-# Copyright (c) 2005-2007 Daisuke Maki <daisuke at endeworks.jp>
-# All rights reserved.
+# $Id: /mirror/coderepos/lang/perl/XML-RSS-LibXML/trunk/lib/XML/RSS/LibXML.pm 98843 2009-01-20T00:12:11.747517Z daisuke $
package XML::RSS::LibXML;
use strict;
@@ -13,7 +10,7 @@
use XML::LibXML::XPathContext;
use XML::RSS::LibXML::Namespaces qw(NS_RSS10);
-our $VERSION = '0.3003';
+our $VERSION = '0.3004';
__PACKAGE__->mk_accessors($_) for qw(impl encoding strict namespaces modules output stylesheets _internal num_items);
@@ -36,7 +33,8 @@
libxml_opts => $args{libxml_opts} || {
recover => 1,
load_ext_dtd => 0
- }
+ },
+ 'xml:base' => $args{'xml:base'},
}, $class;
$self->impl->reset($self);
Modified: branches/upstream/libxml-rss-libxml-perl/current/lib/XML/RSS/LibXML/V2_0.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-libxml-perl/current/lib/XML/RSS/LibXML/V2_0.pm?rev=30365&op=diff
==============================================================================
--- branches/upstream/libxml-rss-libxml-perl/current/lib/XML/RSS/LibXML/V2_0.pm (original)
+++ branches/upstream/libxml-rss-libxml-perl/current/lib/XML/RSS/LibXML/V2_0.pm Sun Feb 1 14:18:56 2009
@@ -1,4 +1,4 @@
-# $Id: /mirror/coderepos/lang/perl/XML-RSS-LibXML/trunk/lib/XML/RSS/LibXML/V2_0.pm 92871 2008-11-26T08:43:51.188354Z daisuke $
+# $Id: /mirror/coderepos/lang/perl/XML-RSS-LibXML/trunk/lib/XML/RSS/LibXML/V2_0.pm 93774 2008-12-02T06:24:35.638916Z miyagawa $
#
# Copyright (c) 2005-2007 Daisuke Maki <daisuke at endeworks.jp>
# All rights reserved.
@@ -155,7 +155,7 @@
my $field = 'skip' . ucfirst($type) . 's';
if (my $skip = delete $h{$field}) {
if (ref $skip ne 'HASH') {
- warn "field $field has invalid entry (does this RSS validate?)";
+# warn "field $field has invalid entry (does this RSS validate?)";
} elsif (! UNIVERSAL::isa($skip, 'XML::RSS::LibXML::ElementSpec')) {
$c->$field(UNIVERSAL::isa($skip, 'XML::RSS::LibXML::MagicElement') ? $skip : %$skip);
}
@@ -165,7 +165,7 @@
foreach my $field qw(textinput image) {
if (my $v = $h{$field}) {
if (ref $v ne 'HASH') {
- warn "field $field has invalid entry (does this RSS validate?)";
+# warn "field $field has invalid entry (does this RSS validate?)";
} elsif (! UNIVERSAL::isa($v, 'XML::RSS::LibXML::ElementSpec')) {
$c->$field(UNIVERSAL::isa($v, 'XML::RSS::LibXML::MagicElement') ? $v : %$v);
}
@@ -300,4 +300,4 @@
}
}
-1;
+1;
Modified: branches/upstream/libxml-rss-libxml-perl/current/t/1.0-parse-2.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-libxml-perl/current/t/1.0-parse-2.t?rev=30365&op=diff
==============================================================================
--- branches/upstream/libxml-rss-libxml-perl/current/t/1.0-parse-2.t (original)
+++ branches/upstream/libxml-rss-libxml-perl/current/t/1.0-parse-2.t Sun Feb 1 14:18:56 2009
@@ -8,10 +8,12 @@
use File::Spec;
use XML::RSS::LibXML;
-{
+SKIP: {
+ my $rssfile = File::Spec->catfile(File::Spec->curdir(), "t", "data", "merlyn1.rss");
+ skip("rt #42536", 3) if ! -f $rssfile;
my $rss = XML::RSS::LibXML->new();
- $rss->parsefile(File::Spec->catfile(File::Spec->curdir(), "t", "data", "merlyn1.rss"));
+ $rss->parsefile($rssfile);
{
my $item = $rss->{items}->[0];
@@ -32,10 +34,12 @@
}
}
-{
+SKIP: {
+ my $rssfile = File::Spec->catfile(File::Spec->curdir(), "t", "data", "merlyn1.rss");
+ skip("rt #42536", 3) if ! -f $rssfile;
my $rss = XML::RSS::LibXML->new(version => "2.0");
- $rss->parsefile(File::Spec->catfile(File::Spec->curdir(), "t", "data", "merlyn1.rss"));
+ $rss->parsefile($rssfile);
{
my $item = $rss->{items}->[0];
Modified: branches/upstream/libxml-rss-libxml-perl/current/t/1.0-to-2.0.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-libxml-perl/current/t/1.0-to-2.0.t?rev=30365&op=diff
==============================================================================
--- branches/upstream/libxml-rss-libxml-perl/current/t/1.0-to-2.0.t (original)
+++ branches/upstream/libxml-rss-libxml-perl/current/t/1.0-to-2.0.t Sun Feb 1 14:18:56 2009
@@ -9,9 +9,11 @@
use XML::RSS::LibXML;
-{
+SKIP: {
+ my $rssfile = File::Spec->catfile(File::Spec->curdir(), "t", "data", "merlyn1.rss");
+ skip("rt #42536", 2) if ! -f $rssfile;
my $rss = XML::RSS::LibXML->new;
- $rss->parsefile(File::Spec->catfile(File::Spec->curdir(), "t", "data", "merlyn1.rss"));
+ $rss->parsefile($rssfile);
$rss->{output} = "2.0";
my $string = $rss->as_string;
@@ -27,9 +29,11 @@
);
}
-{
+SKIP: {
+ my $rssfile = File::Spec->catfile(File::Spec->curdir(), "t", "data", "merlyn1.rss");
+ skip("rt #42536", 2) if ! -f $rssfile;
my $rss = XML::RSS::LibXML->new;
- $rss->parsefile(File::Spec->catfile(File::Spec->curdir(), "t", "data", "merlyn1.rss"));
+ $rss->parsefile($rssfile);
$rss->{output} = "0.91";
my $string = $rss->as_string;
@@ -45,9 +49,12 @@
);
}
-{
+SKIP: {
+ my $rssfile = File::Spec->catfile(File::Spec->curdir(), "t", "data", "2.0","sf-hs-with-pubDate.rss");
+ skip("rt #42536", 2) if (! -f $rssfile);
+
my $rss = XML::RSS::LibXML->new;
- $rss->parsefile(File::Spec->catfile(File::Spec->curdir(), "t", "data", "2.0","sf-hs-with-pubDate.rss"));
+ $rss->parsefile($rssfile);
$rss->{output} = "1.0";
my $string = $rss->as_string;
@@ -66,9 +73,13 @@
);
}
-{
+SKIP: {
+ my $rssfile = File::Spec->catfile(File::Spec->curdir(), "t", "data", "2.0","sf-hs-with-lastBuildDate.rss");
+ skip("rt #42536", 2);
+
my $rss = XML::RSS::LibXML->new;
- $rss->parsefile(File::Spec->catfile(File::Spec->curdir(), "t", "data", "2.0","sf-hs-with-lastBuildDate.rss"));
+
+ $rss->parsefile($rssfile);
$rss->{output} = "1.0";
my $string = $rss->as_string;
Modified: branches/upstream/libxml-rss-libxml-perl/current/t/2.0-permalink.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-libxml-perl/current/t/2.0-permalink.t?rev=30365&op=diff
==============================================================================
--- branches/upstream/libxml-rss-libxml-perl/current/t/2.0-permalink.t (original)
+++ branches/upstream/libxml-rss-libxml-perl/current/t/2.0-permalink.t Sun Feb 1 14:18:56 2009
@@ -8,32 +8,37 @@
use File::Spec;
use XML::RSS::LibXML;
-my $rss = new XML::RSS::LibXML;
-$rss->parsefile(File::Spec->catfile('t', 'data', 'rss-permalink.xml') );
-my $item_with_guid_true = $rss->{'items'}->[0];
-my $item_with_guid_missing = $rss->{'items'}->[1];
-my $item_with_guid_false = $rss->{'items'}->[2];
+SKIP: {
+ my $rssfile = File::Spec->catfile('t', 'data', 'rss-permalink.xml');
+ skip("rt #42536", 4) if ! -f $rssfile;
-# TEST
-is ($item_with_guid_true->{"permaLink"},
- "http://community.livejournal.com/lj_dev/714037.html",
- "guid's isPermaLink is set to true, so the item permalink property should be set to the value of the guid tag"
-);
-
-# TEST
-is ($item_with_guid_missing->{"permaLink"},
- "http://community.livejournal.com/lj_dev/713810.html",
- "guid's isPermaLink is missing, so the item permalink property should be set to the value of the guid tag"
-);
-
-# TEST
-ok ((!$item_with_guid_false->{"permaLink"}),
- "guid's isPermaLink is false, so the permalink should be false"
-);
-
-# TEST
-is ($item_with_guid_false->{"guid"},
- "http://community.livejournal.com/lj_dev/713549.html",
- "guid's isPermaLink is false so item->{guid} should be equal to" .
- " the contents of the guid element"
-);
+ my $rss = new XML::RSS::LibXML;
+ $rss->parsefile($rssfile);
+ my $item_with_guid_true = $rss->{'items'}->[0];
+ my $item_with_guid_missing = $rss->{'items'}->[1];
+ my $item_with_guid_false = $rss->{'items'}->[2];
+
+ # TEST
+ is ($item_with_guid_true->{"permaLink"},
+ "http://community.livejournal.com/lj_dev/714037.html",
+ "guid's isPermaLink is set to true, so the item permalink property should be set to the value of the guid tag"
+ );
+
+ # TEST
+ is ($item_with_guid_missing->{"permaLink"},
+ "http://community.livejournal.com/lj_dev/713810.html",
+ "guid's isPermaLink is missing, so the item permalink property should be set to the value of the guid tag"
+ );
+
+ # TEST
+ ok ((!$item_with_guid_false->{"permaLink"}),
+ "guid's isPermaLink is false, so the permalink should be false"
+ );
+
+ # TEST
+ is ($item_with_guid_false->{"guid"},
+ "http://community.livejournal.com/lj_dev/713549.html",
+ "guid's isPermaLink is false so item->{guid} should be equal to" .
+ " the contents of the guid element"
+ );
+}
Modified: branches/upstream/libxml-rss-libxml-perl/current/t/regress-broken-image.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-rss-libxml-perl/current/t/regress-broken-image.t?rev=30365&op=diff
==============================================================================
--- branches/upstream/libxml-rss-libxml-perl/current/t/regress-broken-image.t (original)
+++ branches/upstream/libxml-rss-libxml-perl/current/t/regress-broken-image.t Sun Feb 1 14:18:56 2009
@@ -31,13 +31,9 @@
{
my $rss = XML::RSS::LibXML->new;
- lives_and {
- warning_like {
- $rss->parse($xml)
- } qr/field image has invalid entry \(does this RSS validate\?\)/;
+ lives_ok {
+ $rss->parse($xml)
} 'parse generates warning';
ok( ! $rss->{item}->[0]->{image} );
}
-
-
More information about the Pkg-perl-cvs-commits
mailing list