use strict;
use Test::More (tests => 5);
use Test::Moose;
BEGIN
{
use_ok("Atomik::Entry");
}
{
my $entry = Atomik::Entry->from_xml( <<EOXML );
<?xml version="1.0"?>
<entry xmlns="http://www.w3.org/2005/Atom">
<title>Atom-Powered Robots Run Amok</title>
<id>urn:uuid:1225c695-cfb8-4ebb-aaaa-80da344efa6a</id>
<updated>2003-12-13T18:30:02Z</updated>
<author><name>John Doe</name></author>
<content>Some text.</content>
</entry>
EOXML
ok($entry);
isa_ok($entry, 'Atomik::Entry');
is( $entry->title, "Atom-Powered Robots Run Amok" );
is( $entry->content->data, "Some text.");
}