Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update Eagle script library in externals to the latest code. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8ddbcff54262343d2ab23979223092d6 |
| User & Date: | mistachkin 2015-09-30 19:22:07.801 |
Context
|
2015-10-01
| ||
| 04:07 | Pickup further upstream enhancements to the Eagle test suite prologue file. check-in: 607127f1bb user: mistachkin tags: trunk | |
|
2015-09-30
| ||
| 19:22 | Update Eagle script library in externals to the latest code. check-in: 8ddbcff542 user: mistachkin tags: trunk | |
| 18:48 | Update SQLite core library to the latest trunk code. check-in: a67fce442b user: mistachkin tags: trunk | |
Changes
Changes to Externals/Eagle/lib/Eagle1.0/test.eagle.
| ︙ | ︙ | |||
841 842 843 844 845 846 847 |
}
}
proc getFiles { directory pattern } {
if {[isEagle]} then {
set result [list]
| > | | | > | 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 |
}
}
proc getFiles { directory pattern } {
if {[isEagle]} then {
set result [list]
if {[file exists $directory] && [file isdirectory $directory]} then {
foreach fileName [lsort -dictionary [file list $directory $pattern]] {
if {[file isfile $fileName] && [file readable $fileName]} then {
lappend result $fileName
}
}
}
return $result
} else {
return [lsort -dictionary [glob -directory $directory -types \
{f r} -nocomplain -- $pattern]]
|
| ︙ | ︙ |
Changes to Externals/Eagle/lib/Test1.0/all.eagle.
| ︙ | ︙ | |||
43 44 45 46 47 48 49 50 51 52 53 54 55 |
# runTestEpilogue
#
if {![info exists test_all_path]} then {
set test_all_path \
[file normalize [file dirname [info script]]]
}
if {![info exists test_path]} then {
set test_path [file normalize [file join \
[file dirname [file dirname $test_all_path]] \
Library Tests]]
}
| > > < < | 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 |
# runTestEpilogue
#
if {![info exists test_all_path]} then {
set test_all_path \
[file normalize [file dirname [info script]]]
}
source [file join $test_all_path prologue.eagle]
if {![info exists test_path]} then {
set test_path [file normalize [file join \
[file dirname [file dirname $test_all_path]] \
Library Tests]]
}
set no(prologue.eagle) true
set no(epilogue.eagle) true
set test_time [time {
runAllTests $test_channel $test_path \
[getTestFiles [list $test_path] $test_flags(-file) \
$test_flags(-notFile)] \
|
| ︙ | ︙ |
Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.
| ︙ | ︙ | |||
884 885 886 887 888 889 890 891 892 893 894 895 896 897 |
$root_path \"\n]
tputs $test_channel [appendArgs "---- binary path: \"" \
$bin_path \"\n]
tputs $test_channel [appendArgs "---- library path: \"" \
$lib_path \"\n]
tputs $test_channel [appendArgs "---- test script files located in: \"" \
$test_path \"\n]
tputs $test_channel [appendArgs "---- test data files located in: \"" \
$test_data_path \"\n]
| > > > | 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 |
$root_path \"\n]
tputs $test_channel [appendArgs "---- binary path: \"" \
$bin_path \"\n]
tputs $test_channel [appendArgs "---- library path: \"" \
$lib_path \"\n]
tputs $test_channel [appendArgs "---- test suite files located in: \"" \
$test_all_path \"\n]
tputs $test_channel [appendArgs "---- test script files located in: \"" \
$test_path \"\n]
tputs $test_channel [appendArgs "---- test data files located in: \"" \
$test_data_path \"\n]
|
| ︙ | ︙ |