blob: 940ed747fdcca9a4fc78235d6535e4e404d0f471 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
source [file dirname [info script]]/testing.tcl
needs constraint jim
needs cmd package
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}
testreport
|