|
Revision 397, 0.6 kB
(checked in by miya, 2 years ago)
|
--
|
| Line | |
|---|
| 1 |
# $Id$ |
|---|
| 2 |
|
|---|
| 3 |
use strict; |
|---|
| 4 |
|
|---|
| 5 |
use Test::More tests => 9; |
|---|
| 6 |
use XML::Atom::Person; |
|---|
| 7 |
|
|---|
| 8 |
my $person; |
|---|
| 9 |
|
|---|
| 10 |
$person = XML::Atom::Person->new; |
|---|
| 11 |
isa_ok $person, 'XML::Atom::Person'; |
|---|
| 12 |
ok $person->elem; |
|---|
| 13 |
|
|---|
| 14 |
$person->name('Foo Bar'); |
|---|
| 15 |
is $person->name, 'Foo Bar'; |
|---|
| 16 |
$person->name('Baz Quux'); |
|---|
| 17 |
is $person->name, 'Baz Quux'; |
|---|
| 18 |
|
|---|
| 19 |
$person->email('foo@bar.com'); |
|---|
| 20 |
is $person->email, 'foo@bar.com'; |
|---|
| 21 |
|
|---|
| 22 |
my $xml = $person->as_xml; |
|---|
| 23 |
like $xml, qr/^<\?xml version="1.0" encoding="utf-8"\?>/; |
|---|
| 24 |
like $xml, qr/<author xmlns="http:\/\/purl.org\/atom\/ns#">/; |
|---|
| 25 |
like $xml, qr/<name xmlns="http:\/\/purl.org\/atom\/ns#">Baz Quux<\/name>/; |
|---|
| 26 |
like $xml, qr/<email xmlns="http:\/\/purl.org\/atom\/ns#">foo\@bar.com<\/email>/; |
|---|
