From 00f79fecd09d71856aebc57a58debf37efb1dc78 Mon Sep 17 00:00:00 2001
From: "Paul Gauthier (aider)" <aider@paulg.org>
Date: Wed, 27 Nov 2024 06:51:53 -0800
Subject: [PATCH] test: enhance OCaml test case with module and type
 definitions

---
 tests/basic/test_repomap.py | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

diff --git a/tests/basic/test_repomap.py b/tests/basic/test_repomap.py
index 8380faeaa..88f6cf89d 100644
--- a/tests/basic/test_repomap.py
+++ b/tests/basic/test_repomap.py
@@ -451,8 +451,27 @@ module.exports = {
             ),
             "ocaml": (
                 "test.ml",
-                'let greet name =\n  Printf.printf "Hello, %s!\\n" name\n',
-                "greet",  # Key symbol to check
+                """(* Module definition *)
+module Greeter = struct
+  type person = {
+    name: string;
+    age: int
+  }
+
+  let create_person name age = 
+    {name; age}
+
+  let greet person =
+    Printf.printf "Hello, %s! You are %d years old.\\n" 
+      person.name person.age
+end
+
+(* Outside the module *)
+let () = 
+  let person = Greeter.create_person "Alice" 30 in
+  Greeter.greet person
+""",
+                "Greeter",  # Key symbol to check
             ),
             "php": (
                 "test.php",