TEST: Oldes/Rebol-issues#1041

Author: Oldes

src/tests/units/make-test.r3

@@ -83,4 +83,66 @@ Rebol [
 ===end-group===
 
 
+===start-group=== "make special"
+	--test-- "make types from none!"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/1041
+		--assert error? try [make end! none]
+		--assert not error? try [make unset! none]
+		--assert not error? try [make none! none]
+		--assert not error? try [make logic! none]
+		--assert error? try [make integer! none]
+		--assert error? try [make decimal! none]
+		--assert error? try [make percent! none]
+		--assert error? try [make money! none]
+		--assert error? try [make char! none]
+		--assert error? try [make pair! none]
+		--assert error? try [make tuple! none]
+		--assert error? try [make time! none]
+		--assert error? try [make date! none]
+		--assert error? try [make binary! none]
+		--assert error? try [make string! none]
+		--assert error? try [make file! none]
+		--assert error? try [make email! none]
+		--assert error? try [make ref! none]
+		--assert error? try [make url! none]
+		--assert error? try [make tag! none]
+		--assert error? try [make bitset! none]
+		--assert error? try [make image! none]
+		--assert error? try [make vector! none]
+		--assert error? try [make block! none]
+		--assert error? try [make paren! none]
+		--assert error? try [make path! none]
+		--assert error? try [make set-path! none]
+		--assert error? try [make get-path! none]
+		--assert error? try [make lit-path! none]
+		--assert error? try [make map! none]
+		--assert error? try [make datatype! none]
+		--assert error? try [make typeset! none]
+		--assert error? try [make word! none]
+		--assert error? try [make set-word! none]
+		--assert error? try [make get-word! none]
+		--assert error? try [make lit-word! none]
+		--assert error? try [make refinement! none]
+		--assert error? try [make issue! none]
+		--assert error? try [make native! none]
+		--assert error? try [make action! none]
+		--assert error? try [make rebcode! none]
+		--assert error? try [make command! none]
+		--assert error? try [make op! none]
+		--assert error? try [make closure! none]
+		--assert error? try [make function! none]
+		--assert error? try [make frame! none]
+		--assert error? try [make object! none]
+		--assert error? try [make module! none]
+		--assert error? try [make error! none]
+		--assert error? try [make task! none]
+		--assert error? try [make port! none]
+		--assert error? try [make gob! none]
+		--assert error? try [make event! none]
+		--assert error? try [make handle! none]
+		--assert error? try [make struct! none]
+		--assert error? try [make library! none]
+		--assert error? try [make utype! none]
+
+
 ~~~end-file~~~