From 8a04313fcd00841146bed0791eb6124350496cdb Mon Sep 17 00:00:00 2001
From: Mikhail Teterin <mi@FreeBSD.org>
Date: Mon, 9 Oct 2006 04:55:11 +0000
Subject: Add vendor's patch, which fixes 3 false test failures.
---
devel/tcllib/files/patch-mime-tests | 46 +++++++++++++++++++++++++++++++++++++
1 file changed, 46 insertions(+)
create mode 100644 devel/tcllib/files/patch-mime-tests
(limited to 'devel')
diff --git a/devel/tcllib/files/patch-mime-tests b/devel/tcllib/files/patch-mime-tests
new file mode 100644
index 000000000000..85ccaa39b176
--- /dev/null
+++ b/devel/tcllib/files/patch-mime-tests
@@ -0,0 +1,46 @@
+--- 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 {
--
cgit v1.2.3