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