use strict;

use warnings;

use Test::More qw(no_plan);

BEGIN { use_ok('Encode::Detect::Detector') }

our $d;

ok($d = new Encode::Detect::Detector, 'new');

can_ok('Encode::Detect::Detector', 'detect');

can_ok($d, qw(handle getresult DESTROY));

is($d->handle("\x82\xb7\x82\xb2\x82\xa2\x82\xcc\x82\xdd\x82\xc2"), 0, 'handle');

$d->eof;

is($d->getresult, "Shift_JIS", 'getresult');

is(detect("j\xc2\x92aimerais"), "UTF-8", 'detect');