1 files changed, 6 insertions, 0 deletions
diff --git a/src/test/test.ml b/src/test/test.ml
index ca74a9e..5d1d09c 100644
--- a/src/test/test.ml
+++ b/src/test/test.ml
@@ -17,6 +17,11 @@ let process (optional_line : string option) expected =
     | Ok response ->
       if String.equal response expected then
         ()
+            (*
+        (Printf.fprintf stdout "%s : %s OK \n%!"
+           line
+           expected)
+           *)
       else (
         error := 1;
         (Printf.fprintf stdout "%s : got %s / %s expected\n%!"
@@ -41,6 +46,7 @@ let tests =
   ; "abaissées",    "abEse(s)"
   ; "abaissera",    "abEs°Ra"
   ; "achat",        "aSa(t)"
+  ; "as",           "a(s)"
   ; "astiqué",      "astike"
   ; "casait",       "kazE(t)"
   ; "cassait",      "kasE(t)"