Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: |
Downloads: |
Tarball
| ZIP archive
|
---|
Timelines: |
family
| ancestors
| descendants
| both
| trunk
|
Files: |
files
| file ages
| folders
|
SHA1: |
c0de75b66ee1e5857d8b0c6b17031376a68b680b |
User & Date: |
mistachkin
2013-12-18 05:33:25.662 |
Context
2013-12-18
| | |
08:01 |
|
check-in: d0f59a690b user: mistachkin tags: trunk
|
05:33 |
|
check-in: c0de75b66e user: mistachkin tags: trunk
|
2013-12-11
| | |
07:54 |
|
check-in: 16f09dbc53 user: mistachkin tags: trunk
|
| | |
Changes
Changes to Externals/Eagle/bin/Eagle.dll.
cannot compute difference between binary files
Changes to Externals/Eagle/bin/EagleShell.exe.
cannot compute difference between binary files
Changes to Externals/Eagle/bin/x64/Spilornis.dll.
cannot compute difference between binary files
Changes to Externals/Eagle/bin/x86/Spilornis.dll.
cannot compute difference between binary files
Changes to Externals/Eagle/lib/Eagle1.0/init.eagle.
︙ | | |
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
|
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
|
-
+
|
# NOTE: The engine patch level from the line is greater,
# we are out-of-date. Return the result of our
# checking now.
#
if {$checkBuild} then {
return [list [appendArgs \
"latest build " $patchLevel ", dated " $dateTime \
", is newer than running build " $enginePatchLevel \
", is newer than the running build " $enginePatchLevel \
", dated " $engineDateTime] [list $baseUri \
$patchLevel] [list $notes]]
}
#
# NOTE: The script patch level from the line matches the
# current engine patch level exactly, this script
|
︙ | | |
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
|
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
|
-
+
|
} elseif {$checkBuild && $compare < 0} then {
#
# NOTE: The patch level from the line is less, we are more
# up-to-date than the latest version?
#
return [list [appendArgs \
"running build " $enginePatchLevel ", dated " \
$engineDateTime ", is newer than latest build " \
$engineDateTime ", is newer than the latest build " \
$patchLevel ", dated " $dateTime]]
} elseif {$checkBuild} then {
#
# NOTE: The patch levels are equal, we are up-to-date.
#
return [list [appendArgs \
"running build " $enginePatchLevel ", dated " \
|
︙ | | |
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
|
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
|
+
-
+
|
return [list [appendArgs \
"processed " $scriptCount(total) " update scripts: " \
[array get scriptCount]]]
} else {
return [list "no update scripts were processed"]
}
} else {
return [list \
return [list "could not determine if running build is the latest"]
"could not determine if running build is the latest build"]
}
}
proc getReturnType { object member } {
if {[string length $object] == 0 || [string length $member] == 0} then {
return ""
}
|
︙ | | |
Added Externals/Eagle/lib/Test1.0/all.eagle.
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
###############################################################################
#
# all.eagle --
#
# This file contains a top-level script to run all of the Eagle tests.
# Execute it by invoking "source all.eagle".
#
# Extensible Adaptable Generalized Logic Engine (Eagle)
# Test Suite File
#
# Copyright (c) 2007-2012 by Joe Mistachkin. All rights reserved.
#
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: $
#
###############################################################################
#
# NOTE: *WARNING* This file must be capable of being evaluated in both Tcl and
# Eagle in a completely "clean" interpreter; therefore, no script library
# procedures provided by the Eagle.Library or Eagle.Test packages may be
# used, including [isEagle], until after the test prologue has been
# evaluated (below). Unfortunately, this makes it somewhat impractical
# to evaluate the test prologue using the abstracted [runTestPrologue]
# script library procedure from the Eagle.Test package. Instead, we must
# assume that the test prologue file exists in the same directory as this
# file and evaluate it using [source]. For third-party applications and
# plugins that are Eagle-specific (i.e. they cannot be used in Tcl), the
# following code snippet may be used instead of setting the "test_path"
# variable and then evaluating the "prologue.eagle" file directly:
#
# package require Eagle.Library
# package require Eagle.Test
#
# runTestPrologue
#
# When using the above code snippet, the following code snippet may also
# be used at the very end of the corresponding "all.eagle" file instead
# of evaluating the "epilogue.eagle" file directly:
#
# runTestEpilogue
#
if {![info exists test_path]} then {
set test_path [file normalize [file dirname [info script]]]
}
source [file join $test_path prologue.eagle]
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)] \
[list [file tail [info script]] *.tcl pkgIndex.eagle \
constraints.eagle epilogue.eagle prologue.eagle]
}]
tputs $test_channel [appendArgs "---- all tests completed in " $test_time \n]
unset test_time
unset no(epilogue.eagle)
unset no(prologue.eagle)
if {[array size no] == 0} then {unset no}
source [file join $test_path epilogue.eagle]
|
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.
︙ | | |
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
|
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
|
-
-
-
+
+
+
+
-
+
-
+
+
+
-
-
+
+
+
|
#
# NOTE: Set the Tcl shell executable to use for those specialized
# tests that may require it, if necessary.
#
if {![info exists test_tclsh]} then {
#
# NOTE: When running in Eagle, more complex logic is required to
# determine the Tcl shell to use for the various tests that
# require it. Also, this same logic is used with Tcl when it
# is not running from an instance of the Tcl shell executable.
# determine the native Tcl shell to use for the various tests
# that require it. Also, this same logic is used with Tcl
# when it is not running from an instance of the Tcl shell
# executable.
#
if {[isEagle] || ![string match tclsh* $bin_file]} then {
if {[info exists test_flags(-tclsh)] && \
[string length $test_flags(-tclsh)] > 0} then {
#
# NOTE: Use the Tcl shell specified via the command line.
# NOTE: Use the native Tcl shell specified via the command line.
#
set test_tclsh $test_flags(-tclsh)
} else {
if {![info exists no(getTclShellFileName)]} then {
#
# NOTE: Attempt to automatically select a Tcl shell to use.
# NOTE: Attempt to automatically select the native Tcl shell
# to use.
#
if {![info exists no(warningForTclShell)]} then {
tputs $test_channel \
"==== WARNING: attempting automatic Tcl shell selection...\n"
tputs $test_channel \
"==== WARNING: attempting automatic Tcl shell selection...\n"
}
set test_tclsh [getTclShellFileName true]
} else {
#
# NOTE: Skip detection and use the fallback default.
#
set test_tclsh tclsh
|
︙ | | |
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
|
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
|
-
+
|
#
# NOTE: When running in Eagle, check for any non-core plugins loaded into
# the interpreter and issue warnings if any are found. The warning
# may be used to explain subsequent test failures due to the extra
# plugins being loaded (i.e. there are some tests are sensitive to
# having "unexpected" plugins loaded).
#
if {[isEagle]} then {
if {[isEagle] && ![info exists no(warningForPlugin)]} then {
foreach loaded [info loaded] {
#
# HACK: This code assumes that all plugins in the "Eagle._Plugins"
# namespace belong to the Eagle core library itself.
#
if {![string match Eagle._Plugins.* [lindex $loaded 1]]} then {
tputs $test_channel [appendArgs \
|
︙ | | |
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
|
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
|
-
+
|
[expr {[info exists test_configuration] ? \
$test_configuration : "<none>"}] \n]
tputs $test_channel [appendArgs "---- test suffix: " \
[expr {[info exists test_suffix] ? \
$test_suffix : "<none>"}] \n]
if {[isEagle]} then {
if {[isEagle] && ![info exists no(warningForStrongName)]} then {
catch {info engine PublicKeyToken} publicKeyToken
if {[string length $publicKeyToken] == 0} then {
#
# NOTE: The Eagle core library is not strong name signed. This is not an
# error, per se; however, it may cause some tests to fail and it
# should be reported to the user and noted in the test suite log
|
︙ | | |
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
|
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
|
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
#
if {![info exists no(testShell)]} then {
#
# NOTE: For test "debug-1.3".
#
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestShellMainCore*
}
#
# NOTE: Has quiet property testing support been disabled?
#
if {![info exists no(testSetQuiet)]} then {
#
# NOTE: For tests "basic-1.36" and "debug-1.3".
#
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestSetQuiet*
}
#
# NOTE: Has complaint testing support been disabled?
#
if {![info exists no(testSetComplain)]} then {
#
# NOTE: This is not currently used by any tests.
#
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestSetComplain*
}
#
# NOTE: Has linked variable testing support been disabled?
#
if {![info exists no(testLinkedVariables)]} then {
#
# NOTE: For tests "basic-1.39", "basic-1.40", "basic-1.41",
|
︙ | | |