2002-04-08 Daniel Steffen <das@users.sourceforge.net>

	* generic/tcl.h: no <sys/types.h> on mac.
	* mac/tclMacFile.c: minor fixes to Vince's changes from 03-24.
	* mac/tclMacOSA.c:
	* mac/tclMacResource.c: added missing Tcl_UtfToExternalDString
	conversions of resource file names.
	* mac/tclMacSock.c (TcpGetOptionProc): fixed bug introduced
	by Andreas on 02-25; changed strcmp's to strncmp's so that
	option comparison behaves like on other platforms.
	* mac/tcltkMacBuildSupport.sea.hqx (CW Pro6 changes): added
	support to allow Tk to hookup C library stderr/stdout to TkConsole.
	* tests/basic.test:
	* tests/cmdAH.test:
	* tests/encoding.test:
	* tests/fileSystem.test:
	* tests/ioCmd.test: fixed tests failing on mac: check for
	existence of [exec], changed some result strings.

1 files changed, 6 insertions, 4 deletions

diff --git a/tests/encoding.test b/tests/encoding.test
index 6753833..ef9214e 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -8,7 +8,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: encoding.test,v 1.10 2002/03/04 22:00:40 hobbs Exp $
+# RCS: @(#) $Id: encoding.test,v 1.11 2002/04/08 09:02:19 das Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -28,6 +28,8 @@ proc fromutf {args} {
 
 set ::tcltest::testConstraints(testencoding) \
 	[expr {[info commands testencoding] != {}}]
+set ::tcltest::testConstraints(exec) \
+	[llength [info commands exec]]
 
 
 # TclInitEncodingSubsystem is tested by the rest of this file
@@ -361,7 +363,7 @@ test encoding-23.3 {iso2022-jp escape encoding test} {
     set data
 } [string range $::iso2022uniData 0 49] ; # 0 .. 49 inclusive == 50
 
-test encoding-24.1 {EscapeFreeProc on open channels} {
+test encoding-24.1 {EscapeFreeProc on open channels} {exec} {
     # Bug #524674 input
     set f [open iso2022.tcl w]
     puts $f {
@@ -373,7 +375,7 @@ test encoding-24.1 {EscapeFreeProc on open channels} {
     exec [list $::tcltest::tcltest] iso2022.tcl
 } {}
 
-test encoding-24.2 {EscapeFreeProc on open channels} {
+test encoding-24.2 {EscapeFreeProc on open channels} {exec} {
     # Bug #524674 output
     set f [open iso2022.tcl w]
     puts $f {
@@ -385,7 +387,7 @@ test encoding-24.2 {EscapeFreeProc on open channels} {
     viewable [exec [list $::tcltest::tcltest] iso2022.tcl]
 } "ab\x1b\$B8C\x1b\$(DD%\x1b(Bg (ab\\u001b\$B8C\\u001b\$(DD%\\u001b(Bg)"
 
-test encoding-24.3 {EscapeFreeProc on open channels} {
+test encoding-24.3 {EscapeFreeProc on open channels} {exec} {
     # Bug #219314 - if we don't free escape encodings correctly on
     # channel closure, we go boom
     set f [open iso2022.tcl w]