1use Plack::MIME; 2use Test::More; 3 4sub x($) { Plack::MIME->mime_type($_[0]) } 5 6is x ".gif", "image/gif"; 7is x "foo.png", "image/png"; 8is x "foo.GIF", "image/gif"; 9is x "foo.bar", undef; 10is x "foo.mp3", "audio/mpeg"; 11 12done_testing; 13