From 5858f281e9a7afb1147796993e80c2bab0dc5c36 Mon Sep 17 00:00:00 2001 From: akr Date: Tue, 21 Jul 1998 01:49:23 +0000 Subject: [PATCH] TESTPAT: add sixteen tests. --- ChangeLog | 4 +++ TESTPAT | 112 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++---- 2 files changed, 110 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 395645e..e442699 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +1998-07-21 Tanaka Akira + + * TESTPAT: add sixteen tests. + 1998-07-20 Tanaka Akira * TESTPAT: add three tests. diff --git a/TESTPAT b/TESTPAT index 9ade797..ee91888 100644 --- a/TESTPAT +++ b/TESTPAT @@ -12,6 +12,9 @@ ;separate-sticked-special ; violate the policy preserving absence of space ;zero-characters-encoded-word-hack ; violate common sense (very tricky) ;quoted-encoded-word ; violate character sequence semantics +;separate-sticked-tokens-for-fold ; violate the policy preserving absence of space +;encode-long-ascii-string-for-fold ; violate the policy preserving US-ASCII string +;divide-atom-for-fold ; violate tne policy preserving absence of space ;;; test driver @@ -50,9 +53,11 @@ (defun report () (insert - (format "\n\"Decode: %d/%d Encode: %d/%d\"" + (format "\n\"Decode: %d/%d Encode: %d/%d Total: %d/%d\"" decode-succ-count decode-all-count - encode-succ-count encode-all-count))) + encode-succ-count encode-all-count + (+ decode-succ-count encode-succ-count) + (+ decode-all-count encode-all-count)))) ;;; FLAM specific part (FLIM is OK) @@ -686,6 +691,95 @@ "From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIbKEI=?= =?ISO-2022-JP?B?GyRCJCQbKEI=?=)aaaaaaaaaaaaaaaaaaaa ") +(encode +"From: aaaaaaaaaaaaaaaaaaaaa (あい)aaaaaaaaaaaaaaaaaaaa " +'("From: aaaaaaaaaaaaaaaaaaaaa + (=?ISO-2022-JP?B?GyRCJCIkJBsoQg==?=)aaaaaaaaaaaaaaaaaaaa " + "From: aaaaaaaaaaaaaaaaaaaaa (=?ISO-2022-JP?B?GyRCJCIbKEI=?= + =?ISO-2022-JP?B?GyRCJCQbKEI=?=)aaaaaaaaaaaaaaaaaaaa ")) + +(encode +"From: aaaaaaaaaaaaaaaaaaaaa( あい)aaaaaaaaaaaaaaaaaaaa " +'("From: aaaaaaaaaaaaaaaaaaaaa( + =?ISO-2022-JP?B?GyRCJCIkJBsoQg==?=)aaaaaaaaaaaaaaaaaaaa " + "From: aaaaaaaaaaaaaaaaaaaaa( =?ISO-2022-JP?B?GyRCJCIbKEI=?= + =?ISO-2022-JP?B?GyRCJCQbKEI=?=)aaaaaaaaaaaaaaaaaaaa ")) + +(encode +"From: aaaaaaaaaaaaaaaaaaaaa(あい )aaaaaaaaaaaaaaaaaaaa " +'("From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIkJBsoQg==?= + )aaaaaaaaaaaaaaaaaaaa " + "From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIbKEI=?= + =?ISO-2022-JP?B?GyRCJCQbKEI=?= )aaaaaaaaaaaaaaaaaaaa ")) + +(encode +"From: aaaaaaaaaaaaaaaaaaaaa(あい) aaaaaaaaaaaaaaaaaaaa " +"From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIkJBsoQg==?=) + aaaaaaaaaaaaaaaaaaaa ") + +(encode +"From: aaaaaaaaaaaaaaaaaaaaa(あ い)aaaaaaaaaaaaaaaaaaaa " +"From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIbKEIgCg==?= + =?ISO-2022-JP?B?GyRCJCQbKEI=?=)aaaaaaaaaaaaaaaaaaaa ") + +(encode +"From: (あ)aaaaaaaaaaaaaaaaaaaa " +"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaa ") + +(encode +"From: (あ)aaaaaaaaaaaaaaaaaaaaa " +"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaa + ") + +(encode +"From: (あ)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa " +"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa + ") + +(encode +"From: (あ)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa " +"From: + (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa + ") + +(encode +"From: (あ)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa " +"From: + (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa + ") + +(encode +"From: (あ)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa " +"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?= + =?ISO-2022-JP?B?GyhC?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa + " +'zero-characters-encoded-word-hack) + +(encode +"From: (あ)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa " +"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?= + =?ISO-2022-JP?B?GyhC?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa + " +'zero-characters-encoded-word-hack) + +(encode +"From: (あ)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa " +"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=) + aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa " +'separate-sticked-tokens-for-fold) + +(encode +"From: (あ)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa " +"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)=?US-ASCII?Q?aaaaaaaaaaaaaaaaaaaaaaa?= + =?US-ASCII?Q?aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa?= " +'encode-long-ascii-string-for-fold 'permit-sticked-special) + +(encode +"From: (あ)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa " +"From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa + aaaaaaaaaaaaaaaa " +'divide-atom-for-fold) + ;; Section 6: Encoding melancholic inputs. (encode @@ -876,13 +970,19 @@ 'quoted-encoded-word) (decode -"Subject: =?US-ASCII?G?H4sIAMsIsjUCA0tMSk5JTQMA7zmOSwYAAAA?=" -"Subject: =?*US-ASCII?G?H4sIAMsIsjUCA0tMSk5JTQMA7zmOSwYAAAA?=" +"Subject: =?US-ASCII?G?H4sIACqUszUAA8tIzcnJBwCGphA2BQAAAA==?=" +"Subject: =?*US-ASCII?G?H4sIACqUszUAA8tIzcnJBwCGphA2BQAAAA==?=" +'quoted-encoded-word) + +(decode +"Subject: =?US-ASCII?Unknown-Encoding?H4sIAGOUszUAAwtyczYyMDEHAEpvqpIHAAAA?=" +"Subject: =?*US-ASCII?Unknown-Encoding?H4sIAGOUszUAAwtyczYyMDEHAEpvqpIHAAAA?=" 'quoted-encoded-word) (decode -"Subject: =?US-ASCII?Unknown-Encoding?H4sIAMsIsjUCA0tMSk5JTQMA7zmOSwYAAAA?=" -"Subject: =?*US-ASCII?Unknown-Encoding?H4sIAMsIsjUCA0tMSk5JTQMA7zmOSwYAAAA?=" +"Subject: =?ISO-2022-JP?G?H4sIAGiTszUAA5NWcVIBAhMtaQ0nAGLSaeEMAAAA?= + =?ISO-2022-JP?G?H4sIAH6TszUAA5NWcVIxV3FTyVbxldZwAgAuIikKDgAAAA==?=" +"Subject: =?*ISO-2022-JP?G?H4sIAGiTszUAA5NWcVIBAhMtaQ0nAGLSaeEMAAAA?==?*ISO-2022-JP?G?H4sIAH6TszUAA5NWcVIxV3FTyVbxldZwAgAuIikKDgAAAA==?=" 'quoted-encoded-word) (decode -- 1.7.10.4