Eskil

Check-in [7c1c72c9bd]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Removed instrumentation. Adapted to src structure.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 7c1c72c9bd313aaecff8f4f4c9f76f66178d416a
User & Date: peter 2005-02-20 16:03:11.000
Context
2005-02-20
16:03
CompareFiles was renamed. check-in: 77aa9a507d user: peter tags: trunk
16:03
Removed instrumentation. Adapted to src structure. check-in: 7c1c72c9bd user: peter tags: trunk
15:45
*** empty log message *** check-in: 2f524e1dec user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to tests/all.tcl.
︙︙
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

#tcltest::configure -match eskil-1.*

package require Tk
wm withdraw .

set ::eskil_testsuite 1

set instrument 1
if {$instrument} {
    puts "Instrumenting"
    exec ./instrument.tcl compareBlocks ParseCtRevs compareFiles
    source eskili.tcl
} else {
    source eskil.tcl
}
puts "Running Tests"

foreach test [glob -nocomplain $testDir/*.test] {
    source $test
}

if {$instrument} {
    puts "Checking instrumenting result"
    set ch [open _instrument_result w]
    puts $ch [join [lsort -integer [array names ::_instrument]] \n]
    close $ch
    set ch [open {|diff _instrument_lines _instrument_result}]
    while {[gets $ch line] >= 0} {
        if {[regexp {<|>} $line]} {
            puts $line
        }
    }
    catch {close $ch}
    file delete -force _instrument_lines _instrument_result
    file delete -force eskili.tcl
}
exit








<
<
<
<
|
<
|
|






<
<
<
<
<
<
<
<
<
<
<
<
<
<
<


17
18
19
20
21
22
23




24

25
26
27
28
29
30
31
32















33

#tcltest::configure -match eskil-1.*

package require Tk
wm withdraw .

set ::eskil_testsuite 1





source src/eskil.tcl

Init

puts "Running Tests"

foreach test [glob -nocomplain $testDir/*.test] {
    source $test
}
















exit