System.Data.SQLite

Check-in [da40f86257]
Login

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

Overview
Comment:Fix a couple portability with the stress test.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | netStandard20
Files: files | file ages | folders
SHA1: da40f86257ea440bab591ca5ecfab7c005a9ddd8
User & Date: mistachkin 2018-04-06 10:00:46.861
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
Unified Diff 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
      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








>
|
|
|
>







354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
      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

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
    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
    }







|
|










|







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
    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
    }