tests: Coverage improvements

Signed-off-by: Kakadu <Kakadu@pm.me>
Kakadu · May 9, 2023 · 4480ad2 · 4480ad2
1 parent ce1e168
commit 4480ad2
Show file tree

Hide file tree

Showing 4 changed files with 15 additions and 5 deletions.
diff --git a/src/Dune_project.ml b/src/Dune_project.ml
@@ -11,15 +11,15 @@ type module_ =
   ; cmt : string option
   ; cmti : string option
   }
-[@@deriving sexp]
+[@@deriving of_sexp]
 
 type executables =
   { names : string list
   ; modules : module_ list
   ; requires : string list
   ; include_dirs : string list
   }
-[@@deriving sexp]
+[@@deriving of_sexp]
 
 module Library = struct
   type t =
@@ -31,12 +31,12 @@ module Library = struct
     ; modules : module_ list
     ; include_dirs : string list
     }
-  [@@deriving sexp]
+  [@@deriving of_sexp]
 end
 
 type t =
   | Executables of executables
   | Library of Library.t
   | Root of string
   | Build_context of string
-[@@deriving sexp]
+[@@deriving of_sexp]
diff --git a/src/untyped/Dollar.ml b/src/untyped/Dollar.ml
@@ -8,7 +8,7 @@ open Format
 open Zanuda_core
 open Utils
 
-let is_camel_case s = String.(lowercase s <> s)
+(* let is_camel_case s = String.(lowercase s <> s) *)
 let lint_id = "camel_extra_dollar"
 let lint_source = LINT.FPCourse
 let level = LINT.Warn

diff --git a/tests/untyped/dollar.t/dollar.ml b/tests/untyped/dollar.t/dollar.ml
@@ -2,3 +2,5 @@ type t = { field : int }
 let pp : t -> unit = fun _ -> ()
 let f =
   pp @@ { field = 1 };;
+let _ = string_of_int @@ 4
+let _ = string_of_int @@ max_int
diff --git a/tests/untyped/dollar.t/run.t b/tests/untyped/dollar.t/run.t
@@ -4,3 +4,11 @@
   4 |   pp @@ { field = 1 };;
         ^^^^^^^^^^^^^^^^^^^
   Alert zanuda-linter: Extranous `@@`.
+  File "dollar.ml", line 5, characters 8-26:
+  5 | let _ = string_of_int @@ 4
+              ^^^^^^^^^^^^^^^^^^
+  Alert zanuda-linter: Extranous `@@`.
+  File "dollar.ml", line 6, characters 8-32:
+  6 | let _ = string_of_int @@ max_int
+              ^^^^^^^^^^^^^^^^^^^^^^^^
+  Alert zanuda-linter: Extranous `@@`.