tests/package.test

   1 source [file dirname [info script]]/testing.tcl
   2
   3 needs constraint jim
   4 needs cmd package
   5
   6 test package-1.1 {provide} -body {
   7         package provide new-package-name
   8         expr {"new-package-name" in [package names]}
   9 } -result 1
  10
  11 test package-1.2 {provide, duplicate} -body {
  12         package provide new-package-name
  13 } -returnCodes error -result {package "new-package-name" was already provided}
  14
  15 testreport
  16