TEST: added test for crash situation described (and fixed) in this commit: zsx@cc625be

Author: Oldes

src/tests/run-tests.r3

@@ -17,4 +17,6 @@ wrap load %units/rsa-test.r3
 wrap load %units/dh-test.r3
 wrap load %units/port-test.r3
 
+wrap load %units/crash-test.r3
+
 ***end-run***

src/tests/units/crash-test.r3

@@ -0,0 +1,28 @@
+Rebol [
+	Title:   "Rebol3 crash test script"
+	Author:  "Oldes, Peter W A Wood"
+	File: 	 %dh-test.red
+	Tabs:	 4
+	Needs:   [%../quick-test-module.r3]
+]
+
+~~~start-file~~~ "Crash tests"
+
+===start-group=== "Series crashes"
+
+--test-- "DH keys generation"
+	;@@ situation fixed in: https://github.com/zsx/r3/commit/cc625bebcb6038b9282876954f929c9d80048d2b
+
+	a: copy ""
+	insert/dup a #"a" to integer! #10ffff
+	take/part a 3
+	take/part a to integer! #f0010
+
+	insert/dup a #"b" 10
+	a: 1    ;force a to recycle
+	recycle ;@@ <-- it was crashing here
+	--assert 1 = a
+
+===end-group===
+
+~~~end-file~~~