Merge pull request #7 from inhabitedtype/path_test

path_test: add tests for empty path strings

lib/dispatch.ml

@@ -60,9 +60,9 @@ let path_split path =
       List.rev result
   in
   match path with
-    "" -> []
+  | "" -> []
   | _ ->
-      if String.get path 0 = '/'
+    if String.get path 0 = '/'
       then loop 1 []
       else loop 0 []
 

lib_test/test_dispatch.ml

@@ -47,7 +47,18 @@ let empty () =
     @? begin match dispatch [] "/" with
        | Error _ -> true
        | _       -> false
-    end
+    end;
+  "an empty path string will get mapped to root"
+    @? begin match dispatch ["/", fun _ _ -> ()] "" with
+       | Ok () -> true
+       | _     -> false
+    end;
+  "an empty route path will match root"
+    @? begin match dispatch ["", fun _ _ -> ()] "/" with
+       | Ok () -> true
+       | _     -> false
+    end;
+;;
 
 let single () =
   let table = ["/", (fun ps p -> ((), ps, p))] in