From 5de3f7a3ad7b0cf63b4a6cbddfc1e26359dea161 Mon Sep 17 00:00:00 2001
From: polwex <polwex@sortug.com>
Date: Mon, 6 Oct 2025 23:18:59 +0700
Subject: cleaned up tests

---
 ocaml/test/test_dill_iris.ml | 98 --------------------------------------------
 1 file changed, 98 deletions(-)
 delete mode 100644 ocaml/test/test_dill_iris.ml

(limited to 'ocaml/test/test_dill_iris.ml')

diff --git a/ocaml/test/test_dill_iris.ml b/ocaml/test/test_dill_iris.ml
deleted file mode 100644
index ed974ae..0000000
--- a/ocaml/test/test_dill_iris.ml
+++ /dev/null
@@ -1,98 +0,0 @@
-(* Test Dill and Iris Drivers *)
-
-open Io_drivers
-
-let test_dill_creation _env =
-  Printf.printf "Test: Dill driver creation...\n";
-
-  let config = Dill.{
-    prompt = "~zod:dojo>";
-  } in
-
-  let dill = Dill.create config in
-  let stats = Dill.get_stats dill in
-
-  Printf.printf "  Created Dill driver with prompt: %s\n" config.prompt;
-  Printf.printf "  Initial stats - lines read: %Ld, written: %Ld\n"
-    stats.lines_read stats.lines_written;
-
-  assert (stats.lines_read = 0L);
-  assert (stats.lines_written = 0L);
-
-  Printf.printf "  ✓ Dill driver creation works!\n\n"
-
-let test_dill_output env =
-  Printf.printf "Test: Dill terminal output...\n";
-
-  let config = Dill.{
-    prompt = "~zod:dojo>";
-  } in
-
-  let dill = Dill.create config in
-
-  (* Write some output *)
-  Dill.write_output dill ~env "Hello from Dill!\n";
-  Dill.write_output dill ~env "Terminal output is working!\n";
-
-  let stats = Dill.get_stats dill in
-  Printf.printf "  Stats - lines written: %Ld, bytes written: %Ld\n"
-    stats.lines_written stats.bytes_written;
-
-  assert (stats.lines_written = 2L);
-
-  Printf.printf "  ✓ Terminal output works!\n\n"
-
-let test_iris_creation _env =
-  Printf.printf "Test: Iris driver creation...\n";
-
-  let iris = Iris.create () in
-  let stats = Iris.get_stats iris in
-
-  Printf.printf "  Created Iris HTTP client driver\n";
-  Printf.printf "  Initial stats - requests: %Ld, active: %d\n"
-    stats.requests_total stats.requests_active;
-
-  assert (stats.requests_total = 0L);
-  assert (stats.requests_active = 0);
-
-  Printf.printf "  ✓ Iris driver creation works!\n\n"
-
-let test_iris_url_parsing _env =
-  Printf.printf "Test: URL parsing...\n";
-
-  let test_cases = [
-    ("http://example.com/path", "example.com", "/path");
-    ("https://api.github.com/users", "api.github.com", "/users");
-    ("http://localhost", "localhost", "/");
-  ] in
-
-  List.iter (fun (url, expected_host, expected_path) ->
-    let (host, path) = Iris.parse_url url in
-    Printf.printf "  URL: %s -> host: %s, path: %s\n" url host path;
-    assert (host = expected_host);
-    assert (path = expected_path)
-  ) test_cases;
-
-  Printf.printf "  ✓ URL parsing works!\n\n"
-
-let () =
-  Printf.printf "\n🚀🚀🚀 === DILL & IRIS TESTS === 🚀🚀🚀\n\n";
-
-  Eio_main.run @@ fun env ->
-  test_dill_creation env;
-  test_dill_output env;
-  test_iris_creation env;
-  test_iris_url_parsing env;
-
-  Printf.printf "🎉🎉🎉 === ALL DILL & IRIS TESTS PASSED! === 🎉🎉🎉\n\n";
-  Printf.printf "Terminal and HTTP client drivers are working!\n";
-  Printf.printf "\nDill (Terminal):\n";
-  Printf.printf "- Driver creation ✓\n";
-  Printf.printf "- Terminal output ✓\n";
-  Printf.printf "- Async I/O ready for input fiber ✓\n";
-  Printf.printf "\nIris (HTTP Client):\n";
-  Printf.printf "- Driver creation ✓\n";
-  Printf.printf "- URL parsing ✓\n";
-  Printf.printf "- Async HTTP requests ready ✓\n";
-  Printf.printf "\n🎉 ALL I/O DRIVERS COMPLETE! 🎉\n";
-  Printf.printf "Ready to run a full Arvo kernel!\n"
-- 
cgit v1.2.3