Commits

Seth Falcon  committed aabb5f8

Add a unit test for choose_media_type

  • Participants
  • Parent commits f3a025e

Comments (0)

Files changed (1)

File src/webmachine_util.erl

 -export([unquote_header/1]).
 -export([now_diff_milliseconds/2]).
 -export([media_type_to_detail/1]).
+-export([test/0]).
 
 convert_request_date(Date) ->
     try 
     ((S-S1) * 1000) + ((U-U1) div 1000);
 now_diff_milliseconds({M,S,U}, {M1,S1,U1}) ->
     ((M-M1)*1000000+(S-S1))*1000 + ((U-U1) div 1000).
+
+test() ->
+    test_choose_media_type(),
+    ok.
+
+test_choose_media_type() ->
+    Provided = "text/html",
+    ShouldMatch = ["*", "*/*", "text/*", "text/html"],
+    WantNone = ["foo", "text/xml", "application/*", "foo/bar/baz"],
+    [ Provided = choose_media_type([Provided], I) || I <- ShouldMatch ],
+    [ none = choose_media_type([Provided], I) || I <- WantNone ],
+    ok.