FIX: TO-DATA allow string date representation with day represented in one char only too

Author: Oldes

src/mezz/mezz-date.r

@@ -61,9 +61,9 @@ to-date: wrap [
 			any [string? value binary? value]
 			parse value [
 				5 skip
-				copy day:   2 digit	space
-				copy month: 3 alpha	space
-				copy year:  4 digit space
+				copy day:   1 2 digit space
+				copy month:   3 alpha space
+				copy year:  1 4 digit space
 				copy time: to space space
 				copy zone: to end
 			]

src/tests/units/date-test.r3

@@ -124,6 +124,7 @@ Rebol [
 		--assert 28-Mar-2019/0:00 = to-date "Thu, 28 Mar 2019 00:00:00 +0000"
 		--assert 28-Mar-2019/0:00 = to-date to-binary "Thu, 28 Mar 2019 00:00:00 +0000"
 		--assert 4-Apr-2019/19:41:46 = to-date "Thu, 04 Apr 2019 19:41:46 GMT"
+		--assert 1-Apr-2019/21:50:04 = to-date "Mon, 1 Apr 2019 21:50:04 GMT"
 
 
 ===end-group===