#!/usr/bin/perl -w
#
# Test reporting warnings, errors and family.
#
use Test::More;
use strict;
use lib qw(. t);
BEGIN {plan tests => 25}
use MIME::Type;
my $a = MIME::Type->new(type => 'x-appl/x-zip', extensions => [ 'zip', 'zp' ]);
ok(defined $a);
is($a->type, 'x-appl/x-zip');
is($a->simplified, 'appl/zip');
is($a->simplified('text/plain'), 'text/plain');
is(MIME::Type->simplified('x-xyz/abc'), 'xyz/abc');
is($a->mainType, 'appl');
is($a->subType, 'zip');
ok(!$a->isRegistered);
my @ext = $a->extensions;
cmp_ok(scalar @ext, '==', 2);
is($ext[0], 'zip');
is($ext[1], 'zp');
is($a->encoding, 'base64');
ok($a->isBinary);
ok(not $a->isAscii);
my $b = MIME::Type->new(type => 'TEXT/PLAIN', encoding => '8bit');
ok(defined $b);
is($b->type, 'TEXT/PLAIN');
is($b->simplified, 'text/plain');
is($b->mainType, 'text');
is($b->subType, 'plain');
@ext = $b->extensions;
cmp_ok(scalar @ext, '==', 0);
is($b->encoding, '8bit');
ok(not $b->isBinary);
ok($b->isAscii);
ok($b->isRegistered);
my $c = MIME::Type->new(type => 'applications/x-zip');
ok(!$c->isRegistered);