From: David Levine <levinedl@acm.org>
Date: Thu, 24 Jan 2013 01:20:40 +0000 (-0600)
Subject: Brought over changes to test-pop from m_getfld branch.
X-Git-Url: https://diplodocus.org/git/nmh/commitdiff_plain/a6cae3aa524fd8517f50bd6a7602d06faa669632?hp=--cc

Brought over changes to test-pop from m_getfld branch.
---

a6cae3aa524fd8517f50bd6a7602d06faa669632
diff --git a/test/inc/test-pop b/test/inc/test-pop
index 580f0cda..7724ae3c 100755
--- a/test/inc/test-pop
+++ b/test/inc/test-pop
@@ -56,8 +56,24 @@ run_test "inc -user ${TESTUSER} -host 127.0.0.1 -port $testport -width 80" \
 	"Incorporating new mail into inbox...
 
   11+ 12/17 No Such User       Hello<<Hey man, how's it going? . Hope you're do"
+check $testmessage `mhpath +inbox 11` 'keep first'
 
-check `mhpath +inbox 11` $testmessage
-rm -f $testmessage "$netrc"
+# check -pack
+pid=`"${MH_OBJ_DIR}/test/fakepop" "$testmessage" "$testport" \
+			"$TESTUSER" "$TESTPASS"`
+
+touch "$MH_TEST_DIR/inc.mbox"
+run_test "inc -user ${TESTUSER} -host 127.0.0.1 -port $testport -width 80 \
+          -pack $MH_TEST_DIR/inc.mbox" \
+	"Incorporating new mail into (null)...
+
+   1  12/17 No Such User       Hello<<Hey man, how's it going? . Hope you're do"
+run_test "inc -file $MH_TEST_DIR/inc.mbox -truncate" \
+	"Incorporating new mail into inbox...
+
+  11+ 12/17 No Such User       Hello<<Hey man, how's it going? . Hope you're do"
+
+check $testmessage `mhpath +inbox 11`
+rm -f "$MH_TEST_DIR/inc.mbox" "$MH_TEST_DIR/.inc.map" "$netrc"
 
 exit ${failed:-0}