# HG changeset patch
# User orbitz <orbitz@gmail.com>
# Date 1493977842 -7200
#      Fri May 05 11:50:42 2017 +0200
# Node ID 484492016a1bd3516dec722daf569657c1020ce3
# Parent  009bbe1ba1c72e6b22d79a62b989e6cab70d6c93
ADD Add invalid comment test

diff --git a/tests/snabela/test.ml b/tests/snabela/test.ml
--- a/tests/snabela/test.ml
+++ b/tests/snabela/test.ml
@@ -429,6 +429,14 @@
        let ret = Snabela.apply compile kv in
        assert (ret = Error (`Missing_key ("name", 3))))
 
+let test_apply_fail11 =
+  Oth.test
+    ~name:"Apply Fail: Malformed Comment"
+    (fun _ ->
+       let template = "@The difference between a valid comment @ and premature closed is subtle@" in
+       let t = Snabela.Template.of_utf8_string template in
+       assert (t = Error (`Invalid_replacement 1)))
+
 let test_transformer1 =
   Oth.test
     ~name:"Transformer: Capitalize"
@@ -497,6 +505,7 @@
     ; test_apply_fail8
     ; test_apply_fail9
     ; test_apply_fail10
+    ; test_apply_fail11
     ; test_transformer1
     ; test_transformer2
     ]