TESTS: enhanced tests for issue 2319

metaeducation/rebol-issues#2319
Oldes · Sep 4, 2018 · 7dfe1af · 7dfe1af
1 parent 5ed43b4
commit 7dfe1af
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/tests/units/lexer-test.r3 b/src/tests/units/lexer-test.r3
@@ -20,6 +20,10 @@ do %../quick-test.r3
 	;above is now consistent with:
 	--test-- "sign-before-string"	--assert  [- "a"] = (load {-"a"})
 	--test-- "sign-before-block"	--assert  [- []] = (load {-[]})
+	;and can be used correctly in charsets
+	--test-- "lexer-charset-with-tight-range"
+		--assert "make bitset! #{0000000000000000000000007FFFFFE0}" = mold charset [#"a"-#"z"] ;this failed before fix of #2319
+		--assert "make bitset! #{0000000000000000000000007FFFFFE0}" = mold charset [#"a" - #"z"]
 
 ===end-group===