Tcl Source Code

Check-in [3c58a2cdd4]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:Give tests more time to finish since valgrind slows things down considerably.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 3c58a2cdd4c25de4aab3968cb91ebddd097bdbfde07e0c8a2d081e637732a557
User & Date: pooryorick 2018-06-07 18:19:15
Context
2018-06-08
07:00
merge 8.7 check-in: 21ac5ef8a5 user: jan.nijtmans tags: trunk
06:54
Merge trunk. Other tweaks, removing stuff that already went to the memory-API branch, so is no long... check-in: 03c8eb0774 user: jan.nijtmans tags: novem
2018-06-07
20:59
Give tests more time to finish since valgrind slows things down considerably. check-in: 2f4c4cfd92 user: pooryorick tags: core-8-branch
18:19
Give tests more time to finish since valgrind slows things down considerably. check-in: 3c58a2cdd4 user: pooryorick tags: trunk
2018-06-05
09:12
merge 8.7 check-in: aebfbede76 user: sebres tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/async.test.

155
156
157
158
159
160
161

162

163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180

181

182
183

184
185
186
187
188
189
190
	# empty proc
    }
} -body {
    apply {{handle} {
	global aresult
	set aresult {Async event not delivered}
	testasync marklater $handle

	for {set i 0} {

	    $i < 2500000  &&  $aresult eq "Async event not delivered"
	} {incr i} {
	    nothing
	}
	return $aresult
    }} $hm
} -result {test pattern} -cleanup {
    testasync delete $hm
}
test async-4.2 {async interrupting straight bytecode sequence} -constraints {
    testasync
} -setup {
    set hm [testasync create async3]
} -body {
    apply {{handle} {
	global aresult
	set aresult {Async event not delivered}
	testasync marklater $handle

	for {set i 0} {

	    $i < 2500000  &&  $aresult eq "Async event not delivered"
	} {incr i} {}

	return $aresult
    }} $hm
} -result {test pattern} -cleanup {
    testasync delete $hm
}
test async-4.3 {async interrupting loop-less bytecode sequence} -constraints {
    testasync






>
|
>
|
|
|















>
|
>
|
|
>







155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
	# empty proc
    }
} -body {
    apply {{handle} {
	global aresult
	set aresult {Async event not delivered}
	testasync marklater $handle
	# allow plenty of time to pass in case valgrind is running
	set start [clock seconds]
	while {
		[clock seconds] - $start < 180 && $aresult eq "Async event not delivered"
	} { 
		nothing
	}
	return $aresult
    }} $hm
} -result {test pattern} -cleanup {
    testasync delete $hm
}
test async-4.2 {async interrupting straight bytecode sequence} -constraints {
    testasync
} -setup {
    set hm [testasync create async3]
} -body {
    apply {{handle} {
	global aresult
	set aresult {Async event not delivered}
	testasync marklater $handle
	# allow plenty of time to pass in case valgrind is running
	set start [clock seconds]
	while {
		[clock seconds] - $start < 180 && $aresult eq "Async event not delivered"
	} {
	}
	return $aresult
    }} $hm
} -result {test pattern} -cleanup {
    testasync delete $hm
}
test async-4.3 {async interrupting loop-less bytecode sequence} -constraints {
    testasync