From df92da631e9a10a099a72ba846f90adf99d180df Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Tue, 24 Aug 2021 15:04:25 +0200
Subject: Added pre-processing

---
 src/test/test.ml | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/test/test.ml')

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)"
-- 
cgit v1.2.3