Replace getcpy() with mh_xstrdup() where the string isn't NULL.

[nmh] / test / scan / test-header-parsing

diff --git a/test/scan/test-header-parsing b/test/scan/test-header-parsing
index 093d6772e0ddc960a1b0e7364bb7d69257bd7a34..37b3b04803c38c127188a5fee56d66849e017469 100755 (executable)
--- a/test/scan/test-header-parsing
+++ b/test/scan/test-header-parsing
@@ -15,16 +15,18 @@ mail="$MH_TEST_DIR/$$.mail"
 expected="$MH_TEST_DIR/$$.expected"
 actual="$MH_TEST_DIR/$$.actual"
 
 expected="$MH_TEST_DIR/$$.expected"
 actual="$MH_TEST_DIR/$$.actual"
 

-cat >"$mail" <<\E
-a:b
-cd:ef
-ghi:jkl
-mnop:rstu
-E
-sed 's/.*://' "$mail" >"$expected"
-f="`sed 's/:.*/}/; s/^/%{/' "$mail"`"
-run_prog scan -forma "$f" -file "$mail" >"$actual" ||
-exit 1
-check "$expected" "$actual"
+for a in a: a:1 a:12 aa: aa:1 aa:12 aaa: aaa:1 aaa:12 aaaa: aaaa:1 aaaa:12; do
+    for b in b: b:1 b:12 bb: bb:1 bb:12 bbb: bbb:1 bbb:12 bbbb: bbbb:1 bbbb:12; do
+        for c in c: c:1 c:12 cc: cc:1 cc:12 ccc: ccc:1 ccc:12 cccc: cccc:1 cccc:12; do
+            printf '%s\n%s\n%s\n' $a $b $c >"$mail"
+            sed 's/.*://' "$mail" >"$expected"
+            f="`sed 's/:.*/}/; s/^/%{/' "$mail"`"
+            run_prog scan -forma "$f" -file "$mail" >"$actual" ||
+            exit 1
+            check "$expected" "$actual"
+            break 3 # Fails on first iteration!
+        done
+    done
+done

 
 exit $failed
 
 exit $failed