FIX: fixed TO-ITIME formating if time value parts are less than 10 and or time contains miliseconds

Author: Oldes

src/mezz/mezz-date.r

@@ -16,8 +16,8 @@ to-itime: func [
 	time [time! number! block! none!]
 ][
 	time: make time! time
-	format/pad [2 #":" 2 #":" 2] reduce [
-		time/hour  time/minute  round/down time/second
+	format/pad [-2 #":" -2 #":" -2] reduce [
+		time/hour  time/minute  to integer! time/second
 	] #"0"
 ]
 

src/tests/units/date-test.r3

@@ -109,6 +109,10 @@ Rebol [
 ===end-group===
 
 ===start-group=== "Internet date"
+	--test-- "TO-ITIME (Normalized time as used in TO-IDATE"
+		--assert "09:04:05" = to-itime 9:4:5
+		--assert "13:24:05" = to-itime 13:24:5.21
+
 	--test-- "TO-IDATE (Date to Internet date)"
 		--assert "Thu, 28 Mar 2019 20:00:59 +0100" = to-idate 28-Mar-2019/20:00:59+1:00
 		--assert "Thu, 28 Mar 2019 19:00:59 GMT" = to-idate/gmt 28-Mar-2019/20:00:59+1:00
@@ -121,6 +125,7 @@ Rebol [
 		--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"
 
+
 ===end-group===
 
 ~~~end-file~~~