#!/bin/sh

if test -z "$MH_OBJ_DIR"; then
    srcdir=`dirname "$0"`/../..
    MH_OBJ_DIR=`cd "$srcdir" && pwd`; export MH_OBJ_DIR
fi

. "$MH_OBJ_DIR/test/common.sh"

# common.sh sets this to something crazy; did i do that?!
testname=${0#$srcdir/}

setup_test_without_data Mail

imap_cleanup() {
    #### Save exit status to use as status for this program.
    status=$?
    set +e

    rm -f "$imapd"

    [ -n "$imapd_pid" ] && kill $imapd_pid
    "$MH_OBJ_DIR/target/debug/mhimap" imap shutdown

    # TODO have cleanup allow additional cleanup registration?
    #  Or just allow it to accept status as argument.
    (exit $status)
    cleanup
}
trap imap_cleanup 0

covdir="$MH_OBJ_DIR/covdata/${MH_COVERAGE_PROFILE:-default}/$testname"
install -d "$covdir"
export LLVM_PROFILE_FILE="$covdir/$profile-%m.profraw"

imapd="$MH_TEST_DIR/$$.imapd"
start_fakeinetd "$imapd"
imapd_pid=$fakeinetd_pid

cat >> "$MH" <<EOF
Managed-Folders: imap
imap-manager: $MH_OBJ_DIR/target/debug/imap-folder-manager
imap-socket: $MH_TEST_DIR/Mail/imap.d/socket
imap-db: $MH_TEST_DIR/Mail/imap.d
imap-host: 127.0.0.1
imap-port: $fakeinetd_port
imap-tls: don't protect my data i know what i'm doing
imap-auth: PREAUTH
imap-mailbox-root: test/
EOF
if [ -n "$MH_TEST_IMAP_LOG_LEVEL" ]; then
    echo "imap-log-level: $MH_TEST_IMAP_LOG_LEVEL" >> "$MH"
    echo "imap-log-$MH_TEST_IMAP_LOG_LEVEL-to: $MH_TEST_DIR/$profile/imap.d/log.$MH_TEST_IMAP_LOG_LEVEL" >> "$MH"
fi

expected="$MH_TEST_DIR/$$.expected"
actual="$MH_TEST_DIR/$$.actual"

cat > "$imapd" <<EOSCRIPT
#!/bin/sh
cat <<EOF
* PREAUTH [CAPABILITY IMAP4REV1 UIDPLUS] authenticated
* LIST (\NoInferiors \UnMarked) "/" test/fold
1 OK LIST completed
* 6 EXISTS
* OK [UIDVALIDITY 1633920336] UID validity status
* OK [UIDNEXT 11] Predicted next UID
1 OK [READ-WRITE] SELECT for inc completed
* 2 FETCH (UID 6)
* 3 FETCH (UID 7)
* 4 FETCH (UID 8)
* 5 FETCH (UID 9)
* 6 FETCH (UID 10)
1 OK UID FETCH completed
* 2 FETCH (UID 6 FLAGS (\Seen) BODY[] {9}
from:me
)
f6 OK UID FETCH completed
* 3 FETCH (UID 7 FLAGS (\Seen) BODY[] {9}
from:me
)
f7 OK UID FETCH completed
* 4 FETCH (UID 8 FLAGS (\Seen) BODY[] {9}
from:me
)
f8 OK UID FETCH completed
* 5 FETCH (UID 9 FLAGS (\Seen) BODY[] {9}
from:me
)
f9 OK UID FETCH completed
* 6 FETCH (UID 10 FLAGS (\Seen) BODY[] {9}
from:me
)
f10 OK UID FETCH completed
* SEARCH 9
* SEARCH 7 6 10
* SEARCH 8
1 OK UID SEARCH completed
close OK CLOSE for inc completed
* 6 EXISTS
* OK [UIDVALIDITY 1633920336] UID validity status
* OK [UIDNEXT 11] Predicted next UID
1 OK [READ-WRITE] SELECT for scan completed
1 OK nothing for SEARCH NOT SEEN
close OK CLOSE for scan completed
EOF
while read line; do :; done
EOSCRIPT
chmod 755 "$imapd"

################################################################################
start_test 'out of order SEARCH response - inc'

check_exit '-eq 0' inc +imap

check_exit '-eq 0' "$MH_OBJ_DIR/target/debug/mhimap" imap check imap/fold

################################################################################
start_test 'out of order SEARCH response - scan finds all 5 messages'

cat > "$expected" <<EOF
   1  10/11*me                 
   2  10/11*me                 
   3  10/11*me                 
   4  10/11*me                 
   5  10/11*me                 
EOF
scan +imap/fold > "$actual"
check "$actual" "$expected"

finish_test
exit ${failed:-0}