perf-1.tcl

Go to the documentation of this file.

/*  Create $childNum^2 elements*/

 childNum =  50
catch { childNum =  $numChildren}
 testNum =  10
catch { testNum =  $numTests}

time {
     doc =  [dom::DOMImplementation create]
     top =  [dom::document createElement $doc Test]
    for { i =  0} {$i < $childNum} {incr i} {
     child =  [dom::document createElement $top Top]
    for { j =  0} {$j < $childNum} {incr j} {
        dom::document createElement $child Child
    }
    }
} $testNum