r28156 - in /branches/upstream/libxml-feed-perl/current: ./ lib/XML/ lib/XML/Feed/ lib/XML/Feed/Format/ t/ t/samples/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sat Dec 13 01:55:38 UTC 2008
Author: gregoa
Date: Sat Dec 13 01:55:35 2008
New Revision: 28156
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=28156
Log:
[svn-upgrade] Integrating new upstream version, libxml-feed-perl (0.41)
Added:
branches/upstream/libxml-feed-perl/current/t/12-multi-categories-atom.t
branches/upstream/libxml-feed-perl/current/t/12-multi-categories-rss.t
branches/upstream/libxml-feed-perl/current/t/12-multi-categories.base
branches/upstream/libxml-feed-perl/current/t/12-multi-subjects-rss.t
branches/upstream/libxml-feed-perl/current/t/samples/atom-multiple-categories.xml
branches/upstream/libxml-feed-perl/current/t/samples/rss-multiple-categories.xml
branches/upstream/libxml-feed-perl/current/t/samples/rss-multiple-subjects.xml
Removed:
branches/upstream/libxml-feed-perl/current/Build.PL
Modified:
branches/upstream/libxml-feed-perl/current/Changes
branches/upstream/libxml-feed-perl/current/MANIFEST
branches/upstream/libxml-feed-perl/current/MANIFEST.SKIP
branches/upstream/libxml-feed-perl/current/META.yml
branches/upstream/libxml-feed-perl/current/Makefile.PL
branches/upstream/libxml-feed-perl/current/README
branches/upstream/libxml-feed-perl/current/lib/XML/Feed.pm
branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Content.pm
branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Entry.pm
branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Format/Atom.pm
branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Format/RSS.pm
branches/upstream/libxml-feed-perl/current/t/00-compile.t
branches/upstream/libxml-feed-perl/current/t/01-parse.t
branches/upstream/libxml-feed-perl/current/t/02-create.t
branches/upstream/libxml-feed-perl/current/t/04-splice-atom.t
branches/upstream/libxml-feed-perl/current/t/04-splice-rss.t
branches/upstream/libxml-feed-perl/current/t/08-convert-summary-bug.t
branches/upstream/libxml-feed-perl/current/t/10-mix-and-match.t
branches/upstream/libxml-feed-perl/current/t/11-xml-base-atom.t
branches/upstream/libxml-feed-perl/current/t/11-xml-base-rss.t
Modified: branches/upstream/libxml-feed-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/Changes?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/Changes (original)
+++ branches/upstream/libxml-feed-perl/current/Changes Sat Dec 13 01:55:35 2008
@@ -1,6 +1,12 @@
-# $Id: Changes 109 2008-11-21 20:41:06Z swistow $
+# $Id: Changes 118 2008-12-10 20:15:44Z swistow $
Revision history for XML::Feed
+
+0.41
+ - Add handling for multiple categories/tags, including
+ patch from Shlomi Fish (SHLOMIF)
+ http://rt.cpan.org/Ticket/Display.html?id=41396
+ - Force v1.40 of XML::RSS to get proper multiple category support
0.40
- Force v1.37 of XML::RSS to get proper xml:base support
Modified: branches/upstream/libxml-feed-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/MANIFEST?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/MANIFEST (original)
+++ branches/upstream/libxml-feed-perl/current/MANIFEST Sat Dec 13 01:55:35 2008
@@ -1,11 +1,9 @@
-Build.PL
Changes
lib/XML/Feed.pm
lib/XML/Feed/Content.pm
lib/XML/Feed/Entry.pm
lib/XML/Feed/Format/Atom.pm
lib/XML/Feed/Format/RSS.pm
-Makefile.PL
MANIFEST This list of files
MANIFEST.SKIP
META.yml
@@ -23,14 +21,22 @@
t/10-mix-and-match.t
t/11-xml-base-atom.t
t/11-xml-base-rss.t
+t/12-multi-categories-atom.t
+t/12-multi-categories-rss.t
+t/12-multi-categories.base
+t/12-multi-subjects-rss.t
+t/pod-coverage.t
+t/pod.t
t/samples/atom-10-example.xml
t/samples/atom-full.xml
+t/samples/atom-multiple-categories.xml
t/samples/atom.xml
t/samples/base_atom.xml
t/samples/base_rss.xml
+t/samples/rss-multiple-categories.xml
+t/samples/rss-multiple-subjects.xml
t/samples/rss10-invalid-date.xml
t/samples/rss10.xml
t/samples/rss20-no-summary.xml
t/samples/rss20.xml
-t/pod.t
-t/pod-coverage.t
+Makefile.PL
Modified: branches/upstream/libxml-feed-perl/current/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/MANIFEST.SKIP?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/MANIFEST.SKIP (original)
+++ branches/upstream/libxml-feed-perl/current/MANIFEST.SKIP Sat Dec 13 01:55:35 2008
@@ -3,3 +3,4 @@
_build
Build
blib
+Makefile
Modified: branches/upstream/libxml-feed-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/META.yml?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/META.yml (original)
+++ branches/upstream/libxml-feed-perl/current/META.yml Sat Dec 13 01:55:35 2008
@@ -1,6 +1,6 @@
---
name: XML-Feed
-version: 0.40
+version: 0.41
author: []
abstract: XML Syndication Feed Support
license: perl
@@ -20,11 +20,11 @@
URI::Fetch: 0
XML::Atom: 0.32
XML::LibXML: 1.66
- XML::RSS: 1.37
+ XML::RSS: 1.40
provides:
XML::Feed:
file: lib/XML/Feed.pm
- version: 0.40
+ version: 0.41
XML::Feed::Content:
file: lib/XML/Feed/Content.pm
XML::Feed::Entry:
Modified: branches/upstream/libxml-feed-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/Makefile.PL?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/Makefile.PL (original)
+++ branches/upstream/libxml-feed-perl/current/Makefile.PL Sat Dec 13 01:55:35 2008
@@ -18,7 +18,7 @@
'URI::Fetch' => '0',
'XML::Atom' => '0.32',
'XML::LibXML' => '1.66',
- 'XML::RSS' => '1.37'
+ 'XML::RSS' => '1.40'
},
'INSTALLDIRS' => 'site',
'EXE_FILES' => [],
Modified: branches/upstream/libxml-feed-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/README?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/README (original)
+++ branches/upstream/libxml-feed-perl/current/README Sat Dec 13 01:55:35 2008
@@ -1,4 +1,4 @@
-$Id: README 1925 2006-03-03 17:37:50Z btrott $
+$Id: README 115 2008-12-01 21:17:51Z swistow $
This is XML::Feed, an abstraction above the RSS and Atom syndication
feed formats. It supports both parsing and autodiscovery of feeds.
Modified: branches/upstream/libxml-feed-perl/current/lib/XML/Feed.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/lib/XML/Feed.pm?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/lib/XML/Feed.pm (original)
+++ branches/upstream/libxml-feed-perl/current/lib/XML/Feed.pm Sat Dec 13 01:55:35 2008
@@ -1,4 +1,4 @@
-# $Id: Feed.pm 1958 2006-08-14 05:31:27Z btrott $
+# $Id: Feed.pm 118 2008-12-10 20:15:44Z swistow $
package XML::Feed;
use strict;
@@ -12,7 +12,7 @@
require => 1,
sub_name => 'formatters';
-our $VERSION = '0.40';
+our $VERSION = '0.41';
our @formatters;
BEGIN {
@formatters = __PACKAGE__->formatters;
Modified: branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Content.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Content.pm?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Content.pm (original)
+++ branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Content.pm Sat Dec 13 01:55:35 2008
@@ -1,4 +1,4 @@
-# $Id: Content.pm 1862 2005-06-20 17:26:11Z btrott $
+# $Id: Content.pm 115 2008-12-01 21:17:51Z swistow $
package XML::Feed::Content;
use strict;
Modified: branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Entry.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Entry.pm?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Entry.pm (original)
+++ branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Entry.pm Sat Dec 13 01:55:35 2008
@@ -1,4 +1,4 @@
-# $Id: Entry.pm 1872 2005-08-12 04:28:42Z btrott $
+# $Id: Entry.pm 118 2008-12-10 20:15:44Z swistow $
package XML::Feed::Entry;
use strict;
@@ -55,6 +55,7 @@
sub lat;
sub long;
sub format;
+sub tags { shift->category(@_) }
1;
__END__
@@ -127,6 +128,16 @@
The category in which the entry was posted.
+Returns a list of categories if called in array context or the first
+category if called in scalar context.
+
+B<WARNING> It's possible this API might change to have an
+I<add_category> instead.
+
+=head2 $entry->tags([ $tag ])
+
+A synonym for I<category>;
+
=head2 $entry->author([ $author ])
The name or email address of the person who posted the entry.
Modified: branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Format/Atom.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Format/Atom.pm?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Format/Atom.pm (original)
+++ branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Format/Atom.pm Sat Dec 13 01:55:35 2008
@@ -1,4 +1,4 @@
-# $Id: Atom.pm 1958 2006-08-14 05:31:27Z btrott $
+# $Id: Atom.pm 116 2008-12-09 23:39:29Z swistow $
package XML::Feed::Format::Atom;
use strict;
@@ -228,10 +228,16 @@
my $entry = shift;
my $ns = XML::Atom::Namespace->new(dc => 'http://purl.org/dc/elements/1.1/');
if (@_) {
- $entry->{entry}->add_category({ term => $_[0] });
- } else {
- my $category = $entry->{entry}->category;
- my @return = $category ? ($category->label || $category->term) : $entry->{entry}->getlist($ns, 'subject');
+ $entry->{entry}->add_category({ term => $_ }) for @_;
+ return 1
+ } else {
+
+
+ my @category = ($entry->{entry}->can('categories')) ? $entry->{entry}->categories : $entry->{entry}->category;
+ my @return = @category
+ ? (map { $_->label || $_->term } @category)
+ : $entry->{entry}->getlist($ns, 'subject');
+
return wantarray? @return : $return[0];
}
}
Modified: branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Format/RSS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Format/RSS.pm?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Format/RSS.pm (original)
+++ branches/upstream/libxml-feed-perl/current/lib/XML/Feed/Format/RSS.pm Sat Dec 13 01:55:35 2008
@@ -1,4 +1,4 @@
-# $Id: RSS.pm 1934 2006-04-22 05:13:55Z btrott $
+# $Id: RSS.pm 117 2008-12-09 23:48:16Z swistow $
package XML::Feed::Format::RSS;
use strict;
@@ -245,11 +245,16 @@
}
sub category {
- my $item = shift->{entry};
- if (@_) {
- $item->{category} = $item->{dc}{subject} = $_[0];
- } else {
- $item->{category} || $item->{dc}{subject};
+ my $entry = shift;
+ my $item = $entry->{entry};
+ if (@_) {
+ my @tmp = ($entry->category, @_);
+ $item->{category} = [@tmp];
+ $item->{dc}{subject} = [@tmp];
+ } else {
+ my $r = $item->{category} || $item->{dc}{subject};
+ my @r = ref($r)? @$r : defined $r? ($r) : ();
+ return wantarray? @r : $r[0];
}
}
Modified: branches/upstream/libxml-feed-perl/current/t/00-compile.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/t/00-compile.t?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/t/00-compile.t (original)
+++ branches/upstream/libxml-feed-perl/current/t/00-compile.t Sat Dec 13 01:55:35 2008
@@ -1,4 +1,4 @@
-# $Id: 00-compile.t 1867 2005-08-09 20:41:15Z btrott $
+# $Id: 00-compile.t 115 2008-12-01 21:17:51Z swistow $
use strict;
use Test::More tests => 4;
Modified: branches/upstream/libxml-feed-perl/current/t/01-parse.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/t/01-parse.t?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/t/01-parse.t (original)
+++ branches/upstream/libxml-feed-perl/current/t/01-parse.t Sat Dec 13 01:55:35 2008
@@ -1,4 +1,4 @@
-# $Id: 01-parse.t 1921 2006-02-28 02:50:52Z btrott $
+# $Id: 01-parse.t 115 2008-12-01 21:17:51Z swistow $
use strict;
use Test::More tests => 75;
Modified: branches/upstream/libxml-feed-perl/current/t/02-create.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/t/02-create.t?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/t/02-create.t (original)
+++ branches/upstream/libxml-feed-perl/current/t/02-create.t Sat Dec 13 01:55:35 2008
@@ -1,4 +1,4 @@
-# $Id$
+# $Id: 02-create.t 115 2008-12-01 21:17:51Z swistow $
use strict;
use Test::More tests => 72;
Modified: branches/upstream/libxml-feed-perl/current/t/04-splice-atom.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/t/04-splice-atom.t?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/t/04-splice-atom.t (original)
+++ branches/upstream/libxml-feed-perl/current/t/04-splice-atom.t Sat Dec 13 01:55:35 2008
@@ -1,4 +1,4 @@
-# $Id: 04-splice.t 1958 2006-08-14 05:31:27Z btrott $
+# $Id: 04-splice-atom.t 115 2008-12-01 21:17:51Z swistow $
use strict;
use Test::More tests => 3;
Modified: branches/upstream/libxml-feed-perl/current/t/04-splice-rss.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/t/04-splice-rss.t?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/t/04-splice-rss.t (original)
+++ branches/upstream/libxml-feed-perl/current/t/04-splice-rss.t Sat Dec 13 01:55:35 2008
@@ -1,4 +1,4 @@
-# $Id: 04-splice.t 1958 2006-08-14 05:31:27Z btrott $
+# $Id: 04-splice-rss.t 115 2008-12-01 21:17:51Z swistow $
use strict;
use Test::More tests => 3;
Modified: branches/upstream/libxml-feed-perl/current/t/08-convert-summary-bug.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/t/08-convert-summary-bug.t?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/t/08-convert-summary-bug.t (original)
+++ branches/upstream/libxml-feed-perl/current/t/08-convert-summary-bug.t Sat Dec 13 01:55:35 2008
@@ -1,4 +1,4 @@
-# $Id$
+# $Id: 08-convert-summary-bug.t 115 2008-12-01 21:17:51Z swistow $
use strict;
use Test::More tests => 1;
Modified: branches/upstream/libxml-feed-perl/current/t/10-mix-and-match.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/t/10-mix-and-match.t?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/t/10-mix-and-match.t (original)
+++ branches/upstream/libxml-feed-perl/current/t/10-mix-and-match.t Sat Dec 13 01:55:35 2008
@@ -1,4 +1,4 @@
-# $Id: $
+# $Id: 10-mix-and-match.t 115 2008-12-01 21:17:51Z swistow $
use strict;
use Test::More tests => 6;
Modified: branches/upstream/libxml-feed-perl/current/t/11-xml-base-atom.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/t/11-xml-base-atom.t?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/t/11-xml-base-atom.t (original)
+++ branches/upstream/libxml-feed-perl/current/t/11-xml-base-atom.t Sat Dec 13 01:55:35 2008
@@ -1,4 +1,4 @@
-# $Id: $
+# $Id: 11-xml-base-atom.t 115 2008-12-01 21:17:51Z swistow $
use strict;
use Test::More tests => 13;
Modified: branches/upstream/libxml-feed-perl/current/t/11-xml-base-rss.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/t/11-xml-base-rss.t?rev=28156&op=diff
==============================================================================
--- branches/upstream/libxml-feed-perl/current/t/11-xml-base-rss.t (original)
+++ branches/upstream/libxml-feed-perl/current/t/11-xml-base-rss.t Sat Dec 13 01:55:35 2008
@@ -1,4 +1,4 @@
-# $Id: $
+# $Id: 11-xml-base-rss.t 115 2008-12-01 21:17:51Z swistow $
use strict;
use Test::More;
Added: branches/upstream/libxml-feed-perl/current/t/12-multi-categories-atom.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/t/12-multi-categories-atom.t?rev=28156&op=file
==============================================================================
--- branches/upstream/libxml-feed-perl/current/t/12-multi-categories-atom.t (added)
+++ branches/upstream/libxml-feed-perl/current/t/12-multi-categories-atom.t Sat Dec 13 01:55:35 2008
@@ -1,0 +1,6 @@
+#!perl -w
+
+use strict;
+use vars qw($type $field);
+$type = "atom";
+require 't/12-multi-categories.base';
Added: branches/upstream/libxml-feed-perl/current/t/12-multi-categories-rss.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/t/12-multi-categories-rss.t?rev=28156&op=file
==============================================================================
--- branches/upstream/libxml-feed-perl/current/t/12-multi-categories-rss.t (added)
+++ branches/upstream/libxml-feed-perl/current/t/12-multi-categories-rss.t Sat Dec 13 01:55:35 2008
@@ -1,0 +1,6 @@
+#!perl -w
+
+use strict;
+use vars qw($type $field);
+$type = "rss";
+require 't/12-multi-categories.base';
Added: branches/upstream/libxml-feed-perl/current/t/12-multi-categories.base
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/t/12-multi-categories.base?rev=28156&op=file
==============================================================================
--- branches/upstream/libxml-feed-perl/current/t/12-multi-categories.base (added)
+++ branches/upstream/libxml-feed-perl/current/t/12-multi-categories.base Sat Dec 13 01:55:35 2008
@@ -1,0 +1,26 @@
+use strict;
+use Test::More tests => 6;
+use XML::Feed;
+
+$field ||= "categories";
+ok(my $feed = XML::Feed->parse("t/samples/${type}-multiple-${field}.xml"), "Parsed $type file with multiple categories");
+my ($entry) = $feed->entries;
+
+is_deeply(
+ [$entry->category()],
+ ["foo", "bar", "quux", "simon's tags"],
+"Got all categories");
+
+my $xml = $feed->as_xml;
+ok($feed = XML::Feed->parse(\$xml), "Reparsed $type from string");
+is_deeply(
+ [$entry->category()],
+ ["foo", "bar", "quux", "simon's tags"],
+"Got all categories again");
+
+ok($entry->category("quirka fleeg"), "Added a category");
+is_deeply(
+ [$entry->category()],
+ ["foo", "bar", "quux", "simon's tags", "quirka fleeg"],
+"Got new category");
+
Added: branches/upstream/libxml-feed-perl/current/t/12-multi-subjects-rss.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/t/12-multi-subjects-rss.t?rev=28156&op=file
==============================================================================
--- branches/upstream/libxml-feed-perl/current/t/12-multi-subjects-rss.t (added)
+++ branches/upstream/libxml-feed-perl/current/t/12-multi-subjects-rss.t Sat Dec 13 01:55:35 2008
@@ -1,0 +1,6 @@
+#!perl -w
+
+use vars qw($type $field);
+$type = "rss";
+$field = "subjects";
+require 't/12-multi-categories.base';
Added: branches/upstream/libxml-feed-perl/current/t/samples/atom-multiple-categories.xml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/t/samples/atom-multiple-categories.xml?rev=28156&op=file
==============================================================================
--- branches/upstream/libxml-feed-perl/current/t/samples/atom-multiple-categories.xml (added)
+++ branches/upstream/libxml-feed-perl/current/t/samples/atom-multiple-categories.xml Sat Dec 13 01:55:35 2008
@@ -1,0 +1,18 @@
+<?xml version="1.0" encoding="utf-8"?>
+<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="en">
+ <title>Simon Wistow's blog</title>
+ <link rel="self" type="application/atom+xml" title="Simon Wistow.s blog (Atom)" href="http://deflatermouse.vox.com/library/posts/page/1/atom.xml" />
+ <updated>2008-12-09T06:37:07Z</updated>
+ <id>tag:vox.com,2006:6p00c2252555dbf219/</id>
+ <subtitle>One Drink Too Many and a Joke Gone Too Far</subtitle>
+ <entry>
+ <title>Test With Categories</title>
+ <published>2008-12-08T19:44:50Z</published>
+ <updated>2008-12-09T06:37:07Z</updated>
+ <content>content</content>
+ <category term="foo" />
+ <category term="bar" />
+ <category term="quux" />
+ <category term="simon's tags" />
+ </entry>
+</feed>
Added: branches/upstream/libxml-feed-perl/current/t/samples/rss-multiple-categories.xml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/t/samples/rss-multiple-categories.xml?rev=28156&op=file
==============================================================================
--- branches/upstream/libxml-feed-perl/current/t/samples/rss-multiple-categories.xml (added)
+++ branches/upstream/libxml-feed-perl/current/t/samples/rss-multiple-categories.xml Sat Dec 13 01:55:35 2008
@@ -1,0 +1,19 @@
+<?xml version="1.0" encoding="utf-8"?>
+<rss version="2.0"
+ xmlns:dc="http://purl.org/dc/elements/1.1/"
+ xmlns:content="http://purl.org/rss/1.0/modules/content/">
+ <channel>
+ <title>Simon Wistow's blog</title>
+ <link>http://deflatermouse.vox.com/library/posts/page/1/</link>
+ <lastBuildDate>Mon, 08 Dec 2008 11:44:50 -0800</lastBuildDate>
+ <item>
+ <title>Test With Categories</title>
+ <pubDate>Mon, 08 Dec 2008 11:44:50 -0800</pubDate>
+ <description>content</description>
+ <category>foo</category>
+ <category>bar</category>
+ <category>quux</category>
+ <category>simon's tags</category>
+ </item>
+ </channel>
+</rss>
Added: branches/upstream/libxml-feed-perl/current/t/samples/rss-multiple-subjects.xml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libxml-feed-perl/current/t/samples/rss-multiple-subjects.xml?rev=28156&op=file
==============================================================================
--- branches/upstream/libxml-feed-perl/current/t/samples/rss-multiple-subjects.xml (added)
+++ branches/upstream/libxml-feed-perl/current/t/samples/rss-multiple-subjects.xml Sat Dec 13 01:55:35 2008
@@ -1,0 +1,19 @@
+<?xml version="1.0" encoding="utf-8"?>
+<rss version="2.0"
+ xmlns:dc="http://purl.org/dc/elements/1.1/"
+ xmlns:content="http://purl.org/rss/1.0/modules/content/">
+ <channel>
+ <title>Simon Wistow's blog</title>
+ <link>http://deflatermouse.vox.com/library/posts/page/1/</link>
+ <lastBuildDate>Mon, 08 Dec 2008 11:44:50 -0800</lastBuildDate>
+ <item>
+ <title>Test With Categories</title>
+ <pubDate>Mon, 08 Dec 2008 11:44:50 -0800</pubDate>
+ <description>content</description>
+ <dc:subject>foo</dc:subject>
+ <dc:subject>bar</dc:subject>
+ <dc:subject>quux</dc:subject>
+ <dc:subject>simon's tags</dc:subject>
+ </item>
+ </channel>
+</rss>
More information about the Pkg-perl-cvs-commits
mailing list