Prevent an assert failure on win32

by removing a unit test that does not work on win32 (because of bad path convention).

src/filenameExtras.ml

-(* Time-stamp: <modified the 05/02/2015 (at 17:31) by Erwan Jahier> *)
+(* Time-stamp: <modified the 26/02/2015 (at 09:49) by Erwan Jahier> *)
 
 
 let (to_list : string -> string list) =
@@ -55,11 +55,11 @@ let (simplify : string -> string) =
 
 
 (* A few unit tests *)
-let _ = 
+let _ = if os_type <> "Win32" then ( (* fails on win32 because of path *)
   assert(simplify "/home/name/dir/file" = "/home/name/dir/file");
   assert(simplify "/home/name/dir/../file" = "/home/name/file");
   assert(simplify "/home/name/dir/../../file" = "/home/file");
   assert(simplify "/home/./name/././././dir/.././../file" = "/home/file");
   assert(simplify "" = "./."); (* hum, that one is not simpler... *)
   assert(simplify "./a/b/../../../x" = "./../x")
-    
+)