#!/usr/bin/env perl
#
# Test httpAccept()
#

use strict;
use warnings;

use Test::More tests => 9;

use lib qw(lib t);

use MIME::Types;

my $a = MIME::Types->new;
ok(defined $a);

# simpelest case
my @t1 = $a->httpAccept('text/html');
cmp_ok(scalar @t1, '==', 1, 'simpelest case');
is($t1[0], 'text/html');

# more than one
my @t2 = $a->httpAccept('text/html, text/aap, text/noot');
cmp_ok(scalar @t2, '==', 3, 'more than one');
is($t2[0], 'text/html', 'order must be kept');
is($t2[1], 'text/aap');
is($t2[2], 'text/noot');

# with quality

my @t3 = $a->httpAccept('*/*, text/*,text/aap, text/noot;q=3, text/mies;q=0.1');
cmp_ok(scalar @t3, '==', 5, 'quality');
is(join('#',@t3), 'text/noot#text/aap#text/*#*/*#text/mies');