     "ALL" "" search-mails
 ] imap-test
 
+: base-folder ( -- s )
+    os name>> cpu name>> "-" glue ;
+
+: test-folder ( s -- s )
+    [ base-folder "/" ] dip 3append ;
+
 ! Create delete select again.
 [ 0 ] [
-    "örjan" [ create-folder ] [ select-folder ] [ delete-folder ] tri
+    "örjan" test-folder
+    [ create-folder ] [ select-folder ] [ delete-folder ] tri
 ] imap-test
 
 ! Test list folders


! Rename folder
[ ] [
    "日本語" [ create-folder ] [
        "ascii-name" [ rename-folder ] [ delete-folder ] bi
    ] bi
] imap-test

! Create a folder hierarchy
[ t ] [
    "*" list-folders length
    "foo/bar/baz/日本語" [
        create-folder "*" list-folders length 4 - =
    ] [ delete-folder ] bi
] imap-test

! A gmail compliant way of creating a folder hierarchy.
[ ] [
    "foo/bar/baz/boo" "/" split { } [ suffix ] cum-map [ "/" join ] map
    [ [ create-folder ] each ] [ [ delete-folder ] each ] bi
] imap-test

[ ] [
    "örjan" {
        [ create-folder ]
        [ select-folder drop ]
        ! Append mail with a seen flag

USING: accessors arrays assocs calendar calendar.format
combinators continuations formatting fry grouping.extras imap
io.streams.duplex kernel math math.parser math.ranges
math.statistics namespaces random sequences sets sorting
splitting strings system tools.test ;
FROM: pcre => findall ;
IN: imap.tests

: random-ascii ( n -- str )
