fixed mediatypes

Signed-off-by: Matt Butcher <matt.butcher@microsoft.com>

Author: technosophos

mediatype.gr

@@ -4,7 +4,8 @@ import Option from "option"
 import Map from "map"
 import {lastIndexOf, reverse} from "./stringutil"
 
-let default_mt = "application/octet-stream"
+export let default_mt = "application/octet-stream"
+
 let mut mediatypes = Map.make()
 
 // Text formats

tests.gr

@@ -1,8 +1,9 @@
-import Env from "./env"
-import Util from "./stringutil"
 import String from "string"
 import Process from "sys/process"
 import File from "sys/file"
+import Env from "./env"
+import Util from "./stringutil"
+import Mediatype from "./mediatype"
 
 let mut totalErr = 0
 
@@ -36,5 +37,7 @@ expect(("a", "b"), Env.splitEnvVar("a=b"), "Env.splitEnvVar should parse")
 expect("gfedcba", Util.reverse("abcdefg"), "Util.reverse should reverse string")
 expect(Some(5), Util.lastIndexOf("..", "aaaa.."), "UtillastIndexOf should find Some")
 expect(None, Util.lastIndexOf("??", "aaaa.."), "Util.lastIndexOf should find None")
+expect("text/plain", Mediatype.guess("foo.txt"), "Mediatype.guess should find text/plain")
+expect("application/octet-stream", Mediatype.guess("foo.MADEUP"), "Mediatype.guess should find default type")
 
 report()