#!/bin/sh

# Test astring handling.
# For now only in LIST response.
# Gmail encodes all mailbox names in quotes and embedded quotes like "foo \" bar"
# Panda encodes them using literals.

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

# TODO no need for xoauth in this test
. "${srcdir}/test/oauth/common.sh"

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

# coverage notes
# (
#     set -ex
#     . ~/.cargo/env
#     covdir="$builddir/test/covdata/${MH_COVERAGE_PROFILE:-default}/test/cargo"
#     install -d "$covdir"
#     export LLVM_PROFILE_FILE="$covdir/%m-%p.profraw"
#     export CARGO_TARGET_DIR=$builddir/target
#     export RUSTC_BOOTSTRAP=1
#     export RUSTFLAGS="-Zinstrument-coverage"
#     cargo t -- --test-threads=1
#     make cargo
#     MH_IMAP_TEST_SERVER=panda make check 'TESTS=test/imap/test-astring'
# )
#grcov .o/clang10 -s . --binary-path .o/clang10/target/debug/ -t html --branch --ignore-not-existing -o /coverage/default > covlog 2>&1

setup_test_without_data Mail

setup_service
fake_creds <<EOF
access-testuser: test-access
refresh-testuser: test-refresh
expire-testuser: 2000000000
EOF

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: SASL
imap-user: testuser
imap-saslmech: xoauth2
imap-authservice: 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/Mail/imap.d/log.$MH_TEST_IMAP_LOG_LEVEL" >> "$MH"
fi

# Test astring and nstring handling with some faked up but legal responses.
# I don't know whether any implementations return nil or quoted in these FETCH
# respones, but it is legal, so it's a fair test.
# TODO removed nstring testing for now

cat > "$imapd" <<EOSCRIPT
#!/bin/sh
cat <<EOF
* OK [CAPABILITY IMAP4REV1 SASL-IR AUTH=PLAIN AUTH=XOAUTH2] greeting
1 OK [CAPABILITY IMAP4REV1 UIDPLUS] authenticated
* LIST () "/" "embedded quote \" gmail style"
* LIST () "/" {28}
embedded quote " panda style
1 OK LIST completed
* 0 EXISTS
* OK [UIDVALIDITY 1603585238] UID validity status
* OK [UIDNEXT 1] Predicted next UID
1 OK [READ-WRITE] SELECT completed
1 OK ESEARCH
* 0 EXISTS
* OK [UIDVALIDITY 1603585238] UID validity status
* OK [UIDNEXT 1] Predicted next UID
* 7 FETCH ()
* 7 FETCH (UID 1 FLAGS (\Seen))
1 OK [READ-WRITE] SELECT completed
1 OK ESEARCH
EOF
while read line; do :; done
EOSCRIPT
chmod 755 "$imapd"

check_exit '-eq 0' inc +imap

finish_test
exit ${failed:-0}