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

imap: Use uuids instead of random numbers.

db4
Doug Coleman 2014-11-01 11:36:43 -07:00
parent c39f33ee67
commit 44e7c9b142
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,7 +1,7 @@
USING: accessors arrays assocs calendar calendar.format 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 uuid
splitting strings system tools.test memoize combinators.smart ; splitting strings system tools.test memoize combinators.smart ;
FROM: pcre => findall ; FROM: pcre => findall ;
IN: imap.tests IN: imap.tests
@ -37,12 +37,12 @@ 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 ) MEMO: my-uuid ( -- str )
10000 random number>string ; uuid1 ;
: test-folder ( s -- s ) : test-folder ( s -- s )
'[ '[
base-folder "/" my-random "/" _ base-folder "/" my-uuid "/" _
] "" append-outputs-as ; ] "" append-outputs-as ;
[ t ] [ [ t ] [