diff options
| author | das <das> | 2007-08-14 06:34:11 (GMT) |
|---|---|---|
| committer | das <das> | 2007-08-14 06:34:11 (GMT) |
| commit | 720f2ebb87f3a202b571853c506692b847edc023 (patch) | |
| tree | 5752ef26791b88a44bfcf71a95f16c83aafb6232 /tests/load.test | |
| parent | 190db6374756ef363310051446861a43d3525d94 (diff) | |
| download | tcl-720f2ebb87f3a202b571853c506692b847edc023.zip tcl-720f2ebb87f3a202b571853c506692b847edc023.tar.gz tcl-720f2ebb87f3a202b571853c506692b847edc023.tar.bz2 | |
* 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.
Diffstat (limited to 'tests/load.test')
| -rw-r--r-- | tests/load.test | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/tests/load.test b/tests/load.test index 9fe26ab..3824d67 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.11.2.1 2004/09/14 17:02:56 das Exp $ +# RCS: @(#) $Id: load.test,v 1.11.2.2 2007/08/14 06:34:13 das Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -44,7 +44,12 @@ set alreadyTotalLoaded [info loaded] # Certain tests require the 'teststaticpkg' command from tcltest ::tcltest::testConstraint teststaticpkg \ - [string compare {} [info commands teststaticpkg]] + [string compare {} [info commands teststaticpkg]] + +# Test load-10.1 requires the 'testsimplefilesystem' command from tcltest + +::tcltest::testConstraint testsimplefilesystem \ + [string compare {} [info commands testsimplefilesystem]] test load-1.1 {basic errors} {} { @@ -201,7 +206,13 @@ 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 ::tcltest::cleanupTests return |