* unix/tclLoadDyld.c: use dlfcn API on Mac OS X 10.4 and later; fix

	issues with loading from memory on intel and 64bit; add debug messages.

	* tests/load.test: add test load-10.1 for loading from vfs.

1 files changed, 11 insertions, 1 deletions

diff --git a/tests/load.test b/tests/load.test
index 373327f..d34fc84 100644
--- a/tests/load.test
+++ b/tests/load.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: load.test,v 1.17 2006/12/17 03:47:08 das Exp $
+# RCS: @(#) $Id: load.test,v 1.18 2007/08/14 06:33:57 das Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -39,6 +39,10 @@ set alreadyTotalLoaded [info loaded]
 
 testConstraint teststaticpkg [llength [info commands teststaticpkg]]
 
+# Test load-10.1 requires the 'testsimplefilesystem' command from tcltest
+
+testConstraint testsimplefilesystem \
+	[llength [info commands testsimplefilesystem]]
 
 test load-1.1 {basic errors} {} {
     list [catch {load} msg] $msg
@@ -196,6 +200,12 @@ test load-9.1 {Tcl_StaticPackage, load already-loaded package into another inter
     -result {{{{} Loadninepointone} {{} Tcltest}} {{{} Loadninepointone} {{} Tcltest}}} \
     -cleanup { interp delete child1 ; interp delete child2 }
 
+test load-10.1 {load from vfs} \
+    -constraints [list $dll $loaded testsimplefilesystem] \
+    -setup {set dir [pwd]; cd $testDir; testsimplefilesystem 1} \
+    -body {list [catch {load simplefs:/pkgd$ext pkgd} msg] $msg} \
+    -result {0 {}} \
+    -cleanup {testsimplefilesystem 0; cd $dir; unset dir}
 
 # cleanup
 unset ext