File: autotest.test

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 (30 lines) | stat: -rw-r--r-- 544 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

if {[info exists INAUTOTEST]} return
set testdir [file dirname [info script]]

set files [list \
    tree.test   \
    style.test  \
]

###########################################################################

catch {memory init on}

set auto_path [concat . $auto_path]
package require Tkhtml
package require tcltest
tcltest::configure -verbose {body error pass}

set INAUTOTEST 1
if {![info exists INTEST]} {
    foreach f $files {
        if {[catch {source $testdir/$f} msg]} {
            puts stderr $msg
        }
    }
    exit
}