System.Data.SQLite


proc usage { error } {
  if {[string length $error] > 0} then {puts stdout $error}

  puts stdout "usage:\
[file tail [info nameofexecutable]]\
[file tail [info script]] \[year\] \[platform\] \[configuration\]\
\[culture\] \[platformId\] \[deviceId\] \[mode\] \[quiet\]"

  #
  # NOTE: Indicate to the caller, if any, that we have failed.
  #
  exit 1
}


  }

  return -1
}

set argc [llength $argv]

if {$argc >= 0 && $argc <= 8} then {
  #
  # NOTE: Setup the default values for all command line options.
  #
  array set default {
            year 2008
        platform {Pocket PC 2003 (ARMV4)}
   configuration Release
         culture en-US
      platformId 3c41c503-53ef-4c2a-8dd4-a8217cad115e
        deviceId {}
            mode test
           quiet false
  }

  #
  # NOTE: Process all the command line options.  If a command line option
  #       is not present, use the default value.
  #
  set names [list \
      year platform configuration culture platformId deviceId mode quiet]

  for {set index 0} {$index < [llength $names]} {incr index} {
    set name [lindex $names $index]; set value ""

    if {$argc > $index} then {
      set value [string trim [lindex $argv $index]]
    }

  #
  set path [file dirname [info script]]

  #
  # NOTE: The base path should be the project root directory, which should
  #       be one level above the one containing this script.
  #
  if {![info exists base_path]} then {
    set base_path [file dirname $path]
  }

  #
  # NOTE: The managed binaries to be deployed to the target device should
  #       be located in the "<base>\bin\<year>\<configuration>Compact\bin"
  #       directory.
  #
  if {![info exists managed_directory]} then {
    set managed_directory [file join \
        $base_path bin $year [appendArgs $configuration Compact] bin]
  }

  #
  # NOTE: The native binaries to be deployed to the target device should
  #       be located in the "<base>\bin\<year>\<platform>\<configuration>"
  #       directory.
  #
  if {![info exists native_directory]} then {
    set native_directory [file join \
        $base_path bin $year $platform $configuration]
  }

  #
  # NOTE: Figure out the main test file names based on the mode argument from
  #       the caller.
  #
  switch -exact -nocase -- $mode {
    test {
      set testFileNameOnly testce.exe
      set cfgFileNameOnly test.cfg
      set sqlFileNameOnly test.sql
    }
    shell {
      set testFileNameOnly shellce.exe
      set cfgFileNameOnly shell.cfg
      set sqlFileNameOnly shell.sql
    }
    default {
      error [appendArgs "unsupported mode \"" $mode \"]
    }
  }

  #
  # NOTE: Build the list of all application files that need to be deployed to
  #       the target device, including all the native and managed binaries.
  #
  if {![info exists fileNames]} then {
    #
    # NOTE: Grab the assembly name instance based on the primary managed
    #       assembly file name.  This is needed because the build portion of
    #       the assembly version is used when building the default list of
    #       application files to be deployed to the target device.
    #
    set assemblyName [object invoke -alias System.Reflection.AssemblyName \
        GetAssemblyName [file join $managed_directory System.Data.SQLite.dll]]

    #
    # NOTE: The default list of application files includes the test application
    #       itself, the System.Data.SQLite managed assembly, the SQLite interop
    #       assembly, and the test application configuration file.
    #
    set fileNames [list [file join $managed_directory $testFileNameOnly] \
        [file join $managed_directory System.Data.SQLite.dll] [file join \
        $native_directory [appendArgs SQLite.Interop. [format %03d \
        [$assemblyName Version.Build]] .dll]] [file join $managed_directory \
        $cfgFileNameOnly] [file join $managed_directory $sqlFileNameOnly]]
  }

  #
  # NOTE: Setup the directory on the target device where the application files
  #       should be deployed to.  It should be noted that this directory value
  #       does not vary based on the mode.
  #
  if {![info exists device_directory]} then {
    set device_directory "\\Program Files\\testce\\"
  }

  #
  # NOTE: Load the managed assembly that allows us to communicate with the

  #
  # NOTE: Run the test application on the target device in "automatic" mode
  #       (i.e. no user interaction is required) and capture the exit code.
  #       The exit code will be zero upon success (i.e. all tests passed) or
  #       non-zero otherwise.
  #
  set testFileName [file nativename \
      [file join $device_directory $testFileNameOnly]]

  #
  # NOTE: The first (and only) argument passed to main test EXE on the device
  #       is the auto-close flag.  When non-zero, it will close automatically
  #       upon completion.  Setting this to zero is sometimes useful in order
  #       to more carefully examine the detailed results.
  #
  set exitCode [startRemoteProcess $device $testFileName true]

  #