Posted to tcl by jdc at Fri Oct 19 14:49:11 GMT 2007view raw

  1. proc ptest { path } {
  2.  
  3. puts "testing in $path"
  4.  
  5. global auto_path
  6.  
  7. set f [open $path/pkgIndex.tcl w]
  8. puts $f {package ifneeded testPkg 1.0 [list source [file join $dir testPkg.tcl]]}
  9. close $f
  10.  
  11. set f [open $path/testPkg.tcl w]
  12. puts $f {package provide testPkg 1.0}
  13. close $f
  14.  
  15. lappend auto_path $path
  16.  
  17. catch {package require testPkg} msg
  18. puts $msg
  19. }
  20.  
  21. ptest x:/tmp
  22. ptest c:/tmp