Updated test.

ocaml-sys · Apr 18, 2024 · 7bfdf5c · 7bfdf5c
1 parent ff0e3fc
commit 7bfdf5c
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 9 deletions.
diff --git a/config/ppx.t/cond_module.ml b/config/ppx.t/cond_module.ml
@@ -1,24 +1,30 @@
-module type M = sig
+module type A = sig
   val best_band_in_the_world : string [@@cfg (value = "1")]
   val worst_band_in_the_world : string [@@cfg (value = "2")]
   val get_lower_case_band_name : string -> string [@@cfg (value = "2")]
   val get_upper_case_band_name : string -> string [@@cfg (value = "1")]
 end
 
-module O:M = struct
+module B:A = struct
   let best_band_in_the_world = "RUSH" [@@cfg (value = "1")]
   let worst_band_in_the_world = "Nickelback" [@@cfg (value = "2")]
   let get_lower_case_band_name name = name [@@cfg (value = "2")]
   let get_upper_case_band_name name = name [@@cfg (value = "1")]
 end
 
-module N : sig
+module C : sig
   val best_band_in_the_world : string [@@cfg (value = "1")]
   val worst_band_in_the_world : string [@@cfg (value = "2")]
 end  =  struct
   let best_band_in_the_world = "RUSH" [@@cfg (value = "1")]
   let worst_band_in_the_world = "Nickelback" [@@cfg (value = "2")]
 end 
 
-let rush () = N.best_band_in_the_world
-let nickelback () = N.worst_band_in_the_world [@@cfg (value = "2")]
+module D = struct
+  let best_band_in_the_world = "RUSH" [@@cfg (value = "1")]
+  let worst_band_in_the_world = "Nickelback" [@@cfg (value = "2")]
+end
+[@@cfg (value = "2")]
+
+let rush () = C.best_band_in_the_world
+let nickelback () = C.worst_band_in_the_world [@@cfg (value = "2")]
diff --git a/config/ppx.t/run.t b/config/ppx.t/run.t
@@ -168,16 +168,16 @@
       unsafe_string = false;
       cookies = []
     }]
-  module type M  =
+  module type A  =
     sig
       val best_band_in_the_world : string[@@cfg value = "1"]
       val get_upper_case_band_name : string -> string[@@cfg value = "1"]
     end
-  module O : M =
+  module B : A =
     struct
       let best_band_in_the_world = "RUSH"[@@cfg value = "1"]
       let get_upper_case_band_name name = name[@@cfg value = "1"]
     end 
-  module N : sig val best_band_in_the_world : string[@@cfg value = "1"] end =
+  module C : sig val best_band_in_the_world : string[@@cfg value = "1"] end =
     struct let best_band_in_the_world = "RUSH"[@@cfg value = "1"] end 
-  let rush () = N.best_band_in_the_world
+  let rush () = C.best_band_in_the_world