Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update Eagle script library in externals to the latest trunk. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
40b940e610df165c6d0396b4fdd31100 |
| User & Date: | mistachkin 2013-02-27 22:45:45 |
Context
|
2013-02-28
| ||
| 03:26 | Fix compilation issues on the .NET Compact Framework 2.0. check-in: 968b6f7b1c user: mistachkin tags: trunk | |
|
2013-02-27
| ||
| 22:45 | Update Eagle script library in externals to the latest trunk. check-in: 40b940e610 user: mistachkin tags: trunk | |
| 07:26 | Update SQLite core library to the latest trunk. check-in: 956d686069 user: mistachkin tags: trunk | |
Changes
Changes to Externals/Eagle/lib/Eagle1.0/test.eagle.
601 602 603 604 605 606 607 608 609 610 611 612 613 614 .... 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 1848 1849 1850 1851 1852 1853 1854 1855 1856 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 .... 2143 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 2156 2157 |
return [expr {[info exists ::test_log_id] ? \
[append result . $::test_log_id] : ""}]
}
proc getTestLog {} {
return [expr {[info exists ::test_log] ? $::test_log : ""}]
}
proc testExec { commandName options args } {
set command [list exec]
if {[llength $options] > 0} then {eval lappend command $options}
lappend command -- $commandName
................................................................................
proc getTkVersion {} {
return [testExecTclScript {
puts -nonewline stdout [package require Tk]; exit
}]
}
proc getTestMachine {} {
#
# NOTE: Determine the effective test machine and return it. If the
# test machine cannot be determined, return an empty string.
#
if {[info exists ::test_flags(-machine)] && \
[string length $::test_flags(-machine)] > 0} then {
#
# NOTE: The test machine has been manually overridden via the test
# flags; therefore, use it.
#
return $::test_flags(-machine)
} elseif {[info exists ::test_machine]} then {
#
# NOTE: Use the test machine. The default value is set by the test
# suite prologue; however, this may have been overridden.
#
return $::test_machine
} elseif {[info exists ::tcl_platform(machine)]} then {
#
# NOTE: Use the build machine of Eagle itself.
#
return $::tcl_platform(machine)
} else {
#
# NOTE: We are missing the machine, return nothing.
#
return ""
}
}
proc getTestPlatform {} {
#
# NOTE: Determine the effective test platform and return it. If the
# test platform cannot be determined, return an empty string.
#
if {[info exists ::test_flags(-platform)] && \
[string length $::test_flags(-platform)] > 0} then {
#
# NOTE: The test platform has been manually overridden via the test
# flags; therefore, use it.
#
return $::test_flags(-platform)
} elseif {[info exists ::test_platform]} then {
#
# NOTE: Use the test platform. The default value is set by the test
# suite prologue; however, this may have been overridden.
#
return $::test_platform
} else {
set machine [getTestMachine]
if {[string length $machine] > 0} then {
#
# NOTE: Use the machine architecture to figure out the platform
# and then return it.
#
return [machineToPlatform $machine]
} else {
#
# NOTE: We are missing the machine and we cannot figure out the
# platform without it; therefore, return nothing.
#
return ""
}
}
}
proc getTestConfiguration {} {
#
# NOTE: Determine the effective test configuration and return it. If
# the test configuration cannot be determined, return an empty
# string.
#
if {[info exists ::test_flags(-configuration)] && \
[string length $::test_flags(-configuration)] > 0} then {
#
# NOTE: The test configuration has been manually overridden via the
# test flags; therefore, use it.
#
return $::test_flags(-configuration)
} elseif {[info exists ::test_configuration]} then {
#
# NOTE: Use the test configuration. The default value is set by the
# test suite prologue; however, this may have been overridden.
#
return $::test_configuration
} elseif {[info exists ::eagle_platform(configuration)]} then {
#
# NOTE: Use the build configuration of Eagle itself. This value will
# most likely be either "Debug" or "Release".
#
return $::eagle_platform(configuration)
} else {
#
# NOTE: We are missing the configuration, return nothing.
#
return ""
}
}
proc getTestSuffix {} {
#
# NOTE: Determine the effective test suffix and return it. If
# the test suffix cannot be determined, return an empty
# string.
#
if {[info exists ::test_flags(-suffix)] && \
[string length $::test_flags(-suffix)] > 0} then {
#
# NOTE: The test suffix has been manually overridden via the
# test flags; therefore, use it.
#
return $::test_flags(-suffix)
} elseif {[info exists ::test_suffix]} then {
#
# NOTE: Use the test suffix. There is no default value for
# this variable (i.e. by default, it does not exist).
#
return $::test_suffix
} elseif {[info exists ::eagle_platform(text)]} then {
#
# NOTE: Use the build text of Eagle itself. This value will
# typically be "NetFx20" or "NetFx40".
#
return $::eagle_platform(text)
} else {
#
# NOTE: We are missing the suffix, return nothing.
#
return ""
}
}
proc getGarudaDll {} {
#
# NOTE: Get the Garuda DLL of the same platform (i.e. machine type)
# as the native Tcl shell.
#
if {[info exists ::base_path]} then {
#
................................................................................
# namespace as well.
#
exportAndImportPackageCommands [namespace current] [list \
tputs tlog getSoftwareRegistryKey haveConstraint addConstraint \
haveOrAddConstraint getConstraints removeConstraint fixConstraints \
calculateBogoCops calculateRelativePerformance sourceIfValid \
processTestArguments getTclShellFileName getTemporaryPath getFiles \
getTestFiles getTestRunId getTestLogId getTestLog testExec \
testClrExec execTestShell isStopOnFailure isExitOnComplete \
returnInfoScript runTestPrologue runTestEpilogue hookPuts unhookPuts \
runTest testShim tsource recordTestStatistics reportTestStatistics \
formatList formatListAsDict pathToRegexp inverseLsearchGlob \
removePathFromFileNames formatDecimal clearTestPercent \
reportTestPercent runAllTests configureTcltest machineToPlatform \
getPassPercentage getSkipPercentage] false false
|
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < | > |
601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 .... 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 .... 2143 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 2156 2157 2158 |
return [expr {[info exists ::test_log_id] ? \
[append result . $::test_log_id] : ""}]
}
proc getTestLog {} {
return [expr {[info exists ::test_log] ? $::test_log : ""}]
}
proc getTestMachine {} {
#
# NOTE: Determine the effective test machine and return it. If the
# test machine cannot be determined, return an empty string.
#
if {[info exists ::test_flags(-machine)] && \
[string length $::test_flags(-machine)] > 0} then {
#
# NOTE: The test machine has been manually overridden via the test
# flags; therefore, use it.
#
return $::test_flags(-machine)
} elseif {[info exists ::test_machine]} then {
#
# NOTE: Use the test machine. The default value is set by the test
# suite prologue; however, this may have been overridden.
#
return $::test_machine
} elseif {[info exists ::tcl_platform(machine)]} then {
#
# NOTE: Use the build machine of Eagle itself.
#
return $::tcl_platform(machine)
} else {
#
# NOTE: We are missing the machine, return nothing.
#
return ""
}
}
proc getTestPlatform { {architecture false} } {
#
# NOTE: Determine the effective test platform and return it. If the
# test platform cannot be determined, return an empty string.
#
if {[info exists ::test_flags(-platform)] && \
[string length $::test_flags(-platform)] > 0} then {
#
# NOTE: The test platform has been manually overridden via the test
# flags; therefore, use it.
#
return $::test_flags(-platform)
} elseif {[info exists ::test_platform]} then {
#
# NOTE: Use the test platform. The default value is set by the test
# suite prologue; however, this may have been overridden.
#
return $::test_platform
} else {
set machine [getTestMachine]
if {[string length $machine] > 0} then {
#
# NOTE: Use the machine architecture to figure out the platform
# and then return it.
#
return [machineToPlatform $machine $architecture]
} else {
#
# NOTE: We are missing the machine and we cannot figure out the
# platform without it; therefore, return nothing.
#
return ""
}
}
}
proc getTestConfiguration {} {
#
# NOTE: Determine the effective test configuration and return it. If
# the test configuration cannot be determined, return an empty
# string.
#
if {[info exists ::test_flags(-configuration)] && \
[string length $::test_flags(-configuration)] > 0} then {
#
# NOTE: The test configuration has been manually overridden via the
# test flags; therefore, use it.
#
return $::test_flags(-configuration)
} elseif {[info exists ::test_configuration]} then {
#
# NOTE: Use the test configuration. The default value is set by the
# test suite prologue; however, this may have been overridden.
#
return $::test_configuration
} elseif {[info exists ::eagle_platform(configuration)]} then {
#
# NOTE: Use the build configuration of Eagle itself. This value will
# most likely be either "Debug" or "Release".
#
return $::eagle_platform(configuration)
} else {
#
# NOTE: We are missing the configuration, return nothing.
#
return ""
}
}
proc getTestSuffix {} {
#
# NOTE: Determine the effective test suffix and return it. If
# the test suffix cannot be determined, return an empty
# string.
#
if {[info exists ::test_flags(-suffix)] && \
[string length $::test_flags(-suffix)] > 0} then {
#
# NOTE: The test suffix has been manually overridden via the
# test flags; therefore, use it.
#
return $::test_flags(-suffix)
} elseif {[info exists ::test_suffix]} then {
#
# NOTE: Use the test suffix. There is no default value for
# this variable (i.e. by default, it does not exist).
#
return $::test_suffix
} elseif {[info exists ::eagle_platform(text)]} then {
#
# NOTE: Use the build text of Eagle itself. This value will
# typically be "NetFx20" or "NetFx40".
#
return $::eagle_platform(text)
} else {
#
# NOTE: We are missing the suffix, return nothing.
#
return ""
}
}
proc testExec { commandName options args } {
set command [list exec]
if {[llength $options] > 0} then {eval lappend command $options}
lappend command -- $commandName
................................................................................
proc getTkVersion {} {
return [testExecTclScript {
puts -nonewline stdout [package require Tk]; exit
}]
}
proc getGarudaDll {} {
#
# NOTE: Get the Garuda DLL of the same platform (i.e. machine type)
# as the native Tcl shell.
#
if {[info exists ::base_path]} then {
#
................................................................................
# namespace as well.
#
exportAndImportPackageCommands [namespace current] [list \
tputs tlog getSoftwareRegistryKey haveConstraint addConstraint \
haveOrAddConstraint getConstraints removeConstraint fixConstraints \
calculateBogoCops calculateRelativePerformance sourceIfValid \
processTestArguments getTclShellFileName getTemporaryPath getFiles \
getTestFiles getTestRunId getTestLogId getTestLog getTestMachine \
getTestPlatform getTestConfiguration getTestSuffix testExec \
testClrExec execTestShell isStopOnFailure isExitOnComplete \
returnInfoScript runTestPrologue runTestEpilogue hookPuts unhookPuts \
runTest testShim tsource recordTestStatistics reportTestStatistics \
formatList formatListAsDict pathToRegexp inverseLsearchGlob \
removePathFromFileNames formatDecimal clearTestPercent \
reportTestPercent runAllTests configureTcltest machineToPlatform \
getPassPercentage getSkipPercentage] false false
|
Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.
329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 |
}
}
#
# NOTE: Set the default test machine (e.g. amd64, intel, etc), if necessary.
#
if {![info exists test_machine]} then {
set test_machine [expr {[info exists tcl_platform(machine)] ? \
$tcl_platform(machine) : ""}]
}
#
# NOTE: Set the default test platform (e.g. x86, x64, etc), if necessary.
#
if {![info exists test_platform]} then {
set test_platform [machineToPlatform $test_machine true]
}
#
# NOTE: Set the default test configuration (i.e. Debug or Release), if
# necessary.
#
if {![info exists test_configuration]} then {
|
| < | |
329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 |
}
}
#
# NOTE: Set the default test machine (e.g. amd64, intel, etc), if necessary.
#
if {![info exists test_machine]} then {
set test_machine [getTestMachine]
}
#
# NOTE: Set the default test platform (e.g. x86, x64, etc), if necessary.
#
if {![info exists test_platform]} then {
set test_platform [getTestPlatform true]
}
#
# NOTE: Set the default test configuration (i.e. Debug or Release), if
# necessary.
#
if {![info exists test_configuration]} then {
|