|
Revision 397, 419 bytes
(checked in by miya, 2 years ago)
|
--
|
| Line | |
|---|
| 1 |
use strict; |
|---|
| 2 |
use FindBin; |
|---|
| 3 |
use Test::More tests => 5; |
|---|
| 4 |
|
|---|
| 5 |
use XML::Atom::Feed; |
|---|
| 6 |
|
|---|
| 7 |
my $f = XML::Atom::Feed->new("$FindBin::Bin/samples/atom-1.0.xml"); |
|---|
| 8 |
is $f->tagline, $f->subtitle; |
|---|
| 9 |
|
|---|
| 10 |
my $e = ($f->entries)[0]; |
|---|
| 11 |
is $e->modified, $e->updated, $e->modified; |
|---|
| 12 |
is $e->issued, $e->published, $e->issued; |
|---|
| 13 |
|
|---|
| 14 |
# create |
|---|
| 15 |
$f = XML::Atom::Feed->new; |
|---|
| 16 |
$f->title("foo bar"); |
|---|
| 17 |
$f->tagline("Hello"); |
|---|
| 18 |
|
|---|
| 19 |
is $f->tagline, "Hello"; |
|---|
| 20 |
is $f->subtitle, "Hello"; |
|---|
