Update fs.md

Co-Authored-By: Patrick Ferris <[email protected]>

Author: webbunivAdmin

tests/fs.md

@@ -18,7 +18,6 @@ open Eio.Std
 let ( / ) = Path.( / )
 
 let run ?clear:(paths = []) fn =
-  Eio_main.run @@ fun env ->
   let cwd = Eio.Stdenv.cwd env in
   List.iter (fun p -> Eio.Path.rmtree ~missing_ok:true (cwd / p)) paths;
   fn env
@@ -99,7 +98,6 @@ let try_chmod ~perm path =
   match Eio.Path.chmod ~perm path with
   | () -> Eio.traceln "chmod %o -> %a" perm Path.pp path
   | exception ex -> Eio.traceln "@[<h>%a@]" Eio.Exn.pp ex
-
 ```
 
 # Basic test cases
@@ -1017,33 +1015,3 @@ Exception: Failure "Simulated error".
 +"/" / "" = "/"
 - : unit = ()
 ```
-# Testing ``chmod`` 
-
-```ocaml
-let chmod_test_directory () =
-  run ~clear:["test-dir"] @@ fun env ->
-    let cwd = Eio.Stdenv.cwd env in
-    let dir_path = cwd / "test-dir" in
-
-    try_mkdir dir_path;
-
-    try_chmod ~perm:0o700 dir_path;
-    let dir_stat = Unix.stat "test-dir" in
-    Printf.printf "Directory permissions after chmod 0o700: %o\n" dir_stat.st_perm;
-    assert (dir_stat.st_perm = 0o700);
-
-    try_chmod ~perm:0o755 dir_path;
-    let dir_stat = Unix.stat "test-dir" in
-    Printf.printf "Directory permissions after chmod 0o755: %o\n" dir_stat.st_perm;
-    assert (dir_stat.st_perm = 0o755);
-
-    Unix.rmdir "test-dir";
-    ()
-
-let () =
-  Printf.printf "Running chmod tests...\n";
-  chmod_test_file ();
-  chmod_test_directory ();
-  Printf.printf "chmod tests completed successfully.\n"
-  
-```