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

imap: linux-x64.64/foo existed, so we couldn't delete linux-x64.64/ for some reason. 

Delete like crazypeople.
Memoize _my_ random number. Hopefully tests are robust now?
db4
Doug Coleman 2014-10-31 22:39:16 -07:00
parent e6dac7f0e3
commit d5ad435914
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
extra/imap/imap-tests.factor
View File

@ -2,7 +2,7 @@ USING: accessors arrays assocs calendar calendar.format
combinators continuations destructors formatting fry grouping.extras imap combinators continuations destructors formatting fry grouping.extras imap
imap.private io.streams.duplex kernel math math.parser math.ranges imap.private io.streams.duplex kernel math math.parser math.ranges
math.statistics namespaces random sequences sets sorting math.statistics namespaces random sequences sets sorting
splitting strings system tools.test ; splitting strings system tools.test memoize combinators.smart ;
FROM: pcre => findall ; FROM: pcre => findall ;
IN: imap.tests IN: imap.tests
@ -37,8 +37,13 @@ ERROR: no-imap-test-host ;
: base-folder ( -- s ) : base-folder ( -- s )
os name>> cpu name>> "-" glue ; os name>> cpu name>> "-" glue ;
MEMO: my-random ( -- str )
10000 random number>string ;
: test-folder ( s -- s ) : test-folder ( s -- s )
[ base-folder "/" ] dip 3append ; '[
base-folder "/" my-random "/" _
] "" append-outputs-as ;
[ t ] [ [ t ] [
get-test-host <imap4ssl> [ duplex-stream? ] with-disposal get-test-host <imap4ssl> [ duplex-stream? ] with-disposal
@ -60,6 +65,12 @@ ERROR: no-imap-test-host ;
! Try to reset test folder before starting tests ! Try to reset test folder before starting tests
[ ] [ [ ] [
[ "foo/bar/baz/日本語" test-folder delete-folder ] ignore-errors
[ "foo/bar/baz/boo" test-folder delete-folder ] ignore-errors
[ "foo/bar/baz" test-folder delete-folder ] ignore-errors
[ "foo/bar" test-folder delete-folder ] ignore-errors
[ "foo" test-folder delete-folder ] ignore-errors
[ "örjan" test-folder delete-folder ] ignore-errors
[ base-folder delete-folder ] ignore-errors [ base-folder delete-folder ] ignore-errors
] imap-test ] imap-test