System.Data.SQLite
Check-in [da40f86257]
Not logged in

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:da40f86257ea440bab591ca5ecfab7c005a9ddd8
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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
    }