FIX: improved doc-string for round/to action and added a few related unit tests

Fixes: metaeducation/rebol-issues#1470

Author: Oldes

src/boot/actions.r

@@ -94,7 +94,7 @@ round: action [
 	{Rounds a numeric value; halves round up (away from zero) by default.}
 	value [number! pair! money! time!] "The value to round"
 	/to "Return the nearest multiple of the scale parameter"
-	scale [number! money! time!] "Must be a non-zero value"
+	scale [number! money! time!] "Must be a non-zero value (result will be of this type)"
 	/even      "Halves round toward even results"
 	/down      "Round toward zero, ignoring discarded digits. (truncate)"
 	/half-down "Halves round toward zero"

src/tests/run-tests.r3

@@ -13,6 +13,8 @@ dt [ ;- delta time
 	wrap load %units/enbase-test.r3
 	wrap load %units/map-test.r3
 	wrap load %units/integer-test.r3
+	wrap load %units/decimal-test.r3
+	wrap load %units/money-test.r3
 	wrap load %units/power-test.r3
 	wrap load %units/mezz-crypt-test.r3
 	wrap load %units/rc4-test.r3

src/tests/units/decimal-test.r3

@@ -0,0 +1,58 @@
+Rebol [
+	Title:   "Rebol3 decimal test script"
+	Author:  "Oldes, Peter W A Wood"
+	File: 	 %decimal-test.r3
+	Tabs:	 4
+	Needs:   [%../quick-test-module.r3]
+]
+
+
+~~~start-file~~~ "decimal"
+
+===start-group=== "round"
+	--test-- "round"
+	--assert  1.0 = round  1.4999
+	--assert  2.0 = round  1.5
+	--assert -2.0 = round -1.5
+
+	--test-- "round/to (decimal)"
+	--assert 1.375 = round/to 1.333 .125
+	--assert 1.33  = round/to 1.333 .01
+
+	--test-- "round/to (integer)"
+	--assert     1 = round/to 0.5   1
+	--assert     0 = round/to 0.499 1
+	--assert integer? round/to 0.5  1
+
+	--test-- "round/to (money)"
+	--assert   $1 = round/to 0.5   $1
+	--assert   $0 = round/to 0.499 $1
+	--assert money? round/to 0.5   $1
+
+	--test-- "round/down"
+	--assert  1.0 = round/down  1.999
+	--assert -1.0 = round/down -1.999
+
+	--test-- "round/even"
+	--assert  2.0 = round/even  1.5
+	--assert -2.0 = round/even -1.5
+
+	--test-- "round/half-down"
+	--assert  1.0 = round/half-down  1.5
+	--assert -1.0 = round/half-down -1.5
+
+	--test-- "round/floor"
+	--assert  1.0 = round/floor  1.999
+	--assert -2.0 = round/floor -1.0000001
+
+	--test-- "round/ceiling"
+	--assert  2.0 = round/ceiling  1.0000001
+	--assert -1.0 = round/ceiling -1.999
+
+	--test-- "round/half-ceiling"
+	--assert  2.0 = round/half-ceiling  1.5
+	--assert -1.0 = round/half-ceiling -1.5
+
+===end-group===
+	
+~~~end-file~~~

src/tests/units/integer-test.r3

@@ -1,14 +1,11 @@
 Rebol [
 	Title:   "Rebol3 integer test script"
 	Author:  "Oldes, Peter W A Wood"
-	File: 	 %enbase-test.r3
+	File: 	 %integer-test.r3
 	Tabs:	 4
 	Needs:   [%../quick-test-module.r3]
 ]
 
-;; These supplement the bulk of the integer tests which are automatically
-;; generated.
-
 ~~~start-file~~~ "integer"
 
 ===start-group=== "shift op!"

src/tests/units/money-test.r3

@@ -0,0 +1,58 @@
+Rebol [
+	Title:   "Rebol3 money test script"
+	Author:  "Oldes, Peter W A Wood"
+	File: 	 %money-test.r3
+	Tabs:	 4
+	Needs:   [%../quick-test-module.r3]
+]
+
+
+~~~start-file~~~ "money"
+
+===start-group=== "round"
+	--test-- "round"
+	--assert  $1 = round  $1.4999
+	--assert  $2 = round  $1.5
+	--assert -$2 = round -$1.5
+
+	--test-- "round/to"
+	--assert $1.375 = round/to $1.333 $.125
+	--assert $1.33  = round/to $1.333 $.01
+	--assert     $1 = round/to $0.5   $1
+	--assert     $0 = round/to $0.499 $1
+
+	--test-- "round/to (decimal)"
+	--assert 1.375 = round/to $1.333 .125
+	--assert 1.33  = round/to $1.333 .01
+
+	--test-- "round/to (integer)"
+	--assert     1 = round/to $0.5   1
+	--assert     0 = round/to $0.499 1
+
+	--test-- "round/down"
+	--assert  $1 = round/down  $1.999
+	--assert -$1 = round/down -$1.999
+
+	--test-- "round/even"
+	--assert  $2 = round/even  $1.5
+	--assert -$2 = round/even -$1.5
+
+	--test-- "round/half-down"
+	--assert  $1 = round/half-down  $1.5
+	--assert -$1 = round/half-down -$1.5
+
+	--test-- "round/floor"
+	--assert  $1 = round/floor  $1.999
+	--assert -$2 = round/floor -$1.0000001
+
+	--test-- "round/ceiling"
+	--assert  $2 = round/ceiling  $1.0000001
+	--assert -$1 = round/ceiling -$1.999
+
+	--test-- "round/half-ceiling"
+	--assert  $2 = round/half-ceiling  $1.5
+	--assert -$1 = round/half-ceiling -$1.5
+
+===end-group===
+	
+~~~end-file~~~