tests for regex

tests/data/string.ccl

@@ -24,3 +24,19 @@ affix(["psi", "pies"], 0)
 
 ["pies", "psi"]
 ---
+regex(["ökonomisch", "ökologisch", "oko", "okoń", "ok"], "\\p{Ll}+")
+
+True
+---
+regex(["ökonomisch", "ökologisch", "okoŃ", "okoń", "ok"], "\\p{Ll}+")
+
+False
+---
+regex(["SCHLÜSSEL.", "OKOŃ;", "ŹDŹBŁO:"], "\\p{Lu}+\\p{P}")
+
+True
+---
+regex(["SCHLÜSSEL.", "OKOń;", "ŹDŹBŁO:"], "\\p{Lu}+\\p{P}")
+
+False
+---