FIX: not truncating random time to seconds only

resolves: Oldes/Rebol-issues#911
Oldes · May 4, 2021 · e868dba · e868dba
1 parent a264a69
commit e868dba
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 1 deletion.
diff --git a/src/core/t-time.c b/src/core/t-time.c
@@ -532,7 +532,7 @@
 				Set_Random(secs);
 				return R_UNSET;
 			}
-			secs = Random_Range(secs / SEC_SEC, D_REF(3)) * SEC_SEC;
+			secs = Random_Range(secs, D_REF(3));
 			goto fixTime;
 
 		case A_PICK:

diff --git a/src/tests/units/time-test.r3 b/src/tests/units/time-test.r3
@@ -103,6 +103,19 @@ Rebol [
 
 ===end-group===
 
+===start-group=== "random"
+	--test-- "random time!"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/911
+		t: random 0:0:0.10
+		--assert all [t > 0:0 t < 0:0:0.10]
+		t: random 1:0:0
+		--assert all [t > 0:0 t < 1:0:0]
+
+
+===end-group===
+
+
+
 ;===start-group=== "time protect"
 ;	;@@ https://github.com/Oldes/Rebol-issues/issues/2416
 ;	--test-- "time protect 1"