tclxslt/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	comparenodes (type node1, type node2)
ret	nodelist (type list1, type list2)
ret	nodeset (type set1, type set2)
ret	checkTree (type node, type spec)
ret	testPackage (type package, optional version="")
Variables
variable	tracing
variable	tracingErrors

---

Function Documentation

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

Definition at line 40 of file tclxslt/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 checkTree	(	type	node,
		type	spec
	)

Definition at line 112 of file tclxslt/testutils.tcl.

References name, and result().

                                       {
    foreach child [dom::node children $node] specchild $spec {
    switch [lindex $specchild 0] {
        element {
        if {[dom::node cget $child -nodeType] != "element"} {
            return 0
        }
        if {[dom::node cget $child -nodeName] != [lindex $specchild 1]} {
            return 0
        }
        foreach {name value} [lindex $specchild 2] {
            if {[dom::element getAttribute $child $name] != $value} {
            return 0
            }
        }
        set result [checkTree $child [lindex $specchild 3]]
        if {!$result} {
            return 0
        }
        }
        pi {
        if {[dom::node cget $child -nodeType] != "processingInstruction"} {
            return 0
        }
        if {[dom::node cget $child -nodeName] != [lindex $specchild 1]} {
            return 0
        }
        }
        dtd {
        if {[dom::node cget $child -nodeType] != "dtd"} {
            return 0
        }
        }
        text {
        if {[dom::node cget $child -nodeType] != "textNode"} {
            return 0
        }
        if {[dom::node cget $child -nodeValue] != [lindex $specchild 1]} {
            return 0
        }
        }
        default {
        }
    }
    }

    return 1
}

Here is the call graph for this function:

ret comparenodes	(	type	node1,
		type	node2
	)

Definition at line 69 of file tclxslt/testutils.tcl.

Referenced by nodelist(), and nodeset().

                                            {
    if {[::tcltest::testConstraint dom_libxml2] || [::tcltest::testConstraint dom_tcl]} {
    ::dom::node isSameNode $node1 $node2
    } else {
    return [expr ![string compare $node1 $node2]]
    }
}

Here is the caller graph for this function:

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

Definition at line 53 of file tclxslt/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 nodelist	(	type	list1,
		type	list2
	)

Definition at line 81 of file tclxslt/testutils.tcl.

References comparenodes().

                                        {
    if {[llength $list1] != [llength $list2]} {
    return 0
    }
    foreach node1 $list1 node2 $list2 {
    if {![comparenodes $node1 $node2]} {
        return 0
    }
    }
    return 1
}

Here is the call graph for this function:

ret nodeset	(	type	set1,
		type	set2
	)

Definition at line 97 of file tclxslt/testutils.tcl.

References comparenodes().

                                     {
    if {[llength $set1] != [llength $set2]} {
    return 0
    }
    foreach node1 [lsort $set1] node2 [lsort $set2] {
    if {![comparenodes $node1 $node2]} {
        return 0
    }
    }
    return 1
}

Here is the call graph for this function:

ret ok

(

)

Definition at line 20 of file tclxslt/testutils.tcl.

{ return {} }

ret result

(

type

result

)

Definition at line 25 of file tclxslt/testutils.tcl.

Referenced by checkTree(), expectError(), and testPackage().

{ return $result }

Here is the caller graph for this function:

ret testPackage	(	type	package,
		optional	version = ""
	)

Definition at line 170 of file tclxslt/testutils.tcl.

References result().

                                                       {
    if {![catch "package present $package $version"]} { return }
    set rc [catch "package require $package $version" result]
    if {$rc} { return -code $rc $result }
    set version $result
    set loadScript [package ifneeded $package $version]
    puts $::tcltest::outputChannel \
    "Loaded $package version $version via {$loadScript}"
    return;
}

Here is the call graph for this function:

ret tracemsg

(

type

string

)

Definition at line 30 of file tclxslt/testutils.tcl.

References tracing.

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

---

Variable Documentation

variable tracing

Definition at line 11 of file tclxslt/testutils.tcl.

Referenced by tracemsg().

variable tracingErrors

Definition at line 12 of file tclxslt/testutils.tcl.

Referenced by expectError().