Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Enable closing of streams and use it to limit the number of open streams during tests by closing small streams for failure reporting quickly. Without that a large number of test failures can easily go over the max amount of open files allowed by the OS. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: | 4c093468583ea392ab301026d4c5cdc4784e109ec6257a4ba72585ce85da2248 |
| User & Date: | aku 2018-03-27 16:30:42 |
Context
|
2018-03-27
| ||
| 16:34 |
Tests use --include-dir to redirect the build into a local directory.
This means that a build which needs additional include directories
cannot have any during testing, making build for test impossible.
Added a --test-include option as a hack to provide such directories. check-in: e1656e5ba2 user: aku tags: trunk | |
| 16:30 | Enable closing of streams and use it to limit the number of open streams during tests by closing small streams for failure reporting quickly. Without that a large number of test failures can easily go over the max amount of open files allowed by the OS. check-in: 4c09346858 user: aku tags: trunk | |
|
2017-10-05
| ||
| 06:28 | Show extended stack traces when `kt::local` and sibling run into trouble. check-in: 273c213e57 user: aku tags: trunk | |
Changes
Changes to stream.tcl.
72 73 74 75 76 77 78 79 80 81 82 83 84 85 |
set ch [dict get $stream $name]
}
::puts $ch $text
flush $ch
return
}
# # ## ### ##### ######## ############# #####################
## Terminal log.
proc ::kettle::stream::term {mode text} {
if {($mode ne "always") &&
($mode ne [option get --log-mode])} return
|
> > > > > > > > > |
72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 |
set ch [dict get $stream $name]
}
::puts $ch $text
flush $ch
return
}
proc ::kettle::stream::done {name} {
variable stream
if {![active]} return
if {![dict exists $stream $name]} return
close [dict get $stream $name]
dict unset stream $name
return
}
# # ## ### ##### ######## ############# #####################
## Terminal log.
proc ::kettle::stream::term {mode text} {
if {($mode ne "always") &&
($mode ne [option get --log-mode])} return
|
Changes to testsuite.tcl.
1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 |
set fname [string map {
/ %2f
: %3a
} $test]
stream to result.${fname}.expected {$expected}
stream to result.${fname}.actual {$actual}
}
if {$setup ne {}} {
stream to faildetails {---- Test setup failed:}
stream to faildetails {[string range $setup 0 end-1]}
}
|
> > |
1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 |
set fname [string map {
/ %2f
: %3a
} $test]
stream to result.${fname}.expected {$expected}
stream to result.${fname}.actual {$actual}
stream done result.${fname}.expected
stream done result.${fname}.actual
}
if {$setup ne {}} {
stream to faildetails {---- Test setup failed:}
stream to faildetails {[string range $setup 0 end-1]}
}
|