From 44e7c9b142ff9c28baedef82932f08f16072b612 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 1 Nov 2014 11:36:43 -0700 Subject: [PATCH] imap: Use uuids instead of random numbers. --- extra/imap/imap-tests.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/extra/imap/imap-tests.factor b/extra/imap/imap-tests.factor index afe5b3dd6a..def6654db3 100644 --- a/extra/imap/imap-tests.factor +++ b/extra/imap/imap-tests.factor @@ -1,7 +1,7 @@ USING: accessors arrays assocs calendar calendar.format combinators continuations destructors formatting fry grouping.extras imap 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 ; FROM: pcre => findall ; IN: imap.tests @@ -37,12 +37,12 @@ ERROR: no-imap-test-host ; : base-folder ( -- s ) os name>> cpu name>> "-" glue ; -MEMO: my-random ( -- str ) - 10000 random number>string ; +MEMO: my-uuid ( -- str ) + uuid1 ; : test-folder ( s -- s ) '[ - base-folder "/" my-random "/" _ + base-folder "/" my-uuid "/" _ ] "" append-outputs-as ; [ t ] [