use Test::More tests => 8;
use strict;
use XML::Atom::Feed;
use XML::Atom::Ext::OpenSearch;
my @accessors = qw( totalResults startIndex itemsPerPage );
my $namespace = XML::Atom::Ext::OpenSearch->element_ns;
my $prefix = $namespace->{ prefix };
my $uri = $namespace->{ uri };
my $feed = XML::Atom::Feed->new;
# Test simple accessors
for ( @accessors ) {
$feed->$_( 2 );
is( $feed->$_, 2, $_ );
}
my $xml = $feed->as_xml;
# Test resulting XML
for ( @accessors ) {
like $xml, qr/<(?:\w+:)$_ xmlns:$prefix="$uri">/;
}
# Query test
my $query = XML::Atom::Ext::OpenSearch::Query->new;
$query->searchTerms( 'test' );
isa_ok( $query, 'XML::Atom::Ext::OpenSearch::Query' );
$feed->add_Query( $query );
like $feed->as_xml, qr/<(?:\w+:)Query xmlns:$prefix="$uri"/;