X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/7a4f207b8a4740479b67b286c6cec6f289451bee..67506f8a343d03fae9f5a98e89cbd431426347cc:/test/mhbuild/test-header-encode

diff --git a/test/mhbuild/test-header-encode b/test/mhbuild/test-header-encode
index 2bba58ed..e96783f6 100755
--- a/test/mhbuild/test-header-encode
+++ b/test/mhbuild/test-header-encode
@@ -16,11 +16,12 @@ fi
 
 setup_test
 testname="${MH_TEST_DIR}/$$"
+backupname="${MH_TEST_DIR}/`mhparam sbackup`$$"
 
 #
 # We're going to hardcode UTF-8 for this test.
 #
-
+require_locale en_US.utf-8 en_US.utf8
 LC_ALL=en_US.UTF-8; export LC_ALL
 
 #
@@ -44,7 +45,7 @@ Content-Type: text/plain; charset="us-ascii"
 This is a test
 EOF
 
-mhbuild "${testname}.basic.actual"
+run_prog mhbuild "${testname}.basic.actual"
 
 check "${testname}.basic.actual" "${testname}.basic.expected" 'keep first'
 
@@ -77,13 +78,13 @@ Content-Type: text/plain; charset="us-ascii"
 This is a test
 EOF
 
-mhbuild -headerencoding base64 "${testname}.basic.actual"
+run_prog mhbuild -headerencoding base64 "${testname}.basic.actual"
 
 check "${testname}.basic.actual" "${testname}.basic.expected" 'keep first'
 
 run_test 'eval fmttest -outsize max -format "%(decode{subject})" -message -file "${testname}.basic.actual"' 'This is ä test'
 
-rm -f "${testname}.basic.actual"
+rm -f "${testname}.basic.actual" "${backupname}.basic.actual.orig"
 
 #
 # Have a subject that will pick base64 as the shorter encoding
@@ -107,13 +108,13 @@ Content-Type: text/plain; charset="us-ascii"
 This is a test
 EOF
 
-mhbuild "${testname}.autopick.actual"
+run_prog mhbuild "${testname}.autopick.actual"
 
 check "${testname}.autopick.actual" "${testname}.autopick.expected" 'keep first'
 
 run_test 'eval fmttest -outsize max -format "%(decode{subject})" -message -file "${testname}.autopick.actual"' 'This is ä tëst©'
 
-rm -f "${testname}.basic.autopick"
+rm -f "${testname}.autopick.actual" "${backupname}.autopick.actual.orig"
 
 #
 # Tests using longer subject lines.
@@ -142,13 +143,13 @@ Content-Type: text/plain; charset="us-ascii"
 This is a test of a very long subject line.
 EOF
 
-mhbuild "${testname}.longsubject1.actual"
+run_prog mhbuild "${testname}.longsubject1.actual"
 
 check "${testname}.longsubject1.actual" "${testname}.longsubject1.expected" 'keep first'
 
 run_test 'eval fmttest -outsize max -format "%(putlit(decode(trim{subject})))" -message -file "${testname}.longsubject1.actual"' "This is ä tëst of a rather long sübject line; will it overflow the line length?  I sure hope thät ='s and _'s are encoded properly.  Will they be?"
 
-rm -f "${testname}.longsubject1.actual"
+rm -f "${testname}.longsubject1.actual" "${backupname}.longsubject1.actual.orig"
 
 #
 # Test a longer line with base64 encoding
@@ -178,13 +179,13 @@ Content-Type: text/plain; charset="us-ascii"
 This is a test of a very long subject line using base64.
 EOF
 
-mhbuild "${testname}.longsubject2.actual"
+run_prog mhbuild "${testname}.longsubject2.actual"
 
 check "${testname}.longsubject2.actual" "${testname}.longsubject2.expected" 'keep first'
 
 run_test 'eval fmttest -outsize max -format "%(putlit(decode(trim{subject})))" -message -file "${testname}.longsubject2.actual"' "This is ä tëst øf ä räthër løng sübjëct line; will it øvërfløw the line length?  I sure hope thät ='s and \"'s are encoded properly.  Will they be?"
 
-rm -f "${testname}.longsubject2.actual"
+rm -f "${testname}.longsubject2.actual" "${backupname}.longsubject2.actual.orig"
 
 #
 # Another long test, but make sure multibyte characters are not split across
@@ -213,13 +214,13 @@ Content-Type: text/plain; charset="us-ascii"
 This is another long test.
 EOF
 
-mhbuild "${testname}.longsubject3.actual"
+run_prog mhbuild "${testname}.longsubject3.actual"
 
 check "${testname}.longsubject3.actual" "${testname}.longsubject3.expected" 'keep first'
 
 run_test 'eval fmttest -outsize max -format "%(putlit(decode(trim{subject})))" -message -file "${testname}.longsubject3.actual"' "This is a test of a big UTF-8 multibyte character (😉); will this work properly, or will it get truncated? 😨! Hopefully not"
 
-rm -f "${testname}.longsubject3.actual"
+rm -f "${testname}.longsubject3.actual" "${backupname}.longsubject3.actual.orig"
 
 cat > "${testname}.longsubject4.actual" <<EOF
 From: Mr Foo Bar <foobar@example.com>
@@ -243,13 +244,13 @@ Content-Type: text/plain; charset="us-ascii"
 This is another long test.
 EOF
 
