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: |
4d3d7349551d5e92fdb8090215ebed44 |
| 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
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
#########################################################################
|