System.Data.SQLite: Check-in [a8664bc59c]

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

Overview

Comment:	Modify the stress test so that all workload threads have multiple iterations.
Downloads:	Tarball \| ZIP archive \| SQL archive
Timelines:	family \| ancestors \| descendants \| both \| trunk
Files:	files \| file ages \| folders
SHA1:	a8664bc59c656bec65878c37222c139221874cef
User & Date:	mistachkin 2012-09-23 10:11:05

Context

2012-09-24
20:48		Doc updates for Visual Studio 2012. check-in: e7339793f8 user: mistachkin tags: trunk
2012-09-23
10:11		Modify the stress test so that all workload threads have multiple iterations. check-in: a8664bc59c user: mistachkin tags: trunk
08:05		Design-time installer test fixes for 64-bit support. check-in: e62a24fa85 user: mistachkin tags: trunk

Changes

Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to Tests/stress.eagle.

  set workload(11) [list [list srcFileName dstFileName table count] {
    #
    # NOTE: Workload #11, VACUUM statement.
    #
    lappend ::times(11) [lindex [time {
      setupDb $dstFileName "" "" "" "" "" true false
      if {[catch {

        sql execute $db "VACUUM;"
        showTest B

      } error]} then {
        if {[expectedError $error]} then {
          showTest *
        } else {
          failTest $error
        }
      }
................................................................................
  #############################################################################

  set workload(12) [list [list srcFileName dstFileName table count] {
    #
    # NOTE: Workload #12, backup to in-memory database.
    #
    lappend ::times(12) [lindex [time {

      if {[string is integer -strict $::compiled(12)]} then {
        set id $::compiled(12); # NOTE: Already compiled.
        object invoke _Dynamic${id}.Test${id} BackupAndGetData
      } else {
        set id [object invoke Interpreter.GetActive NextId]
        set code [compileCSharpWith [subst {
          using System;
          using System.Data.SQLite;
          using System.Text;

          namespace _Dynamic${id}
          {
            public static class Test${id}
            {
              public static void BackupAndGetData()
              {
                using (SQLiteConnection source = new SQLiteConnection(
                    "FullUri=${dstFileName};"))
                {
                  source.Open();
                  using (SQLiteConnection destination = new SQLiteConnection(
                      "FullUri=${srcFileName};"))
                  {
                    destination.Open();

                    source.BackupDatabase(
                        destination, "main", "main", -1, null, 0);
                  }
                }
              }

              /////////////////////////////////////////////////////////////////

              public static void Main()
              {
                // do nothing.
              }
            }
          }
        }] true true true results errors System.Data.SQLite.dll]
        if {$code eq "Ok"} then {
          set ::compiled(12) $id; # NOTE: Compiled OK.
          object invoke _Dynamic${id}.Test${id} BackupAndGetData
        } else {
          error $errors
        }
      }
      showTest C

    }] 0]
  }]

  #############################################################################

  set workload(13) [list [list srcFileName dstFileName table count] {
    #
    # NOTE: Workload #13, backup from an in-memory database.
    #
    lappend ::times(13) [lindex [time {

      if {[string is integer -strict $::compiled(13)]} then {
        set id $::compiled(13); # NOTE: Already compiled.
        object invoke _Dynamic${id}.Test${id} BackupAndGetData
      } else {
        set id [object invoke Interpreter.GetActive NextId]
        set code [compileCSharpWith [subst {
          using System;
          using System.Data.SQLite;
          using System.Text;

          namespace _Dynamic${id}
          {
            public static class Test${id}
            {
              public static void BackupAndGetData()
              {
                using (SQLiteConnection source = new SQLiteConnection(
                    "FullUri=${srcFileName};"))
                {
                  source.Open();
                  using (SQLiteConnection destination = new SQLiteConnection(
                      "FullUri=${dstFileName};"))
                  {
                    destination.Open();

                    source.BackupDatabase(
                        destination, "main", "main", -1, null, 0);
                  }
                }
              }

              /////////////////////////////////////////////////////////////////

              public static void Main()
              {
                // do nothing.
              }
            }
          }
        }] true true true results errors System.Data.SQLite.dll]
        if {$code eq "Ok"} then {
          set ::compiled(13) $id; # NOTE: Compiled OK.
          object invoke _Dynamic${id}.Test${id} BackupAndGetData
        } else {
          error $errors
        }
      }
      showTest D

    }] 0]
  }]

  #############################################################################

  set workload(14) [list [list srcFileName dstFileName table count] {
    #








>
|
|
>







 







>
|
|
|
|
|
|
|
|
|

|
|
|
|
|
|
|
|
|
|
|
|
|
|

|
|
|
|
|

|

|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
>










>
|
|
|
|
|
|
|
|
|

|
|
|
|
|
|
|
|
|
|
|
|
|
|

|
|
|
|
|

|

|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
>

  set workload(11) [list [list srcFileName dstFileName table count] {
    #
    # NOTE: Workload #11, VACUUM statement.
    #
    lappend ::times(11) [lindex [time {
      setupDb $dstFileName "" "" "" "" "" true false
      if {[catch {
        for {set index 1} {$index <= $count} {incr index} {
          sql execute $db "VACUUM;"
          showTest B
        }
      } error]} then {
        if {[expectedError $error]} then {
          showTest *
        } else {
          failTest $error
        }
      }
................................................................................
  #############################################################################

  set workload(12) [list [list srcFileName dstFileName table count] {
    #
    # NOTE: Workload #12, backup to in-memory database.
    #
    lappend ::times(12) [lindex [time {
      for {set index 1} {$index <= $count} {incr index} {
        if {[string is integer -strict $::compiled(12)]} then {
          set id $::compiled(12); # NOTE: Already compiled.
          object invoke _Dynamic${id}.Test${id} BackupAndGetData
        } else {
          set id [object invoke Interpreter.GetActive NextId]
          set code [compileCSharpWith [subst {
            using System;
            using System.Data.SQLite;
            using System.Text;

            namespace _Dynamic${id}
            {
              public static class Test${id}
              {
                public static void BackupAndGetData()
                {
                  using (SQLiteConnection source = new SQLiteConnection(
                      "FullUri=${dstFileName};"))
                  {
                    source.Open();
                    using (SQLiteConnection destination = new SQLiteConnection(
                        "FullUri=${srcFileName};"))
                    {
                      destination.Open();

                      source.BackupDatabase(
                          destination, "main", "main", -1, null, 0);
                    }
                  }
                }

                ///////////////////////////////////////////////////////////////

                public static void Main()
                {
                  // do nothing.
                }
              }
            }
          }] true true true results errors System.Data.SQLite.dll]
          if {$code eq "Ok"} then {
            set ::compiled(12) $id; # NOTE: Compiled OK.
            object invoke _Dynamic${id}.Test${id} BackupAndGetData
          } else {
            error $errors
          }
        }
        showTest C
      }
    }] 0]
  }]

  #############################################################################

  set workload(13) [list [list srcFileName dstFileName table count] {
    #
    # NOTE: Workload #13, backup from an in-memory database.
    #
    lappend ::times(13) [lindex [time {
      for {set index 1} {$index <= $count} {incr index} {
        if {[string is integer -strict $::compiled(13)]} then {
          set id $::compiled(13); # NOTE: Already compiled.
          object invoke _Dynamic${id}.Test${id} BackupAndGetData
        } else {
          set id [object invoke Interpreter.GetActive NextId]
          set code [compileCSharpWith [subst {
            using System;
            using System.Data.SQLite;
            using System.Text;

            namespace _Dynamic${id}
            {
              public static class Test${id}
              {
                public static void BackupAndGetData()
                {
                  using (SQLiteConnection source = new SQLiteConnection(
                      "FullUri=${srcFileName};"))
                  {
                    source.Open();
                    using (SQLiteConnection destination = new SQLiteConnection(
                        "FullUri=${dstFileName};"))
                    {
                      destination.Open();

                      source.BackupDatabase(
                          destination, "main", "main", -1, null, 0);
                    }
                  }
                }

                ///////////////////////////////////////////////////////////////

                public static void Main()
                {
                  // do nothing.
                }
              }
            }
          }] true true true results errors System.Data.SQLite.dll]
          if {$code eq "Ok"} then {
            set ::compiled(13) $id; # NOTE: Compiled OK.
            object invoke _Dynamic${id}.Test${id} BackupAndGetData
          } else {
            error $errors
          }
        }
        showTest D
      }
    }] 0]
  }]

  #############################################################################

  set workload(14) [list [list srcFileName dstFileName table count] {
    #