System.Data.SQLite
Check-in [4d3d734955]
Not logged in

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

Overview
Comment:For the test suite, pickup upstream Eagle script library hotfix dealing with Fossil command result handling.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 4d3d7349551d5e92fdb8090215ebed44b0cae735
User & Date: mistachkin 2016-03-22 04:01:22
Context
2016-03-22
04:04
Running the 'legacy' test program from the test suite should require the 'winForms' test constraint. check-in: d650aaeda5 user: mistachkin tags: trunk
04:01
For the test suite, pickup upstream Eagle script library hotfix dealing with Fossil command result handling. check-in: 4d3d734955 user: mistachkin tags: trunk
00:29
Simplify checking for test results that contain exception error messages. check-in: 8732a87f79 user: mistachkin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to Externals/Eagle/lib/Test1.0/constraints.eagle.

751
752
753
754
755
756
757
758
759
760


761
762

763
764
765
766
767
768
769
        }

        if {[canExecFossil] && \
            [catch {exec -- fossil info} info] == 0} then {
          set info [string trim $info]; set validFile false

          if {[string length $info] > 0} then {
            set pattern {^repository:\s+(.*?)\s+$}

            if {[regexp -line -- $pattern $info dummy repository] && \


                [file exists $repository]} then {
              set validFile true

            }
          }

          if {$validFile} then {
            #
            # NOTE: Add a constraint to show that a valid Fossil
            #       repository file appears to be available.







|

|
>
>
|
|
>







751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
        }

        if {[canExecFossil] && \
            [catch {exec -- fossil info} info] == 0} then {
          set info [string trim $info]; set validFile false

          if {[string length $info] > 0} then {
            set pattern {^repository:\s+(.*?)$}

            if {[regexp -line -- $pattern $info dummy repository]} then {
              set repository [string trim $repository]

              if {[file exists $repository]} then {
                set validFile true
              }
            }
          }

          if {$validFile} then {
            #
            # NOTE: Add a constraint to show that a valid Fossil
            #       repository file appears to be available.

Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.

337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
...
355
356
357
358
359
360
361
362


363
364
365
366
367
368
369
370
371
...
942
943
944
945
946
947
948






























































949
950
951
952
953
954
955
....
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108
3109
3110
3111
3112
3113
3114
3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125
3126
3127
3128
3129
3130
3131
3132
  #       the "Eagle.Test.Constraints" package.
  #
  if {![info exists root_path]} then {
    #
    # NOTE: Is the use of Fossil by the test suite allowed?
    #
    if {[canExecFossil]} then {
      set pattern {^local-root:\s+(.*?)\s+$}

      if {[catch {exec -- fossil info} exec] || \
          ![regexp -line -- $pattern $exec dummy directory]} then {
        #
        # NOTE: We could not query local root directory of the source
        #       checkout from Fossil; therefore, attempt to make an
        #       educated guess.  This value will probably be wrong for
................................................................................
        #       for that project.
        #
        set root_path $base_path
      } else {
        #
        # NOTE: We extracted the local root directory of the source
        #       checkout from Fossil.  Now, make sure it is fully
        #       normalized and has no trailing slashes.


        #
        set root_path [file normalize $directory]
      }

      unset -nocomplain directory dummy exec pattern
    } else {
      #
      # NOTE: Use of Fossil by the test suite is forbidden.  Fallback
      #       to using the base path.
................................................................................
  tputs $test_channel [appendArgs "---- native Tcl shell: " \
      [expr {[info exists test_tclsh] && [string length $test_tclsh] > 0 ? \
          [appendArgs \" $test_tclsh \"] : "<none>"}] \n]

  tputs $test_channel [appendArgs "---- disabled options: " \
      [formatList [lsort [array names no]] <none>] \n]































































  #
  # NOTE: Initialize the Eagle test constraints.
  #
  if {[isEagle]} then {
    #
    # NOTE: *WARNING* This has the effect of removing test constraints
    #       added prior to this point.
................................................................................
  #############################################################################

  #
  # NOTE: For Eagle, dump the platform information, including
  #       the compile options.
  #
  if {[isEagle]} then {
    #
    # NOTE: Is the use of Fossil by the test suite allowed?
    #
    if {[canExecFossil]} then {
      #
      # NOTE: Get the source checkout and tags (i.e. of Eagle or whatever
      #       project the Eagle binaries are being used by) using a Fossil
      #       binary in the PATH, if available.
      #
      if {[catch {exec -- fossil info} exec] == 0} then {
        set pattern {^checkout:\s+(.*?)\s+$}

        if {![regexp -line -- $pattern $exec dummy checkout]} then {
          #
          # NOTE: We could not query the source checkout from Fossil.
          #
          set checkout <none>
        }

        set pattern {^tags:\s+(.*?)\s+$}

        if {![regexp -line -- $pattern $exec dummy tags]} then {
          #
          # NOTE: We could not query the tags from Fossil.
          #
          set tags <none>
        }
      } else {
        #
        # NOTE: We could not query information from Fossil.
        #
        set checkout <none>
        set tags <none>
      }

      unset -nocomplain dummy exec pattern
    } else {
      #
      # NOTE: Use of Fossil by the test suite is forbidden.
      #
      set checkout <none>
      set tags <none>
    }

    tputs $test_channel [appendArgs "---- checkout: " \
        $checkout \n]

    tputs $test_channel [appendArgs "---- tags: " \
        $tags \n]

    unset tags checkout

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

    set timeStamp [getPlatformInfo timeStamp ""]

    if {[string length $timeStamp] > 0} then {
      #########################################################################
      # MONO: Bug, see: https://bugzilla.novell.com/show_bug.cgi?id=479061
      #########################################################################








|







 







|
>
>

|







 







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







 







<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<







337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
...
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
...
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
....
3129
3130
3131
3132
3133
3134
3135






















































3136
3137
3138
3139
3140
3141
3142
  #       the "Eagle.Test.Constraints" package.
  #
  if {![info exists root_path]} then {
    #
    # NOTE: Is the use of Fossil by the test suite allowed?
    #
    if {[canExecFossil]} then {
      set pattern {^local-root:\s+(.*?)$}

      if {[catch {exec -- fossil info} exec] || \
          ![regexp -line -- $pattern $exec dummy directory]} then {
        #
        # NOTE: We could not query local root directory of the source
        #       checkout from Fossil; therefore, attempt to make an
        #       educated guess.  This value will probably be wrong for
................................................................................
        #       for that project.
        #
        set root_path $base_path
      } else {
        #
        # NOTE: We extracted the local root directory of the source
        #       checkout from Fossil.  Now, make sure it is fully
        #       normalized and has no trailing slashes.  Also, make
        #       sure and remove any trailing newline "just in case"
        #       the regular expression engine included it.
        #
        set root_path [file normalize [string trim $directory]]
      }

      unset -nocomplain directory dummy exec pattern
    } else {
      #
      # NOTE: Use of Fossil by the test suite is forbidden.  Fallback
      #       to using the base path.
................................................................................
  tputs $test_channel [appendArgs "---- native Tcl shell: " \
      [expr {[info exists test_tclsh] && [string length $test_tclsh] > 0 ? \
          [appendArgs \" $test_tclsh \"] : "<none>"}] \n]

  tputs $test_channel [appendArgs "---- disabled options: " \
      [formatList [lsort [array names no]] <none>] \n]

  #
  # NOTE: Is the use of Fossil by the test suite allowed?
  #
  if {[canExecFossil]} then {
    #
    # NOTE: Get the source checkout and tags (i.e. of Eagle or whatever
    #       project the Eagle binaries are being used by) using a Fossil
    #       binary in the PATH, if available.
    #
    if {[catch {exec -- fossil info} exec] == 0} then {
      set pattern {^checkout:\s+(.*?)$}

      if {[regexp -line -- $pattern $exec dummy checkout]} then {
        #
        # NOTE: Remove any trailing newline.
        #
        set checkout [string trim $checkout]
      } else {
        #
        # NOTE: We could not query the source checkout from Fossil.
        #
        set checkout <none>
      }

      set pattern {^tags:\s+(.*?)$}

      if {[regexp -line -- $pattern $exec dummy tags]} then {
        #
        # NOTE: Remove any trailing newline.
        #
        set tags [string trim $tags]
      } else {
        #
        # NOTE: We could not query the tags from Fossil.
        #
        set tags <none>
      }
    } else {
      #
      # NOTE: We could not query information from Fossil.
      #
      set checkout <none>
      set tags <none>
    }

    unset -nocomplain dummy exec pattern
  } else {
    #
    # NOTE: Use of Fossil by the test suite is forbidden.
    #
    set checkout <none>
    set tags <none>
  }

  tputs $test_channel [appendArgs "---- checkout: " \
      $checkout \n]

  tputs $test_channel [appendArgs "---- tags: " \
      $tags \n]

  unset tags checkout

  #
  # NOTE: Initialize the Eagle test constraints.
  #
  if {[isEagle]} then {
    #
    # NOTE: *WARNING* This has the effect of removing test constraints
    #       added prior to this point.
................................................................................
  #############################################################################

  #
  # NOTE: For Eagle, dump the platform information, including
  #       the compile options.
  #
  if {[isEagle]} then {






















































    set timeStamp [getPlatformInfo timeStamp ""]

    if {[string length $timeStamp] > 0} then {
      #########################################################################
      # MONO: Bug, see: https://bugzilla.novell.com/show_bug.cgi?id=479061
      #########################################################################