another MIME type prioritization test

mojolicious · Dec 14, 2012 · a4ac04b · a4ac04b
1 parent 2a0bfb7
commit a4ac04b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/lib/Mojolicious/Types.pm b/lib/Mojolicious/Types.pm
@@ -45,8 +45,8 @@ sub detect {
 
   # Detect extensions from MIME types
   my @exts;
+  my $types = $self->types;
   for my $type (@types) {
-    my $types = $self->types;
     for my $ext (sort keys %$types) {
       my @types = ref $types->{$ext} ? @{$types->{$ext}} : ($types->{$ext});
       $type eq $_ and push @exts, $ext for map { s/\;.*$//; lc $_ } @types;

diff --git a/t/mojolicious/types.t b/t/mojolicious/types.t
@@ -75,5 +75,7 @@ is_deeply $t->detect('TEXT/HTML;Q=0.8,text/plain;Q=0.9', 1),
   ['txt', 'htm', 'html'], 'right formats';
 is_deeply $t->detect(' TEXT/HTML , text/plain;Q=0.9', 1),
   ['htm', 'html', 'txt'], 'right formats';
+is_deeply $t->detect('text/plain;q=0.5, text/xml, application/xml;q=0.1', 1),
+  ['xml', 'txt', 'xml'], 'right formats';
 
 done_testing();