steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

calendar.format: allow space or tabs in rfc3339

db4
Jon Harper 2014-06-01 15:48:06 +02:00
parent 5d17cfd385
commit 278fe4830f
2 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
basis/calendar/format/format-tests.factor
View File

@ -94,3 +94,25 @@ IN: calendar.format.tests
{ second 24 } { second 24 }
} }
] [ "2013-04-23T13:50:24" rfc3339>timestamp ] unit-test ] [ "2013-04-23T13:50:24" rfc3339>timestamp ] unit-test
[
T{ timestamp
{ year 2001 }
{ month 12 }
{ day 15 }
{ hour 02 }
{ minute 59 }
{ second 43+1/10 }
}
] [ "2001-12-15 02:59:43.1Z" rfc3339>timestamp ] unit-test
[
T{ timestamp
{ year 2001 }
{ month 12 }
{ day 15 }
{ hour 02 }
{ minute 59 }
{ second 43+1/10 }
}
] [ "2001-12-15 02:59:43.1Z" rfc3339>timestamp ] unit-test

2
basis/calendar/format/format.factor
View File

@ -171,7 +171,7 @@ M: timestamp year. ( timestamp -- )
: (rfc3339>timestamp) ( -- timestamp ) : (rfc3339>timestamp) ( -- timestamp )
read-ymd read-ymd
"Tt" expect "Tt \t" expect
read-hms read-hms
read1 { { CHAR: . [ read-rfc3339-seconds ] } [ ] } case read1 { { CHAR: . [ read-rfc3339-seconds ] } [ ] } case
read-rfc3339-gmt-offset read-rfc3339-gmt-offset