ports/devel/tcllib/files/patch-mime-tests
2006-10-09 04:55:11 +00:00

46 lines
1.1 KiB
Text

--- modules/mime/mime.test 2006-01-30 20:16:45.000000000 -0800
+++ modules/mime/mime.test 2006-10-06 19:54:36.000000000 -0700
@@ -7,7 +7,7 @@
# Copyright (c) 2000 by Ajuba Solutions
# All rights reserved.
#
-# RCS: @(#) $Id: mime.test,v 1.25 2006/01/31 04:16:31 andreas_kupries Exp $
+# RCS: @(#) $Id: mime.test,v 1.26 2006/10/07 02:54:36 andreas_kupries Exp $
# -------------------------------------------------------------------------
@@ -75,14 +75,12 @@
Content-Type: text/plain\r
\r
jack and jill\r
-\r
--bndry\r
MIME-Version: 1.0\r
Content-ID: \[^\n]+\r
Content-Type: text/plain\r
\r
james\r
-\r
--bndry--\r
" $msg] [regexp "boundary=\"bndry\"" $msg] [regexp "myparam=\"foo\"" $msg]
} {1 1 1}
@@ -146,8 +144,7 @@
} "msg1 {MIME-Version: 2.0\r
Content-Type: text/plain\r
\r
-msg1\r
-}"
+msg1}"
test mime-3.5 {Try to parse a MIME message with no newline between headers and data} {
set msg2 {MIME-Version: 1.0
@@ -172,8 +169,7 @@
} "foo {MIME-Version: 1.0\r
Content-Type: text/plain\r
\r
-foo\r
-}"
+foo}"
test mime-3.7 {Test mime with a bad email [SF Bug 631314 ]} {
catch {