Artifact
9d3333677858a0e00aad0268876a7ee88806a078:
Attachment "snit.test.patch" to
ticket [1672340fff]
added by
rebum
2007-03-02 18:18:09.
--- modules/snit/snit.test.orig Thu Mar 1 12:39:28 2007
+++ modules/snit/snit.test Thu Mar 1 12:52:09 2007
@@ -5784,13 +5784,19 @@
#-----------------------------------------------------------------------
# expose statement
+if {[package vsatisfies [package present Tcl] 8.5]} {
+ set expose_msg "expose"
+} else {
+ set expose_msg "::snit::Comp.statement.expose"
+}
+
test expose-1.1 {can't expose nothing} -body {
type dog {
expose
}
} -returnCodes {
error
-} -result [tcltest::wrongNumArgs ::snit::Comp.statement.expose {component ?as? ?methodname?} 0]
+} -result [tcltest::wrongNumArgs $expose_msg {component ?as? ?methodname?} 0]
test expose-1.2 {expose a component that's never installed} -body {
type dog {
