Merge pull request #259 from CraigFe/dont-escape-period

Allow period character to appear unescaped in test names
mirage · Jul 14, 2020 · d16d77a · d16d77a
2 parents 2898f23 + a3c531f
commit d16d77a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/alcotest-engine/model.ml b/src/alcotest-engine/model.ml
@@ -16,7 +16,8 @@ let escape str =
     | `Uchar u ->
         if Uchar.is_char u then
           match Uchar.to_char u with
-          | ('A' .. 'Z' | 'a' .. 'z' | '0' .. '9' | '_' | '-' | ' ') as c ->
+          | ('A' .. 'Z' | 'a' .. 'z' | '0' .. '9' | '_' | '-' | ' ' | '.') as c
+            ->
               Buffer.add_char buf c
           | _ -> add_codepoint buf u
         else add_codepoint buf u