File: common.tcl

package info (click to toggle)
tk-html3 3.0~fossil20110109-6
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 6,644 kB
  • ctags: 5,882
  • sloc: ansic: 48,994; tcl: 26,030; sh: 1,190; yacc: 161; makefile: 24
file content (23 lines) | stat: -rw-r--r-- 377 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 

package require Tkhtml
package require tcltest
tcltest::verbose {pass body error}

catch {rename finish_test ""}

if {[catch {incr ::nested_test_count}]} {set ::nested_test_count 1}

proc finish_test {} {
  catch {
    destroy .h
  }
  incr ::nested_test_count -1
  if {$::nested_test_count == 0}  {
    catch {
      destroy .
      catch {::tkhtml::htmlalloc}
    }
  }
}