use Test::More tests => 3;

use strict;
use warnings;

use HTTP::OAI;

my $ha = HTTP::OAI::Harvester->new( baseURL => 'file:///' );

ok(defined $ha);

my $r = "HTTP::OAI::GetRecord"->new(
	harvestAgent => $ha,
	resume => $ha->resume,
);

$HTTP::OAI::UserAgent::SILENT_BAD_CHARS = 1;

$r = $ha->request(
	HTTP::Request->new( GET => 'file:examples/badbytes.xml' ),
	undef, # arg
	undef, # size
	undef, # previous
	$r
);

ok($r->is_success);

ok(1);