print "1..1\n";

use strict;
use HTTP::OAI;

my $r = new HTTP::OAI::ListMetadataFormats();
my $mf = new HTTP::OAI::MetadataFormat(
	metadataPrefix=>'oai_dc',
	schema=>'http://www.openarchives.org/OAI/2.0/oai_dc.xsd',
	metadataNamespace=>'http://www.openarchives.org/OAI/2.0/oai_dc/',
);
$r->metadataFormat($mf);

print "ok 1\n";