Lines Matching defs:assert
0 # assert.tcl --
3 # The [assert] command of the package "control".
5 # RCS: @(#) $Id: assert.tcl,v 1.3 2004/01/15 06:36:12 andreas_kupries Exp $
9 namespace eval assert {
54 [namespace origin [namespace parent]::assert]]
75 if {[string equal [namespace origin assert] \
76 [namespace origin assert::${new}Assert]]} {return}
77 rename assert ${old}Assert
78 rename ${new}Assert assert
81 namespace import assert::DisabledAssert assert::EnabledAssert
84 proc assert args #
85 rename assert {}
88 rename DisabledAssert assert