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, 8 insertions, 6 deletions

diff --git a/tests/basic.test b/tests/basic.test
index 8a3e703..5733b4c 100644
--- a/tests/basic.test
+++ b/tests/basic.test
@@ -15,7 +15,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: basic.test,v 1.18 2002/03/29 21:01:12 dgp Exp $
+# RCS: @(#) $Id: basic.test,v 1.19 2002/04/08 09:02:00 das Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -29,6 +29,8 @@ set ::tcltest::testConstraints(testcmdtrace) \
 	[llength [info commands testcmdtrace]]
 set ::tcltest::testConstraints(testcreatecommand) \
 	[llength [info commands testcreatecommand]]
+set ::tcltest::testConstraints(exec) \
+	[llength [info commands exec]]
 
 # This variable needs to be changed when the major or minor version number for
 # Tcl changes.
@@ -558,7 +560,7 @@ test basic-44.1 {Tcl_GlobalEval} {emptyTest} {
 test basic-45.1 {Tcl_SetRecursionLimit: see interp.test} {emptyTest} {
 } {}
 
-test basic-46.1 {Tcl_AllowExceptions: exception return not allowed} {
+test basic-46.1 {Tcl_AllowExceptions: exception return not allowed} {exec} {
     catch {close $f}
     set res [catch {
 	set f [open |[info nameofexecutable] w+]
@@ -583,7 +585,7 @@ test basic-46.1 {Tcl_AllowExceptions: exception return not allowed} {
 DONE
 }}
 
-test basic-46.2 {Tcl_AllowExceptions: exception return not allowed} {
+test basic-46.2 {Tcl_AllowExceptions: exception return not allowed} {exec} {
     makeFile {
 	puts hello
 	break
@@ -597,7 +599,7 @@ invoked "break" outside of a loop
 "break"
     (file "BREAKtest" line 3)}}    
 
-test basic-46.3 {Tcl_AllowExceptions: exception return not allowed} {
+test basic-46.3 {Tcl_AllowExceptions: exception return not allowed} {exec} {
     makeFile {
 	interp alias {} patch {} info patchlevel
 	patch
@@ -611,7 +613,7 @@ test basic-46.3 {Tcl_AllowExceptions: exception return not allowed} {
 "break"
     (file "BREAKtest" line 4)}}    
 
-test basic-46.4 {Tcl_AllowExceptions: exception return not allowed} {
+test basic-46.4 {Tcl_AllowExceptions: exception return not allowed} {exec} {
     makeFile {
 	foo [set a 1] [break]
     } BREAKtest
@@ -625,7 +627,7 @@ test basic-46.4 {Tcl_AllowExceptions: exception return not allowed} {
 "foo [set a 1] [break]"
     (file "BREAKtest" line 2)}}
 
-test basic-46.5 {Tcl_AllowExceptions: exception return not allowed} {
+test basic-46.5 {Tcl_AllowExceptions: exception return not allowed} {exec} {
     makeFile {
 	return -code return
     } BREAKtest