humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix failing tests for escaping regex metacharacters

Browse Source
This commit is contained in:
Humza Shahid
2025-10-09 06:22:21 +01:00
parent 8bd8977027
commit 3197315478
3 changed files with 9 additions and 195 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
test/regex-tests.sml
View File

@@ -174,7 +174,7 @@ struct
, test "recognises [" (fn _ =>
recogniseEscapeSequence ("\\[", "hello [ world"))
, test "recognises ]" (fn _ =>
recogniseEscapeSequence ("\\[", "hello ] world"))
recogniseEscapeSequence ("\\]", "hello ] world"))
, test "recognises +" (fn _ =>
recogniseEscapeSequence ("\\+", "hello + world"))
, test "recognises |" (fn _ =>
@@ -201,8 +201,6 @@ struct
doesNotRecogniseUnescaped ("|", "hello | world"))
, test "does not recognise ?" (fn _ =>
doesNotRecogniseUnescaped ("?", "hello ? world"))
, test "does not recognise ." (fn _ =>
doesNotRecogniseUnescaped (".", "hello . world"))
, test "does not recognise -" (fn _ =>
doesNotRecogniseUnescaped ("-", "hello - world"))
]