TEST: include a few tests with known bitset! issues

Author: Oldes

src/tests/units/_known-issues_.r3

@@ -86,4 +86,83 @@ Rebol [
 
 ===end-group===
 
+
+===start-group=== "union"
+		
+	--test-- "u-1"
+		c1: charset "0123456789"
+		c2: charset [#"a" - #"z"]
+		u: "make bitset! #{000000000000FFC0000000007FFFFFE0}"
+		--assert u = mold union c1 c2
+		--assert u = mold union c2 c1
+
+	--test-- "u-2"
+		nd: charset [not #"0" - #"9"]
+		zero: charset #"0"
+		nd-zero: union nd zero
+		--assert not find nd #"0"
+		--assert not find nd #"1"
+		--assert find nd #"B"
+		--assert find nd #"}"
+
+	--test-- "u-3"
+		--assert find zero #"0"
+		--assert not find zero #"1"
+		--assert not find zero #"B"
+		--assert not find zero #"}"
+
+	--test-- "u-4"
+		--assert find nd-zero #"0"
+		--assert not find nd-zero #"1"
+		--assert find nd-zero #"B"
+		--assert find nd-zero #"}"
+	
+===end-group===
+
+===start-group=== "and"
+
+	--test-- "and-1"
+		c1: charset "b"
+		c2: charset "1"
+		u: "make bitset! #{00000000000000}"
+		--assert u = mold c1 and c2
+		--assert u = mold c2 and c1
+
+	--test-- "and-2"
+		c1: charset "b"
+		c2: charset "1"
+		c3: complement c1
+		u: "make bitset! [not #{FFFFFFFFFFFFBF}]"
+		--assert u = mold c3 and c2
+		--assert u = mold c2 and c3
+		u: "make bitset! [not #{FFFFFFFFFFFFFFFFFFFFFFFFFF}]"
+		--assert u = mold c1 and c3
+		c4: complement c2
+		--assert "make bitset! #{FFFFFFFFFFFFBF}" = mold c3 and c4
+
+===end-group===
+
+===start-group=== "xor"
+
+	--test-- "xor-1"
+		c1: charset "b"
+		c2: charset "1"
+		u: "make bitset! #{00000000000040000000000020}"
+		--assert u = mold c1 xor c2
+		--assert u = mold c2 xor c1
+
+	--test-- "xor-2"
+		c1: charset "b"
+		c2: charset "1"
+		c3: complement c1
+		u: "make bitset! [not bits #{00000000000040000000000020}]"
+		--assert u = mold c3 xor c2
+		--assert u = mold c2 xor c3
+		u: "make bitset! [not bits #{00000000000000000000000000}]"
+		--assert u = mold c1 xor c3
+		c4: complement c2
+		--assert "make bitset! #{00000000000040FFFFFFFFFFDF}" = mold c3 xor c4
+
+===end-group===
+
 ~~~end-file~~~