#!/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');