From 9222a2f10eb6761931138fe087f35b1bc04ca448 Mon Sep 17 00:00:00 2001 From: shuhei Date: Sun, 22 Apr 2001 02:52:35 +0000 Subject: [PATCH] (test-rfc2231-7, test-rfc2231-8): New testcases. --- tests/test-rfc2231.el | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/tests/test-rfc2231.el b/tests/test-rfc2231.el index 1091025..e444f43 100644 --- a/tests/test-rfc2231.el +++ b/tests/test-rfc2231.el @@ -73,3 +73,26 @@ title*2=\"isn't it!\"") "title") "This is even more ***fun*** isn't it!"))) + +;;; MIME states that parameters are not order sensitive. +(luna-define-method test-rfc2231-7 ((case test-rfc2231)) + (lunit-assert + (string= + (mime-content-type-parameter + (mime-parse-Content-Type "application/x-stuff; + title*2=\"isn't it!\"; + title*1*=%2A%2A%2Afun%2A%2A%2A%20; + title*0*=us-ascii'en'This%20is%20even%20more%20") + "title") + "This is even more ***fun*** isn't it!"))) + +;;; ABNF states that `ext-octet' is case-insensitive. +(luna-define-method test-rfc2231-8 ((case test-rfc2231)) + (lunit-assert + (let ((case-fold-search nil)) + (string= + (mime-content-type-parameter + (mime-parse-Content-Type "application/x-stuff; + title*=us-ascii'en-us'This%20is%20%2a%2a%2afun%2a%2a%2a") + "title") + "This is ***fun***")))) -- 1.7.10.4