-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" expectfail
+for a in a: a:1 aa: aa:1; do
+ for b in b: b:1 bb: bb:1; do
+ for c in c: c:1 cc: cc:1; do
+ printf '%s\n%s\n%s\n' $a $b $c >"$mail"
+ sed 's/.*://' "$mail" >"$expected"
+ sed 's/:.*/}/; s/^/%{/' "$mail" >"$format"
+ run_prog scan -form "$format" -file "$mail" >"$actual" ||
+ exit 1
+ check "$expected" "$actual"
+ done
+ done
+done