Attachment "None" to
ticket [403189ffff]
added by
mdejong
2001-01-11 16:25:36.
Index: unix/Makefile.in
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/Makefile.in,v
retrieving revision 1.71
diff -u -r1.71 Makefile.in
--- unix/Makefile.in 2000/11/16 00:15:29 1.71
+++ unix/Makefile.in 2001/01/11 09:18:40
@@ -453,6 +453,7 @@
# Useful target to launch a built tcltest with the proper path,...
runtest: tcltest
+ @echo "cd $(TOP_DIR)/tests ; source all.tcl"
LD_LIBRARY_PATH=`pwd`:${LD_LIBRARY_PATH}; export LD_LIBRARY_PATH; \
LIBPATH=`pwd`:${LIBPATH}; export LIBPATH; \
SHLIB_PATH=`pwd`:${SHLIB_PATH}; export SHLIB_PATH; \
Index: tests/interp.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/interp.test,v
retrieving revision 1.11
diff -u -r1.11 interp.test
--- tests/interp.test 2000/04/10 17:19:00 1.11
+++ tests/interp.test 2001/01/11 09:18:42
@@ -635,7 +635,10 @@
# the bugs as a core dump.
#
-if {[info commands testinterpdelete] != ""} {
+if {[info commands testinterpdelete] == ""} {
+ puts "This application hasn't been compiled with the \"testinterpdelete\""
+ puts "command, so I can't test slave delete calls"
+} else {
test interp-18.1 {testing Tcl_DeleteInterp vs slaves} {
list [catch {testinterpdelete} msg] $msg
} {1 {wrong # args: should be "testinterpdelete path"}}
@@ -2352,6 +2355,26 @@
rename myNewSet {}
set result
} ok
+
+# Check that the current working directory is inherited
+# by a child interp.
+
+test interp-32.1 { parent's working directory should
+ be inherited by a child interp } {
+ set parent [pwd]
+ set i [interp create]
+ set child [$i eval pwd]
+ interp delete $i
+ file mkdir cwd_test
+ cd cwd_test
+ lappend parent [pwd]
+ set i [interp create]
+ lappend child [$i eval pwd]
+ cd ..
+ file delete cwd_test
+ interp delete $i
+ string equal $parent $child
+} 1
# cleanup
foreach i [interp slaves] {