Attachment "safe.patch" to
ticket [1080039fff]
added by
dgp
2004-12-06 22:56:27.
Index: tests/safe.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/safe.test,v
retrieving revision 1.17
diff -u -r1.17 safe.test
--- tests/safe.test 18 Aug 2004 19:59:08 -0000 1.17
+++ tests/safe.test 6 Dec 2004 15:18:19 -0000
@@ -21,6 +21,9 @@
interp delete $i
}
+set saveAutoPath $::auto_path
+set ::auto_path [info library]
+
# Force actual loading of the safe package
# because we use un exported (and thus un-autoindexed) APIs
# in this test result arguments:
@@ -478,6 +481,7 @@
} {1 {wrong # args: should be "encoding convertto ?encoding? data"} {}}
+set ::auto_path $saveAutoPath
# cleanup
::tcltest::cleanupTests
return