Jerry D. Hedden wrote:
> How do you distinguish when smoke testing is going on?
Yves wrote:
> Well, I dont see any. I guess it doesnt matter. Use an
environment
> variable. Something like WIN32_SMOKE_SKIP_THREADS or
something. People
> who need it can set it up in a wrapper script.
How about the following?
# Gather thread results
for (1..$cnt) {
my $rc = $threads[$_]->join() || 'Thread
failed';
- ok($_, ($rc eq 'okay'), $rc);
+ ok($_, ($rc eq 'okay'), (($ENV{'WIN32_SMOKE'}) ? '#
TODO ' :
'') . $rc);
}
$Base += $cnt;
So if WIN32_SMOKE is true in the environment, the tests get
flagged as TODO.
|