Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix a couple portability with the stress test. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | netStandard20 |
| Files: | files | file ages | folders |
| SHA1: | da40f86257ea440bab591ca5ecfab7c0 |
| User & Date: | mistachkin 2018-04-06 10:00:46 |
Context
|
2018-04-06
| ||
| 10:05 | Fix a couple test typos. check-in: efce1eacab user: mistachkin tags: netStandard20 | |
| 10:00 | Fix a couple portability with the stress test. check-in: da40f86257 user: mistachkin tags: netStandard20 | |
| 04:36 | Minor correction to the build batch file. check-in: 3087e8c659 user: mistachkin tags: netStandard20 | |
Changes
Changes to Tests/stress.eagle.
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
....
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
|
object invoke System.Diagnostics.Trace.Listeners Remove $::logListener
$::logListener Close
}
#
# NOTE: Copy the trace listener log file to the main test log file.
#
tlog "---- BEGIN TRACE LISTENER OUTPUT\n"
tlog [readFile $fileName]
tlog "\n---- END TRACE LISTENER OUTPUT\n"
#
# NOTE: Delete the trace listener log file because its contents have
# been copied to the main test log file.
#
cleanupFile $fileName
................................................................................
sql execute $db "CREATE INDEX IF NOT EXISTS i1 ON t1(y);"
foreach index(1) [lsort -integer $workloadNames(enabled)] {
set workloadCallbacks($index(1)) [list \
apply $workload($index(1)) $fileName(1) $fileName(2) t1 $count(1) \
$count(3) $count(4) $count(5) $count(6) $count(7) $count(8)]
set thread($index(1)) [object create -alias System.Threading.Thread \
$workloadCallbacks($index(1)) 1048576]
$thread($index(1)) Name [appendArgs \
[file rootname [file tail $fileName(2)]] " #" $index(1)]
if {[info exists priority($index(1))]} then {
$thread($index(1)) Priority $priority($index(1))
}
}
foreach index(1) [array names thread] {
$thread($index(1)) Start
}
$event Set; # GO
foreach index(1) [array names thread] {
$thread($index(1)) Join
}
|
>
|
|
|
>
|
|
|
|
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
....
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
|
object invoke System.Diagnostics.Trace.Listeners Remove $::logListener
$::logListener Close
}
#
# NOTE: Copy the trace listener log file to the main test log file.
#
if {[file exists $fileName]} then {
tlog "---- BEGIN TRACE LISTENER OUTPUT\n"
tlog [readFile $fileName]
tlog "\n---- END TRACE LISTENER OUTPUT\n"
}
#
# NOTE: Delete the trace listener log file because its contents have
# been copied to the main test log file.
#
cleanupFile $fileName
................................................................................
sql execute $db "CREATE INDEX IF NOT EXISTS i1 ON t1(y);"
foreach index(1) [lsort -integer $workloadNames(enabled)] {
set workloadCallbacks($index(1)) [list \
apply $workload($index(1)) $fileName(1) $fileName(2) t1 $count(1) \
$count(3) $count(4) $count(5) $count(6) $count(7) $count(8)]
set thread($index(1)) [createThread $workloadCallbacks($index(1)) \
1048576]
$thread($index(1)) Name [appendArgs \
[file rootname [file tail $fileName(2)]] " #" $index(1)]
if {[info exists priority($index(1))]} then {
$thread($index(1)) Priority $priority($index(1))
}
}
foreach index(1) [array names thread] {
startThread $thread($index(1))
}
$event Set; # GO
foreach index(1) [array names thread] {
$thread($index(1)) Join
}
|