#!/bin/sh

if [ -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"

setup_test_without_data

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

################################################################################
start_test 'ask protocol-tester to read too much'

check_exit '-eq 1' "$MH_OBJ_DIR/test/managed-folders/protocol-tester" message-len 1 < /dev/null

################################################################################
start_test 'len-only empty message'

echo 'len:6' > "$expected"

"$MH_OBJ_DIR/test/managed-folders/protocol-tester" message-len 0 < /dev/null > "$actual"
check "$expected" "$actual"

################################################################################
start_test '7 characters'

cat > "$expected" <<EOF
len:7

EOF

"$MH_OBJ_DIR/test/managed-folders/protocol-tester" message-len 1 > "$actual" <<EOF

EOF
check "$expected" "$actual"

################################################################################
start_test '8 characters'

cat > "$expected" <<EOF
len:8
.
EOF

"$MH_OBJ_DIR/test/managed-folders/protocol-tester" message-len 2 > "$actual" <<EOF
.
EOF
check "$expected" "$actual"

################################################################################
start_test '9 characters'

cat > "$expected" <<EOF
len:9
..
EOF

"$MH_OBJ_DIR/test/managed-folders/protocol-tester" message-len 3 > "$actual" <<EOF
..
EOF
check "$expected" "$actual"

################################################################################
start_test '7 characters'

cat > "$expected" <<EOF
len:11
...
EOF

"$MH_OBJ_DIR/test/managed-folders/protocol-tester" message-len 4 > "$actual" <<EOF
...
EOF
check "$expected" "$actual"

################################################################################
start_test '99 characters'

cat > "$expected" <<EOF
len:98
..........................................................................................
EOF

"$MH_OBJ_DIR/test/managed-folders/protocol-tester" message-len 91 > "$actual" <<EOF
..........................................................................................
EOF
check "$expected" "$actual"

################################################################################
start_test '100 characters'

cat > "$expected" <<EOF
len:99
...........................................................................................
EOF

"$MH_OBJ_DIR/test/managed-folders/protocol-tester" message-len 92 > "$actual" <<EOF
...........................................................................................
EOF
check "$expected" "$actual"

################################################################################
start_test '101 characters'

cat > "$expected" <<EOF
len:101
............................................................................................
EOF

"$MH_OBJ_DIR/test/managed-folders/protocol-tester" message-len 93 > "$actual" <<EOF
............................................................................................
EOF
check "$expected" "$actual"

################################################################################
start_test '102 characters'

cat > "$expected" <<EOF
len:102
.............................................................................................
EOF

"$MH_OBJ_DIR/test/managed-folders/protocol-tester" message-len 94 > "$actual" <<EOF
.............................................................................................
EOF
check "$expected" "$actual"

################################################################################
start_test '103 characters'

cat > "$expected" <<EOF
len:103
..............................................................................................
EOF

"$MH_OBJ_DIR/test/managed-folders/protocol-tester" message-len 95 > "$actual" <<EOF
..............................................................................................
EOF
check "$expected" "$actual"

################################################################################
start_test '104 characters'

cat > "$expected" <<EOF
len:104
...............................................................................................
EOF

"$MH_OBJ_DIR/test/managed-folders/protocol-tester" message-len 96 > "$actual" <<EOF
...............................................................................................
EOF
check "$expected" "$actual"

# TODO this is just a bunch of captured messages; don't need to keep all these

cat > $expected <<EOF
len:26
op:inc
folder:imap
EOF
$MH_OBJ_DIR/test/managed-folders/protocol-tester message-len 19 > $actual <<EOF
op:inc
folder:imap
EOF
check $expected $actual

cat > $expected <<EOF
len:42
op:pick
folder:imap/fold2
msgs:all
EOF
$MH_OBJ_DIR/test/managed-folders/protocol-tester message-len 35 > $actual <<EOF
op:pick
folder:imap/fold2
msgs:all
EOF
check $expected $actual

cat > $expected <<EOF
len:55
op:make-folder
folder:imap/imap356135249/drafts
EOF
$MH_OBJ_DIR/test/managed-folders/protocol-tester message-len 48 > $actual <<EOF
op:make-folder
folder:imap/imap356135249/drafts
EOF
check $expected $actual

cat > $expected <<EOF
len:53
op:make-folder
folder:imap/imap356135249/sent
EOF
$MH_OBJ_DIR/test/managed-folders/protocol-tester message-len 46 > $actual <<EOF
op:make-folder
folder:imap/imap356135249/sent
EOF
check $expected $actual

cat > $expected <<EOF
len:40
op:inc
folder:imap/imap356135249
EOF
$MH_OBJ_DIR/test/managed-folders/protocol-tester message-len 33 > $actual <<EOF
op:inc
folder:imap/imap356135249
EOF
check $expected $actual

cat > $expected <<EOF
len:57
op:pick
folder:imap/imap356135249/drafts
msgs:all
EOF
$MH_OBJ_DIR/test/managed-folders/protocol-tester message-len 50 > $actual <<EOF
op:pick
folder:imap/imap356135249/drafts
msgs:all
EOF
check $expected $actual

cat > $expected <<EOF
len:55
op:show
folder:imap/imap356135249/drafts
msgs:1
EOF
$MH_OBJ_DIR/test/managed-folders/protocol-tester message-len 48 > $actual <<EOF
op:show
folder:imap/imap356135249/drafts
msgs:1
EOF
check $expected $actual

cat > $expected <<EOF
len:55
op:pick
folder:imap/imap356135249/sent
msgs:all
EOF
$MH_OBJ_DIR/test/managed-folders/protocol-tester message-len 48 > $actual <<EOF
op:pick
folder:imap/imap356135249/sent
msgs:all
EOF
check $expected $actual

cat > $expected <<EOF
len:40
op:inc
folder:imap/imap356135249
EOF
$MH_OBJ_DIR/test/managed-folders/protocol-tester message-len 33 > $actual <<EOF
op:inc
folder:imap/imap356135249
EOF
check $expected $actual

cat > $expected <<EOF
len:53
op:show
folder:imap/imap356135249/sent
msgs:1
EOF
$MH_OBJ_DIR/test/managed-folders/protocol-tester message-len 46 > $actual <<EOF
op:show
folder:imap/imap356135249/sent
msgs:1
EOF
check $expected $actual

cat > $expected <<EOF
len:55
op:pick
folder:imap/imap356135249/sent
msgs:all
EOF
$MH_OBJ_DIR/test/managed-folders/protocol-tester message-len 48 > $actual <<EOF
op:pick
folder:imap/imap356135249/sent
msgs:all
EOF
check $expected $actual

cat > $expected <<EOF
len:55
op:pick
folder:imap/imap356135249/sent
msgs:all
EOF
$MH_OBJ_DIR/test/managed-folders/protocol-tester message-len 48 > $actual <<EOF
op:pick
folder:imap/imap356135249/sent
msgs:all
EOF
check $expected $actual

cat > $expected <<EOF
len:47
op:rmf
folder:imap/imap356135249/drafts
EOF
$MH_OBJ_DIR/test/managed-folders/protocol-tester message-len 40 > $actual <<EOF
op:rmf
folder:imap/imap356135249/drafts
EOF
check $expected $actual

finish_test
exit ${failed:-0}