TEST: selection from a cleared map

Oldes · Mar 18, 2024 · 3bc1773 · 3bc1773
1 parent 164a3fa
commit 3bc1773
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/tests/units/map-test.r3 b/src/tests/units/map-test.r3
@@ -237,6 +237,15 @@ Rebol [
 		--assert not (m !== m)
 		--assert "" !== m
 
+	--test-- "select from cleared map"
+		m: make map! 50
+		--assert none? select m 'a
+		m/a: 1
+		--assert 1 == select m 'a
+		clear m
+		--assert none? select m 'a
+
+
 ===end-group===