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

Add failing test

db4
Slava Pestov 2008-02-26 15:22:49 -06:00
parent d143eedb68
commit 0c98551677
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
extra/calendar/calendar-tests.factor
View File

@ -161,3 +161,19 @@ continuations system io.streams.string ;
[ 1+1/2 ] [ [ 1+1/2 ] [
"+01:30" [ read-rfc3339-gmt-offset ] with-string-reader "+01:30" [ read-rfc3339-gmt-offset ] with-string-reader
] unit-test ] unit-test
: check+dt now dup clone [ rot +dt drop ] keep = ;
[ t ] [ 5 seconds check+dt ] unit-test
[ t ] [ 5 minutes check+dt ] unit-test
[ t ] [ 5 hours check+dt ] unit-test
[ t ] [ 5 days check+dt ] unit-test
[ t ] [ 5 weeks check+dt ] unit-test
[ t ] [ 5 months check+dt ] unit-test
[ t ] [ 5 years check+dt ] unit-test