diff options
| author | dgp <dgp@users.sourceforge.net> | 2007-09-04 17:43:42 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2007-09-04 17:43:42 (GMT) |
| commit | 6071dd54232192dfc2f58917e4e64fd8d3940368 (patch) | |
| tree | 6bd7a89eb2e5d78bce73e0e1b76b8e8683e5a5b3 /tests/load.test | |
| parent | e0cfac8e8cf8670ea3513386a39250c155c0e22f (diff) | |
| download | tcl-6071dd54232192dfc2f58917e4e64fd8d3940368.zip tcl-6071dd54232192dfc2f58917e4e64fd8d3940368.tar.gz tcl-6071dd54232192dfc2f58917e4e64fd8d3940368.tar.bz2 | |
merge updates from HEAD
Diffstat (limited to 'tests/load.test')
| -rw-r--r-- | tests/load.test | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/tests/load.test b/tests/load.test index 373327f..f0d97d7 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.17.2.1 2007/09/04 17:44:07 dgp 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 |