1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Test::Fatal;
BEGIN {
use_ok('Web::Machine::Util', 'pair_key');
use_ok('Web::Machine::Util::ContentNegotiation', 'match_acceptable_media_type');
}
is(
pair_key(
match_acceptable_media_type(
'application/json',
[ { 'application/json' => sub {} } ],
)
),
'application/json',
'... matched type'
);
is(
pair_key(
match_acceptable_media_type(
'application/json',
[ { 'text/html' => sub {} }, { 'text/xml' => sub {} }, { '*/*' => sub {} } ],
)
),
'*/*',
'... matched type'
);
done_testing;
|
