good progress

1 files changed, 5 insertions, 2 deletions

diff --git a/ocaml/test/test_life_on_bot.ml b/ocaml/test/test_life_on_bot.ml
index 4aa1080..1625a53 100644
--- a/ocaml/test/test_life_on_bot.ml
+++ b/ocaml/test/test_life_on_bot.ml
@@ -7,14 +7,17 @@ let rec to_list acc noun =
   | Noun.Atom _ -> List.rev acc
   | Noun.Cell (item, rest) -> to_list (item :: acc) rest
 
-let test _env =
+let test env =
   Printf.printf "═══════════════════════════════════════\n";
   Printf.printf " Testing u3v_life on Bot Events\n";
   Printf.printf "═══════════════════════════════════════\n\n";
 
+  Eio.Switch.run @@ fun _sw ->
+  let fs = Eio.Stdenv.fs env in
+
   (* Cue the solid pill *)
   Printf.printf "Cuing solid.pill...\n%!";
-  let pill_bytes = Eio.Path.load (Eio.Path.("." / "solid.pill")) |> Bytes.of_string in
+  let pill_bytes = Eio.Path.load (Eio.Path.(fs / "solid.pill")) |> Bytes.of_string in
   let pill = Serial.cue pill_bytes in
   Printf.printf "✓ Pill cued\n\n";