25 lines
543 B
Plaintext
25 lines
543 B
Plaintext
source [file dirname [info script]]/testing.tcl
|
|
|
|
needs constraint jim
|
|
needs cmd package
|
|
|
|
if {[exists -proc package]} {
|
|
skiptest " (bootstrap jimsh)"
|
|
}
|
|
|
|
test package-1.1 {provide} -body {
|
|
package provide new-package-name
|
|
expr {"new-package-name" in [package names]}
|
|
} -result 1
|
|
|
|
test package-1.2 {provide, duplicate} -body {
|
|
package provide new-package-name
|
|
} -returnCodes error -result {package "new-package-name" was already provided}
|
|
|
|
test package-1.3 {package names} -body {
|
|
expr {"stdlib" in [package names]}
|
|
} -result 1
|
|
|
|
testreport
|
|
|