-mhbuild "${testname}.longsubject4.actual"
+run_prog mhbuild "${testname}.longsubject4.actual"
 
 check "${testname}.longsubject4.actual" "${testname}.longsubject4.expected" 'keep first'
 
 run_test 'eval fmttest -outsize max -format "%(putlit(decode(trim{subject})))" -message -file "${testname}.longsubject4.actual"' "This is ä tëst øf å big ÜTF-8 (😉) mültibyte character; will this wørk prøperly, ør will it get trµnᴬted? 😨! Hopefully nøt"
 
-rm -f "${testname}.longsubject4.actual"
+rm -f "${testname}.longsubject4.actual" "${backupname}.longsubject4.actual.orig"
 
 #
 # Test out some basic email address encoding
@@ -273,14 +274,14 @@ Content-Type: text/plain; charset="us-ascii"
 This is important information
 EOF
 
-mhbuild "${testname}.basicemail1.actual"
+run_prog mhbuild "${testname}.basicemail1.actual"
 
 check "${testname}.basicemail1.actual" "${testname}.basicemail1.expected" 'keep first'
 
 run_test 'eval fmttest -outsize max -format "%(decode{from})" -message -file "${testname}.basicemail1.actual"' "Mr Foo Bär <foobar@example.com>"
 run_test 'eval fmttest -outsize max -format "%(decode(friendly{from}))" -message -file "${testname}.basicemail1.actual"' "Mr Foo Bär"
 
-rm -f "${testname}.basicemail1.actual"
+rm -f "${testname}.basicemail1.actual" "${backupname}.basicemail1.actual.orig"
 
 cat > "${testname}.basicemail2.actual" <<EOF
 From: foobar@example.com (Mr Foo Bär)
@@ -300,14 +301,14 @@ Content-Type: text/plain; charset="us-ascii"
 This is important information
 EOF
 
-mhbuild "${testname}.basicemail2.actual"
+run_prog mhbuild "${testname}.basicemail2.actual"
 
 check "${testname}.basicemail2.actual" "${testname}.basicemail2.expected" 'keep first'
 
 run_test 'eval fmttest -outsize max -format "%(decode{from})" -message -file "${testname}.basicemail2.actual"' "foobar@example.com (Mr Foo Bär)"
 run_test 'eval fmttest -outsize max -format "%(decode(friendly{from}))" -message -file "${testname}.basicemail2.actual"' "Mr Foo Bär"
 
-rm -f "${testname}.basicemail2.actual"
+rm -f "${testname}.basicemail2.actual" "${backupname}.basicemail2.actual.orig"
 
 #
 # Make sure the base64 encoder is tested as well
@@ -331,14 +332,14 @@ Content-Type: text/plain; charset="us-ascii"
 This is important information
 EOF
 
-mhbuild "${testname}.basicemail3.actual"
+run_prog mhbuild "${testname}.basicemail3.actual"
 
 check "${testname}.basicemail3.actual" "${testname}.basicemail3.expected" 'keep first'
 
 run_test 'eval fmttest -outsize max -format "%(decode{from})" -message -file "${testname}.basicemail3.actual"' "Mr Føø Bär <foobar@example.com>"
 run_test 'eval fmttest -outsize max -format "%(decode(friendly{from}))" -message -file "${testname}.basicemail3.actual"' "Mr Føø Bär"
 
-rm -f "${testname}.basicemail3.actual"
+rm -f "${testname}.basicemail3.actual" "${backupname}.basicemail3.actual.orig"
 
 cat > "${testname}.basicemail4.actual" <<EOF
 From: foobar@example.com (Mr Føø Bär)
@@ -358,14 +359,14 @@ Content-Type: text/plain; charset="us-ascii"
 This is important information
 EOF
 
-mhbuild "${testname}.basicemail4.actual"
+run_prog mhbuild "${testname}.basicemail4.actual"
 
 check "${testname}.basicemail4.actual" "${testname}.basicemail4.expected" 'keep first'
 
 run_test 'eval fmttest -outsize max -format "%(decode{from})" -message -file "${testname}.basicemail4.actual"' "foobar@example.com (Mr Føø Bär)"
 run_test 'eval fmttest -outsize max -format "%(decode(friendly{from}))" -message -file "${testname}.basicemail4.actual"' "Mr Føø Bär"
 
-rm -f "${testname}.basicemail4.actual"
+rm -f "${testname}.basicemail4.actual" "${backupname}.basicemail4.actual.orig"
 
 #
 # A more complicated header; it includes groups, addresses that require
@@ -401,13 +402,13 @@ Content-Type: text/plain; charset="us-ascii"
 This is a lot of people on this email!
 EOF
 
-mhbuild "${testname}.complexemail1.actual"
+run_prog mhbuild "${testname}.complexemail1.actual"
 
 check "${testname}.complexemail1.actual" "${testname}.complexemail1.expected" 'keep first'
 
 run_test 'eval fmttest -outsize max -format "%(decode{to})" -message -file "${testname}.complexemail1.actual"' "\"Mr F. One\" <foo1@example.com>, Mr F. Twø <foo2@example.com>, foo list: Føø Thrëë <foo3@example.com>, Foo Four <foo4@example.com>, Foo Fivë <foo5@example.com>;, Føø Sîx <foo6@example.com>, \"Mr F. Seven\" <foo7@example.com>"
 run_test 'eval fmttest -outsize max -format "%(decode{cc})" -message -file "${testname}.complexemail1.actual"' "The Distingµishëd F. Sëvën <foo7@example.com>"
 
-rm -f "${testname}.complexemail1.actual"
+rm -f "${testname}.complexemail1.actual" "${backupname}.complexemail1.actual.orig"
 
 exit ${failed:-0}