testutils.tcl File Reference

Go to the source code of this file.

Functions/Subroutines
ret	ok ()
ret	result (type result)
ret	tracemsg (type string)
ret	assert (type expr, optional message="")
ret	expectError (type script, optional pattern="*")
ret sortedarray	arrName (type upvar 1 $, type arrName, type thearray, type set, type result, optional, type foreach, type idx[, type lsort[, type array, type names, type thearray]], optional lappend=result $idx=$thearray($idx), type return $, type result) proc compareNodes
Variables
variable	tracing
variable	tracingErrors

---

Function Documentation

ret sortedarray arrName	(	type upvar 1 $	,
		type	arrName,
		type	thearray,
		type	set,
		type	result,
		optional	,
		type	foreach,
		type idx]	[, type lsort[, type array, type names, type thearray],
		optional	lappend = result $idx =$thearray($idx),
		type return $	,
		type	result
	)

Definition at line 70 of file testutils.tcl.

                  {node1 node2} {

ret assert	(	type	expr,
		optional	message = ""
	)

Definition at line 40 of file testutils.tcl.

References error().

                                               {
    if {![uplevel 1 [list expr $expr]]} {
    return -code error "Assertion {$expr} failed:\n$message"
    }
}

Here is the call graph for this function:

ret expectError	(	type	script,
		optional	pattern = "*"
	)

Definition at line 53 of file testutils.tcl.

References error(), result(), and tracingErrors.

                                                       {
    set rc [catch [list uplevel 1 $script] result]
    if {$::tracingErrors} {
    puts stderr "==> [string replace $result 70 end ...]"
    }
    set rmsg [string replace $result 40 end ...]
    if {$rc != 1} {
    return -code error \
        "Expected error, got '$rmsg' (rc=$rc)"
    }
    return $result
}

Here is the call graph for this function:

ret ok

(

)

Definition at line 20 of file testutils.tcl.

{ return {} }

ret result

(

type

result

)

Definition at line 25 of file testutils.tcl.

{ return $result }

ret tracemsg

(

type

string

)

Definition at line 30 of file testutils.tcl.

References tracing.

                            {
    if {$::tracing} {
    puts $::tcltest::outputChannel $string
    }
}

---

Variable Documentation

variable tracing

Definition at line 11 of file testutils.tcl.

variable tracingErrors

Definition at line 12 of file testutils.tcl.