#!/usr/bin/perl -w

use Test::More tests => 7;
use Test::Warn;

use_ok 'Archive::Any';

isa_ok( Archive::Any->new('t/naughty.tar', 'tar'), 'Archive::Any' );

# Recognizes tar files with weird extensions
isa_ok( Archive::Any->new('t/naughty.hominawoof'), 'Archive::Any' );

warning_like {
    ok( !Archive::Any->new('t/naughty.tar', 'hominawoof') );
} qr{No mime type found for type 'hominawoof'}, "right warning, unknown type";

warning_like {
    ok( !Archive::Any->new('t/garbage.foo' ) );
} qr{No handler available for type 'text/plain'}, "right warning, no type";