System.Data.SQLite

    return [expr {[info exists ::test_log_id] ? \
        [append result . $::test_log_id] : ""}]
  }

  proc getTestLog {} {
    return [expr {[info exists ::test_log] ? $::test_log : ""}]
  }







































































































































  proc testExec { commandName options args } {
    set command [list exec]

    if {[llength $options] > 0} then {eval lappend command $options}

    lappend command -- $commandName


    proc getTkVersion {} {
      return [testExecTclScript {
        puts -nonewline stdout [package require Tk]; exit
      }]
    }

    proc getTestMachine {} {
      #
      # NOTE: Determine the effective test machine and return it.  If the
      #       test machine cannot be determined, return an empty string.
      #
      if {[info exists ::test_flags(-machine)] && \
          [string length $::test_flags(-machine)] > 0} then {
        #
        # NOTE: The test machine has been manually overridden via the test
        #       flags; therefore, use it.
        #
        return $::test_flags(-machine)
      } elseif {[info exists ::test_machine]} then {
        #
        # NOTE: Use the test machine.  The default value is set by the test
        #       suite prologue; however, this may have been overridden.
        #
        return $::test_machine
      } elseif {[info exists ::tcl_platform(machine)]} then {
        #
        # NOTE: Use the build machine of Eagle itself.
        #
        return $::tcl_platform(machine)
      } else {
        #
        # NOTE: We are missing the machine, return nothing.
        #
        return ""
      }
    }

    proc getTestPlatform {} {
      #
      # NOTE: Determine the effective test platform and return it.  If the
      #       test platform cannot be determined, return an empty string.
      #
      if {[info exists ::test_flags(-platform)] && \
          [string length $::test_flags(-platform)] > 0} then {
        #
        # NOTE: The test platform has been manually overridden via the test
        #       flags; therefore, use it.
        #
        return $::test_flags(-platform)
      } elseif {[info exists ::test_platform]} then {
        #
        # NOTE: Use the test platform.  The default value is set by the test
        #       suite prologue; however, this may have been overridden.
        #
        return $::test_platform
      } else {
        set machine [getTestMachine]

        if {[string length $machine] > 0} then {
          #
          # NOTE: Use the machine architecture to figure out the platform
          #       and then return it.
          #
          return [machineToPlatform $machine]
        } else {
          #
          # NOTE: We are missing the machine and we cannot figure out the
          #       platform without it; therefore, return nothing.
          #
          return ""
        }
      }
    }

    proc getTestConfiguration {} {
      #
      # NOTE: Determine the effective test configuration and return it.  If
      #       the test configuration cannot be determined, return an empty
      #       string.
      #
      if {[info exists ::test_flags(-configuration)] && \
          [string length $::test_flags(-configuration)] > 0} then {
        #
        # NOTE: The test configuration has been manually overridden via the
        #       test flags; therefore, use it.
        #
        return $::test_flags(-configuration)
      } elseif {[info exists ::test_configuration]} then {
        #
        # NOTE: Use the test configuration.  The default value is set by the
        #       test suite prologue; however, this may have been overridden.
        #
        return $::test_configuration
      } elseif {[info exists ::eagle_platform(configuration)]} then {
        #
        # NOTE: Use the build configuration of Eagle itself.  This value will
        #       most likely be either "Debug" or "Release".
        #
        return $::eagle_platform(configuration)
      } else {
        #
        # NOTE: We are missing the configuration, return nothing.
        #
        return ""
      }
    }

    proc getTestSuffix {} {
      #
      # NOTE: Determine the effective test suffix and return it.  If
      #       the test suffix cannot be determined, return an empty
      #       string.
      #
      if {[info exists ::test_flags(-suffix)] && \
          [string length $::test_flags(-suffix)] > 0} then {
        #
        # NOTE: The test suffix has been manually overridden via the
        #       test flags; therefore, use it.
        #
        return $::test_flags(-suffix)
      } elseif {[info exists ::test_suffix]} then {
        #
        # NOTE: Use the test suffix.  There is no default value for
        #       this variable (i.e. by default, it does not exist).
        #
        return $::test_suffix
      } elseif {[info exists ::eagle_platform(text)]} then {
        #
        # NOTE: Use the build text of Eagle itself.  This value will
        #       typically be "NetFx20" or "NetFx40".
        #
        return $::eagle_platform(text)
      } else {
        #
        # NOTE: We are missing the suffix, return nothing.
        #
        return ""
      }
    }

    proc getGarudaDll {} {
      #
      # NOTE: Get the Garuda DLL of the same platform (i.e. machine type)
      #       as the native Tcl shell.
      #
      if {[info exists ::base_path]} then {
        #

    #       namespace as well.
    #
    exportAndImportPackageCommands [namespace current] [list \
        tputs tlog getSoftwareRegistryKey haveConstraint addConstraint \
        haveOrAddConstraint getConstraints removeConstraint fixConstraints \
        calculateBogoCops calculateRelativePerformance sourceIfValid \
        processTestArguments getTclShellFileName getTemporaryPath getFiles \
        getTestFiles getTestRunId getTestLogId getTestLog testExec \

        testClrExec execTestShell isStopOnFailure isExitOnComplete \
        returnInfoScript runTestPrologue runTestEpilogue hookPuts unhookPuts \
        runTest testShim tsource recordTestStatistics reportTestStatistics \
        formatList formatListAsDict pathToRegexp inverseLsearchGlob \
        removePathFromFileNames formatDecimal clearTestPercent \
        reportTestPercent runAllTests configureTcltest machineToPlatform \
        getPassPercentage getSkipPercentage] false false

    }
  }

  #
  # NOTE: Set the default test machine (e.g. amd64, intel, etc), if necessary.
  #
  if {![info exists test_machine]} then {
    set test_machine [expr {[info exists tcl_platform(machine)] ? \
        $tcl_platform(machine) : ""}]
  }

  #
  # NOTE: Set the default test platform (e.g. x86, x64, etc), if necessary.
  #
  if {![info exists test_platform]} then {
    set test_platform [machineToPlatform $test_machine true]
  }

  #
  # NOTE: Set the default test configuration (i.e. Debug or Release), if
  #       necessary.
  #
  if {![info exists test_configuration]} then {