Artifact b0354af65f27b8dd4c6d87a8610eaf4dea9cf62d:
###############################################################################
#
# 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_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 {
#
# NOTE: Build a reusable expression that can be used to verify the
# candidate paths. This is done to avoid duplication of this
# (quite complex) expression several times (just below).
#
set expr {![info exists test_path] || ![file exists $test_path] || \
![file isdirectory $test_path] || ([llength [info commands \
glob]] > 0 && [llength [glob -directory $test_path -types {f r} \
-nocomplain -- *]] == 0)}
#
# NOTE: Search for the "Library/Tests" -OR- "Tests" sub-directories
# within the sub-directory one level up and then two levels up
# from the sub-directory containing the "all.eagle" file from
# the test suite package.
#
set test_path [file normalize \
[file join [file dirname $test_all_path] Library Tests]]
if {[expr $expr]} then {
set test_path [file normalize \
[file join [file dirname [file dirname $test_all_path]] \
Library Tests]]
}
if {[expr $expr]} then {
set test_path [file normalize \
[file join [file dirname $test_all_path] Tests]]
}
if {[expr $expr]} then {
set test_path [file normalize \
[file join [file dirname [file dirname $test_all_path]] \
Tests]]
}
unset expr
}
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 \
epilogue.eagle prologue.eagle] \
$test_flags(-startFile) $test_flags(-stopFile)
}]
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_all_path epilogue.eagle]