r30367 - in /trunk/libxml-rss-libxml-perl: Changes META.yml debian/changelog 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:20:49 UTC 2009


Author: gregoa
Date: Sun Feb  1 14:20:45 2009
New Revision: 30367

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

Removed:
    trunk/libxml-rss-libxml-perl/t/data/2.0/
Modified:
    trunk/libxml-rss-libxml-perl/Changes
    trunk/libxml-rss-libxml-perl/META.yml
    trunk/libxml-rss-libxml-perl/debian/changelog
    trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML.pm
    trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V2_0.pm
    trunk/libxml-rss-libxml-perl/t/1.0-parse-2.t
    trunk/libxml-rss-libxml-perl/t/1.0-to-2.0.t
    trunk/libxml-rss-libxml-perl/t/2.0-permalink.t
    trunk/libxml-rss-libxml-perl/t/regress-broken-image.t

Modified: trunk/libxml-rss-libxml-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/Changes?rev=30367&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/Changes (original)
+++ trunk/libxml-rss-libxml-perl/Changes Sun Feb  1 14:20:45 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: trunk/libxml-rss-libxml-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/META.yml?rev=30367&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/META.yml (original)
+++ trunk/libxml-rss-libxml-perl/META.yml Sun Feb  1 14:20:45 2009
@@ -23,4 +23,4 @@
   XML::LibXML::XPathContext: 0
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.3003
+version: 0.3004

Modified: trunk/libxml-rss-libxml-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/debian/changelog?rev=30367&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/debian/changelog (original)
+++ trunk/libxml-rss-libxml-perl/debian/changelog Sun Feb  1 14:20:45 2009
@@ -1,3 +1,9 @@
+libxml-rss-libxml-perl (0.3004-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Sun, 01 Feb 2009 15:19:32 +0100
+
 libxml-rss-libxml-perl (0.3003+dfsg.1-1) unstable; urgency=low
 
   * Initial Release. Closes: #509094 -- ITP

Modified: trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML.pm?rev=30367&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML.pm (original)
+++ trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML.pm Sun Feb  1 14:20:45 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: trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V2_0.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V2_0.pm?rev=30367&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V2_0.pm (original)
+++ trunk/libxml-rss-libxml-perl/lib/XML/RSS/LibXML/V2_0.pm Sun Feb  1 14:20:45 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: trunk/libxml-rss-libxml-perl/t/1.0-parse-2.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/t/1.0-parse-2.t?rev=30367&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/t/1.0-parse-2.t (original)
+++ trunk/libxml-rss-libxml-perl/t/1.0-parse-2.t Sun Feb  1 14:20:45 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: trunk/libxml-rss-libxml-perl/t/1.0-to-2.0.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/t/1.0-to-2.0.t?rev=30367&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/t/1.0-to-2.0.t (original)
+++ trunk/libxml-rss-libxml-perl/t/1.0-to-2.0.t Sun Feb  1 14:20:45 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: trunk/libxml-rss-libxml-perl/t/2.0-permalink.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/t/2.0-permalink.t?rev=30367&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/t/2.0-permalink.t (original)
+++ trunk/libxml-rss-libxml-perl/t/2.0-permalink.t Sun Feb  1 14:20:45 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: trunk/libxml-rss-libxml-perl/t/regress-broken-image.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libxml-rss-libxml-perl/t/regress-broken-image.t?rev=30367&op=diff
==============================================================================
--- trunk/libxml-rss-libxml-perl/t/regress-broken-image.t (original)
+++ trunk/libxml-rss-libxml-perl/t/regress-broken-image.t Sun Feb  1 14:20:45 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