Artifact
21ef0675e286d305c52bd17754be6f645bb83746:
0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d ###############.
0050: 0a 23 0d 0a 23 20 65 70 69 6c 6f 67 75 65 2e 65 .#..# epilogue.e
0060: 61 67 6c 65 20 2d 2d 0d 0a 23 0d 0a 23 20 45 78 agle --..#..# Ex
0070: 74 65 6e 73 69 62 6c 65 20 41 64 61 70 74 61 62 tensible Adaptab
0080: 6c 65 20 47 65 6e 65 72 61 6c 69 7a 65 64 20 4c le Generalized L
0090: 6f 67 69 63 20 45 6e 67 69 6e 65 20 28 45 61 67 ogic Engine (Eag
00a0: 6c 65 29 0d 0a 23 20 54 65 73 74 20 45 70 69 6c le)..# Test Epil
00b0: 6f 67 75 65 20 46 69 6c 65 0d 0a 23 0d 0a 23 20 ogue File..#..#
00c0: 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 32 30 Copyright (c) 20
00d0: 30 37 2d 32 30 31 32 20 62 79 20 4a 6f 65 20 4d 07-2012 by Joe M
00e0: 69 73 74 61 63 68 6b 69 6e 2e 20 20 41 6c 6c 20 istachkin. All
00f0: 72 69 67 68 74 73 20 72 65 73 65 72 76 65 64 2e rights reserved.
0100: 0d 0a 23 0d 0a 23 20 53 65 65 20 74 68 65 20 66 ..#..# See the f
0110: 69 6c 65 20 22 6c 69 63 65 6e 73 65 2e 74 65 72 ile "license.ter
0120: 6d 73 22 20 66 6f 72 20 69 6e 66 6f 72 6d 61 74 ms" for informat
0130: 69 6f 6e 20 6f 6e 20 75 73 61 67 65 20 61 6e 64 ion on usage and
0140: 20 72 65 64 69 73 74 72 69 62 75 74 69 6f 6e 20 redistribution
0150: 6f 66 0d 0a 23 20 74 68 69 73 20 66 69 6c 65 2c of..# this file,
0160: 20 61 6e 64 20 66 6f 72 20 61 20 44 49 53 43 4c and for a DISCL
0170: 41 49 4d 45 52 20 4f 46 20 41 4c 4c 20 57 41 52 AIMER OF ALL WAR
0180: 52 41 4e 54 49 45 53 2e 0d 0a 23 0d 0a 23 20 52 RANTIES...#..# R
0190: 43 53 3a 20 40 28 23 29 20 24 49 64 3a 20 24 0d CS: @(#) $Id: $.
01a0: 0a 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 .#..############
01b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01f0: 23 23 23 0d 0a 0d 0a 69 66 20 7b 21 5b 69 6e 66 ###....if {![inf
0200: 6f 20 65 78 69 73 74 73 20 6e 6f 28 5b 66 69 6c o exists no([fil
0210: 65 20 74 61 69 6c 20 5b 69 6e 66 6f 20 73 63 72 e tail [info scr
0220: 69 70 74 5d 5d 29 5d 7d 20 74 68 65 6e 20 7b 0d ipt]])]} then {.
0230: 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 6c 65 76 . if {[info lev
0240: 65 6c 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d el] > 0} then {.
0250: 0a 20 20 20 20 65 72 72 6f 72 20 22 63 61 6e 6e . error "cann
0260: 6f 74 20 72 75 6e 2c 20 63 75 72 72 65 6e 74 20 ot run, current
0270: 6c 65 76 65 6c 20 69 73 20 6e 6f 74 20 67 6c 6f level is not glo
0280: 62 61 6c 22 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 bal".. }.... #
0290: 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 56 65 72 69 .. # NOTE: Veri
02a0: 66 79 20 74 68 61 74 20 74 68 65 20 63 75 72 72 fy that the curr
02b0: 65 6e 74 20 63 61 6c 6c 20 66 72 61 6d 65 20 69 ent call frame i
02c0: 73 20 63 6f 72 72 65 63 74 20 61 6e 64 20 74 68 s correct and th
02d0: 61 74 20 74 68 65 0d 0a 20 20 23 20 20 20 20 20 at the.. #
02e0: 20 20 69 6e 74 65 72 70 72 65 74 65 72 20 63 61 interpreter ca
02f0: 6c 6c 20 73 74 61 63 6b 20 68 61 73 20 6e 6f 74 ll stack has not
0300: 20 62 65 65 6e 20 69 6d 62 61 6c 61 6e 63 65 64 been imbalanced
0310: 20 62 79 20 70 72 65 76 69 6f 75 73 0d 0a 20 20 by previous..
0320: 23 20 20 20 20 20 20 20 74 65 73 74 73 20 6f 72 # tests or
0330: 20 6f 74 68 65 72 20 65 72 72 6f 72 73 2e 20 20 other errors.
0340: 54 68 69 73 20 63 68 65 63 6b 20 6f 6e 6c 79 20 This check only
0350: 61 70 70 6c 69 65 73 20 74 6f 20 45 61 67 6c 65 applies to Eagle
0360: 2e 0d 0a 20 20 23 0d 0a 20 20 69 66 20 7b 5b 69 ... #.. if {[i
0370: 73 45 61 67 6c 65 5d 7d 20 74 68 65 6e 20 7b 0d sEagle]} then {.
0380: 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f . #.. # NO
0390: 54 45 3a 20 43 68 65 63 6b 20 74 68 65 20 6e 61 TE: Check the na
03a0: 6d 65 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e me of the curren
03b0: 74 20 63 61 6c 6c 20 66 72 61 6d 65 20 61 67 61 t call frame aga
03c0: 69 6e 73 74 20 74 68 65 20 6f 6e 65 0d 0a 20 20 inst the one..
03d0: 20 20 23 20 20 20 20 20 20 20 74 68 61 74 20 73 # that s
03e0: 68 6f 75 6c 64 20 62 65 20 75 73 65 64 20 66 6f hould be used fo
03f0: 72 20 65 76 61 6c 75 61 74 69 6e 67 20 74 68 69 r evaluating thi
0400: 73 20 73 63 72 69 70 74 20 66 69 6c 65 2e 0d 0a s script file...
0410: 20 20 20 20 23 0d 0a 20 20 20 20 69 66 20 7b 5b #.. if {[
0420: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 object invoke -f
0430: 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 lags +NonPublic
0440: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 \.. I
0450: 6e 74 65 72 70 72 65 74 65 72 2e 47 65 74 41 63 nterpreter.GetAc
0460: 74 69 76 65 2e 43 75 72 72 65 6e 74 46 72 61 6d tive.CurrentFram
0470: 65 20 4e 61 6d 65 5d 20 6e 65 20 5c 0d 0a 20 20 e Name] ne \..
0480: 20 20 20 20 20 20 5b 61 70 70 65 6e 64 41 72 67 [appendArg
0490: 73 20 73 6f 75 72 63 65 20 22 20 22 20 5b 66 69 s source " " [fi
04a0: 6c 65 20 6e 6f 72 6d 61 6c 69 7a 65 20 5b 69 6e le normalize [in
04b0: 66 6f 20 73 63 72 69 70 74 5d 5d 5d 7d 20 74 68 fo script]]]} th
04c0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 75 6e 73 65 en {.. unse
04d0: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 t -nocomplain te
04e0: 73 74 5f 73 75 69 74 65 5f 72 75 6e 6e 69 6e 67 st_suite_running
04f0: 0d 0a 20 20 20 20 20 20 65 72 72 6f 72 20 22 63 .. error "c
0500: 61 6e 6e 6f 74 20 72 75 6e 2c 20 63 75 72 72 65 annot run, curre
0510: 6e 74 20 66 72 61 6d 65 20 69 73 20 6e 6f 74 20 nt frame is not
0520: 66 6f 72 20 74 68 69 73 20 73 63 72 69 70 74 22 for this script"
0530: 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a .. }.. }....
0540: 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 4d #.. # NOTE: M
0550: 61 6b 65 20 73 75 72 65 20 61 6c 6c 20 74 68 65 ake sure all the
0560: 20 76 61 72 69 61 62 6c 65 73 20 75 73 65 64 20 variables used
0570: 62 79 20 74 68 69 73 20 65 70 69 6c 6f 67 75 65 by this epilogue
0580: 20 61 72 65 20 75 6e 73 65 74 2e 0d 0a 20 20 23 are unset... #
0590: 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d .. unset -nocom
05a0: 70 6c 61 69 6e 20 6d 65 6d 6f 72 79 20 73 74 61 plain memory sta
05b0: 63 6b 20 6e 61 6d 65 20 63 6f 75 6e 74 20 70 61 ck name count pa
05c0: 73 73 65 64 4f 72 53 6b 69 70 70 65 64 20 70 65 ssedOrSkipped pe
05d0: 72 63 65 6e 74 20 5c 0d 0a 20 20 20 20 20 20 65 rcent \.. e
05e0: 78 69 74 43 6f 64 65 0d 0a 0d 0a 20 20 23 0d 0a xitCode.... #..
05f0: 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 20 77 # NOTE: Show w
0600: 68 65 6e 20 74 68 65 20 74 65 73 74 73 20 61 63 hen the tests ac
0610: 74 75 61 6c 6c 79 20 65 6e 64 65 64 20 28 6e 6f tually ended (no
0620: 77 29 2e 0d 0a 20 20 23 0d 0a 20 20 74 70 75 74 w)... #.. tput
0630: 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 s $test_channel
0640: 5b 61 70 70 65 6e 64 41 72 67 73 20 22 2d 2d 2d [appendArgs "---
0650: 2d 20 74 65 73 74 73 20 65 6e 64 65 64 20 61 74 - tests ended at
0660: 20 22 20 5c 0d 0a 20 20 20 20 20 20 5b 66 6f 72 " \.. [for
0670: 6d 61 74 54 69 6d 65 53 74 61 6d 70 20 5b 73 65 matTimeStamp [se
0680: 74 20 74 65 73 74 5f 74 69 6d 65 73 74 61 6d 70 t test_timestamp
0690: 28 65 6e 64 53 65 63 6f 6e 64 73 29 20 5c 0d 0a (endSeconds) \..
06a0: 20 20 20 20 20 20 5b 63 6c 6f 63 6b 20 73 65 63 [clock sec
06b0: 6f 6e 64 73 5d 5d 5d 20 5c 6e 5d 0d 0a 0d 0a 20 onds]]] \n]....
06c0: 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 57 65 #.. # NOTE: We
06d0: 20 63 61 6e 20 6f 6e 6c 79 20 63 61 6c 63 75 6c can only calcul
06e0: 61 74 65 20 74 68 65 20 65 6c 61 70 73 65 64 20 ate the elapsed
06f0: 73 65 63 6f 6e 64 73 20 66 6f 72 20 74 68 65 20 seconds for the
0700: 74 65 73 74 73 20 69 66 0d 0a 20 20 23 20 20 20 tests if.. #
0710: 20 20 20 20 74 68 65 20 6e 65 63 65 73 73 61 72 the necessar
0720: 79 20 76 61 72 69 61 62 6c 65 73 20 65 78 69 73 y variables exis
0730: 74 20 61 6e 64 20 63 6f 6e 74 61 69 6e 20 76 61 t and contain va
0740: 6c 69 64 20 76 61 6c 75 65 73 2e 0d 0a 20 20 23 lid values... #
0750: 0d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 .. if {[info ex
0760: 69 73 74 73 20 74 65 73 74 5f 74 69 6d 65 73 74 ists test_timest
0770: 61 6d 70 28 73 74 61 72 74 53 65 63 6f 6e 64 73 amp(startSeconds
0780: 29 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 5b )] && \.. [
0790: 73 74 72 69 6e 67 20 69 73 20 69 6e 74 65 67 65 string is intege
07a0: 72 20 2d 73 74 72 69 63 74 20 24 74 65 73 74 5f r -strict $test_
07b0: 74 69 6d 65 73 74 61 6d 70 28 73 74 61 72 74 53 timestamp(startS
07c0: 65 63 6f 6e 64 73 29 5d 20 26 26 20 5c 0d 0a 20 econds)] && \..
07d0: 20 20 20 20 20 5b 69 6e 66 6f 20 65 78 69 73 74 [info exist
07e0: 73 20 74 65 73 74 5f 74 69 6d 65 73 74 61 6d 70 s test_timestamp
07f0: 28 65 6e 64 53 65 63 6f 6e 64 73 29 5d 20 26 26 (endSeconds)] &&
0800: 20 5c 0d 0a 20 20 20 20 20 20 5b 73 74 72 69 6e \.. [strin
0810: 67 20 69 73 20 69 6e 74 65 67 65 72 20 2d 73 74 g is integer -st
0820: 72 69 63 74 20 24 74 65 73 74 5f 74 69 6d 65 73 rict $test_times
0830: 74 61 6d 70 28 65 6e 64 53 65 63 6f 6e 64 73 29 tamp(endSeconds)
0840: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 23 ]} then {.. #
0850: 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 69 .. # NOTE: Fi
0860: 72 73 74 2c 20 66 69 67 75 72 65 20 6f 75 74 20 rst, figure out
0870: 68 6f 77 20 6d 61 6e 79 20 77 68 6f 6c 65 20 73 how many whole s
0880: 65 63 6f 6e 64 73 20 65 6c 61 70 73 65 64 20 64 econds elapsed d
0890: 75 72 69 6e 67 0d 0a 20 20 20 20 23 20 20 20 20 uring.. #
08a0: 20 20 20 72 6f 75 67 68 6c 79 20 74 68 65 20 65 roughly the e
08b0: 6e 74 69 72 65 20 74 65 73 74 69 6e 67 20 70 72 ntire testing pr
08c0: 6f 63 65 73 73 20 28 77 68 69 63 68 20 69 73 20 ocess (which is
08d0: 72 6f 75 67 6c 79 20 74 68 65 0d 0a 20 20 20 20 rougly the..
08e0: 23 20 20 20 20 20 20 20 73 61 6d 65 20 74 69 6d # same tim
08f0: 65 20 74 61 6b 65 6e 20 74 6f 20 6a 75 73 74 20 e taken to just
0900: 72 75 6e 20 74 68 65 20 74 65 73 74 73 20 74 68 run the tests th
0910: 65 6d 73 65 6c 76 65 73 29 2e 0d 0a 20 20 20 20 emselves)...
0920: 23 0d 0a 20 20 20 20 73 65 74 20 74 65 73 74 5f #.. set test_
0930: 74 69 6d 65 73 74 61 6d 70 28 65 6c 61 70 73 65 timestamp(elapse
0940: 64 53 65 63 6f 6e 64 73 29 20 5b 65 78 70 72 20 dSeconds) [expr
0950: 5c 0d 0a 20 20 20 20 20 20 20 20 7b 24 74 65 73 \.. {$tes
0960: 74 5f 74 69 6d 65 73 74 61 6d 70 28 65 6e 64 53 t_timestamp(endS
0970: 65 63 6f 6e 64 73 29 20 2d 20 24 74 65 73 74 5f econds) - $test_
0980: 74 69 6d 65 73 74 61 6d 70 28 73 74 61 72 74 53 timestamp(startS
0990: 65 63 6f 6e 64 73 29 7d 5d 0d 0a 0d 0a 20 20 20 econds)}]....
09a0: 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 #.. # NOTE:
09b0: 53 68 6f 77 20 28 61 6e 64 20 6c 6f 67 29 20 74 Show (and log) t
09c0: 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 65 6c 61 he number of ela
09d0: 70 73 65 64 20 73 65 63 6f 6e 64 73 20 61 6e 64 psed seconds and
09e0: 20 70 6f 73 73 69 62 6c 79 0d 0a 20 20 20 20 23 possibly.. #
09f0: 20 20 20 20 20 20 20 61 20 68 75 6d 61 6e 20 72 a human r
0a00: 65 61 64 61 62 6c 65 20 65 6c 61 70 73 65 64 20 eadable elapsed
0a10: 74 69 6d 65 20 73 74 72 69 6e 67 20 61 73 20 77 time string as w
0a20: 65 6c 6c 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 ell... #..
0a30: 20 74 70 75 74 73 20 24 74 65 73 74 5f 63 68 61 tputs $test_cha
0a40: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs
0a50: 20 22 2d 2d 2d 2d 20 74 65 73 74 73 20 74 6f 6f "---- tests too
0a60: 6b 20 61 70 70 72 6f 78 69 6d 61 74 65 6c 79 20 k approximately
0a70: 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 66 6f " \.. [fo
0a80: 72 6d 61 74 45 6c 61 70 73 65 64 54 69 6d 65 20 rmatElapsedTime
0a90: 24 74 65 73 74 5f 74 69 6d 65 73 74 61 6d 70 28 $test_timestamp(
0aa0: 65 6c 61 70 73 65 64 53 65 63 6f 6e 64 73 29 5d elapsedSeconds)]
0ab0: 20 5c 6e 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 \n].. }.... #
0ac0: 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 .. # NOTE: Show
0ad0: 20 74 68 65 20 65 6e 64 69 6e 67 20 63 6f 6d 6d the ending comm
0ae0: 61 6e 64 20 63 6f 75 6e 74 20 28 66 6f 72 20 62 and count (for b
0af0: 6f 74 68 20 54 63 6c 20 61 6e 64 20 45 61 67 6c oth Tcl and Eagl
0b00: 65 29 2e 0d 0a 20 20 23 0d 0a 20 20 74 70 75 74 e)... #.. tput
0b10: 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 s $test_channel
0b20: 5b 61 70 70 65 6e 64 41 72 67 73 20 22 2d 2d 2d [appendArgs "---
0b30: 2d 20 65 6e 64 69 6e 67 20 63 6f 6d 6d 61 6e 64 - ending command
0b40: 20 63 6f 75 6e 74 3a 20 22 20 5c 0d 0a 20 20 20 count: " \..
0b50: 20 20 20 5b 69 6e 66 6f 20 63 6d 64 63 6f 75 6e [info cmdcoun
0b60: 74 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20 69 66 20 7b t] \n].... if {
0b70: 5b 69 73 45 61 67 6c 65 5d 7d 20 74 68 65 6e 20 [isEagle]} then
0b80: 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 {.. #.. #
0b90: 4e 4f 54 45 3a 20 57 65 20 63 61 6e 20 6f 6e 6c NOTE: We can onl
0ba0: 79 20 63 61 6c 63 75 6c 61 74 65 20 74 68 65 20 y calculate the
0bb0: 65 6c 61 70 73 65 64 20 6d 69 63 72 6f 73 65 63 elapsed microsec
0bc0: 6f 6e 64 73 20 66 6f 72 20 74 68 65 20 74 65 73 onds for the tes
0bd0: 74 73 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 ts.. #
0be0: 69 66 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 if the necessary
0bf0: 20 76 61 72 69 61 62 6c 65 73 20 65 78 69 73 74 variables exist
0c00: 20 61 6e 64 20 63 6f 6e 74 61 69 6e 20 76 61 6c and contain val
0c10: 69 64 20 76 61 6c 75 65 73 2e 0d 0a 20 20 20 20 id values...
0c20: 23 0d 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f #.. if {[info
0c30: 20 65 78 69 73 74 73 20 74 65 73 74 5f 74 69 6d exists test_tim
0c40: 65 73 74 61 6d 70 28 73 74 61 72 74 43 6f 75 6e estamp(startCoun
0c50: 74 29 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 t)] && \..
0c60: 20 20 5b 73 74 72 69 6e 67 20 69 73 20 77 69 64 [string is wid
0c70: 65 69 6e 74 65 67 65 72 20 2d 73 74 72 69 63 74 einteger -strict
0c80: 20 24 74 65 73 74 5f 74 69 6d 65 73 74 61 6d 70 $test_timestamp
0c90: 28 73 74 61 72 74 43 6f 75 6e 74 29 5d 7d 20 74 (startCount)]} t
0ca0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a hen {.. #..
0cb0: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 69 # NOTE: Fi
0cc0: 72 73 74 2c 20 66 69 67 75 72 65 20 6f 75 74 20 rst, figure out
0cd0: 68 6f 77 20 6d 61 6e 79 20 6d 69 63 72 6f 73 65 how many microse
0ce0: 63 6f 6e 64 73 20 65 6c 61 70 73 65 64 20 64 75 conds elapsed du
0cf0: 72 69 6e 67 0d 0a 20 20 20 20 20 20 23 20 20 20 ring.. #
0d00: 20 20 20 20 72 6f 75 67 68 6c 79 20 74 68 65 20 roughly the
0d10: 65 6e 74 69 72 65 20 74 65 73 74 69 6e 67 20 70 entire testing p
0d20: 72 6f 63 65 73 73 20 28 77 68 69 63 68 20 69 73 rocess (which is
0d30: 20 72 6f 75 67 6c 79 20 74 68 65 0d 0a 20 20 20 rougly the..
0d40: 20 20 20 23 20 20 20 20 20 20 20 73 61 6d 65 20 # same
0d50: 74 69 6d 65 20 74 61 6b 65 6e 20 74 6f 20 6a 75 time taken to ju
0d60: 73 74 20 72 75 6e 20 74 68 65 20 74 65 73 74 73 st run the tests
0d70: 20 74 68 65 6d 73 65 6c 76 65 73 29 2e 0d 0a 20 themselves)...
0d80: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 63 61 #.. ca
0d90: 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 tch {.. s
0da0: 65 74 20 74 65 73 74 5f 74 69 6d 65 73 74 61 6d et test_timestam
0db0: 70 28 65 6c 61 70 73 65 64 4d 69 63 72 6f 73 65 p(elapsedMicrose
0dc0: 63 6f 6e 64 73 29 20 5c 0d 0a 20 20 20 20 20 20 conds) \..
0dd0: 20 20 20 20 20 20 5b 63 6c 6f 63 6b 20 73 74 6f [clock sto
0de0: 70 20 24 74 65 73 74 5f 74 69 6d 65 73 74 61 6d p $test_timestam
0df0: 70 28 73 74 61 72 74 43 6f 75 6e 74 29 5d 0d 0a p(startCount)]..
0e00: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 }....
0e10: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
0e20: 3a 20 53 68 6f 77 20 74 68 65 20 61 70 70 72 6f : Show the appro
0e30: 78 69 6d 61 74 65 20 6e 75 6d 62 65 72 20 6f 66 ximate number of
0e40: 20 65 6c 61 70 73 65 64 20 6d 69 63 72 6f 73 65 elapsed microse
0e50: 63 6f 6e 64 73 2e 0d 0a 20 20 20 20 20 20 23 0d conds... #.
0e60: 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f . if {[info
0e70: 20 65 78 69 73 74 73 20 74 65 73 74 5f 74 69 6d exists test_tim
0e80: 65 73 74 61 6d 70 28 65 6c 61 70 73 65 64 4d 69 estamp(elapsedMi
0e90: 63 72 6f 73 65 63 6f 6e 64 73 29 5d 20 26 26 20 croseconds)] &&
0ea0: 5b 73 74 72 69 6e 67 20 5c 0d 0a 20 20 20 20 20 [string \..
0eb0: 20 20 20 20 20 69 73 20 64 6f 75 62 6c 65 20 2d is double -
0ec0: 73 74 72 69 63 74 20 24 74 65 73 74 5f 74 69 6d strict $test_tim
0ed0: 65 73 74 61 6d 70 28 65 6c 61 70 73 65 64 4d 69 estamp(elapsedMi
0ee0: 63 72 6f 73 65 63 6f 6e 64 73 29 5d 7d 20 74 68 croseconds)]} th
0ef0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 en {.. tp
0f00: 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 uts $test_channe
0f10: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 22 2d l [appendArgs "-
0f20: 2d 2d 2d 20 74 65 73 74 73 20 74 6f 6f 6b 20 61 --- tests took a
0f30: 70 70 72 6f 78 69 6d 61 74 65 6c 79 20 22 20 5c pproximately " \
0f40: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 5b 66 .. [f
0f50: 6f 72 6d 61 74 44 65 63 69 6d 61 6c 20 24 74 65 ormatDecimal $te
0f60: 73 74 5f 74 69 6d 65 73 74 61 6d 70 28 65 6c 61 st_timestamp(ela
0f70: 70 73 65 64 4d 69 63 72 6f 73 65 63 6f 6e 64 73 psedMicroseconds
0f80: 29 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 )] \..
0f90: 20 20 22 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73 " microseconds
0fa0: 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 \n"].. }..
0fb0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 }.... #..
0fc0: 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 20 # NOTE: Show
0fd0: 74 68 65 20 65 6e 64 69 6e 67 20 6f 70 65 72 61 the ending opera
0fe0: 74 69 6f 6e 20 63 6f 75 6e 74 20 28 66 6f 72 20 tion count (for
0ff0: 45 61 67 6c 65 20 6f 6e 6c 79 29 2e 0d 0a 20 20 Eagle only)...
1000: 20 20 23 0d 0a 20 20 20 20 74 70 75 74 73 20 24 #.. tputs $
1010: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 test_channel [ap
1020: 70 65 6e 64 41 72 67 73 20 22 2d 2d 2d 2d 20 65 pendArgs "---- e
1030: 6e 64 69 6e 67 20 6f 70 65 72 61 74 69 6f 6e 20 nding operation
1040: 63 6f 75 6e 74 3a 20 22 20 5c 0d 0a 20 20 20 20 count: " \..
1050: 20 20 20 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f [object invo
1060: 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 ke -flags +NonPu
1070: 62 6c 69 63 20 49 6e 74 65 72 70 72 65 74 65 72 blic Interpreter
1080: 2e 47 65 74 41 63 74 69 76 65 20 5c 0d 0a 20 20 .GetActive \..
1090: 20 20 20 20 20 20 20 20 20 20 4f 70 65 72 61 74 Operat
10a0: 69 6f 6e 43 6f 75 6e 74 5d 20 5c 6e 5d 0d 0a 0d ionCount] \n]...
10b0: 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f . #.. # NO
10c0: 54 45 3a 20 53 68 6f 77 20 74 68 65 20 63 75 72 TE: Show the cur
10d0: 72 65 6e 74 20 73 74 61 74 65 20 6f 66 20 74 68 rent state of th
10e0: 65 20 6d 65 6d 6f 72 79 2e 0d 0a 20 20 20 20 23 e memory... #
10f0: 0d 0a 20 20 20 20 63 61 74 63 68 20 7b 64 65 62 .. catch {deb
1100: 75 67 20 6d 65 6d 6f 72 79 7d 20 6d 65 6d 6f 72 ug memory} memor
1110: 79 0d 0a 0d 0a 20 20 20 20 74 70 75 74 73 20 24 y.... tputs $
1120: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 test_channel [ap
1130: 70 65 6e 64 41 72 67 73 20 22 2d 2d 2d 2d 20 65 pendArgs "---- e
1140: 6e 64 69 6e 67 20 6d 65 6d 6f 72 79 3a 20 22 20 nding memory: "
1150: 5c 0d 0a 20 20 20 20 20 20 20 20 5b 66 6f 72 6d \.. [form
1160: 61 74 4c 69 73 74 41 73 44 69 63 74 20 24 6d 65 atListAsDict $me
1170: 6d 6f 72 79 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 mory] \n]....
1180: 20 75 6e 73 65 74 20 6d 65 6d 6f 72 79 0d 0a 0d unset memory...
1190: 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f . #.. # NO
11a0: 54 45 3a 20 53 68 6f 77 20 74 68 65 20 63 75 72 TE: Show the cur
11b0: 72 65 6e 74 20 73 74 61 74 65 20 6f 66 20 74 68 rent state of th
11c0: 65 20 6e 61 74 69 76 65 20 73 74 61 63 6b 2e 0d e native stack..
11d0: 0a 20 20 20 20 23 0d 0a 20 20 20 20 63 61 74 63 . #.. catc
11e0: 68 20 7b 64 65 62 75 67 20 73 74 61 63 6b 20 74 h {debug stack t
11f0: 72 75 65 7d 20 73 74 61 63 6b 0d 0a 0d 0a 20 20 rue} stack....
1200: 20 20 74 70 75 74 73 20 24 74 65 73 74 5f 63 68 tputs $test_ch
1210: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
1220: 73 20 22 2d 2d 2d 2d 20 65 6e 64 69 6e 67 20 73 s "---- ending s
1230: 74 61 63 6b 3a 20 22 20 5c 0d 0a 20 20 20 20 20 tack: " \..
1240: 20 20 20 5b 66 6f 72 6d 61 74 4c 69 73 74 41 73 [formatListAs
1250: 44 69 63 74 20 24 73 74 61 63 6b 5d 20 5c 6e 5d Dict $stack] \n]
1260: 0d 0a 0d 0a 20 20 20 20 75 6e 73 65 74 20 73 74 .... unset st
1270: 61 63 6b 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 ack.... #..
1280: 20 20 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 # NOTE: Check
1290: 66 6f 72 20 61 6e 64 20 64 69 73 70 6c 61 79 20 for and display
12a0: 61 6e 79 20 64 75 70 6c 69 63 61 74 65 20 74 65 any duplicate te
12b0: 73 74 20 6e 61 6d 65 73 20 74 68 61 74 20 77 65 st names that we
12c0: 20 66 6f 75 6e 64 2e 20 20 49 6e 0d 0a 20 20 20 found. In..
12d0: 20 23 20 20 20 20 20 20 20 74 68 65 6f 72 79 2c # theory,
12e0: 20 74 68 69 73 20 63 68 65 63 6b 69 6e 67 20 6d this checking m
12f0: 61 79 20 70 72 6f 64 75 63 65 20 66 61 6c 73 65 ay produce false
1300: 20 70 6f 73 69 74 69 76 65 73 20 69 66 20 61 20 positives if a
1310: 74 65 73 74 20 66 69 6c 65 0d 0a 20 20 20 20 23 test file.. #
1320: 20 20 20 20 20 20 20 28 6f 72 20 74 68 65 20 65 (or the e
1330: 6e 74 69 72 65 20 74 65 73 74 20 73 75 69 74 65 ntire test suite
1340: 29 20 69 73 20 72 75 6e 20 6d 75 6c 74 69 70 6c ) is run multipl
1350: 65 20 74 69 6d 65 73 20 77 69 74 68 6f 75 74 20 e times without
1360: 72 65 73 65 74 74 69 6e 67 0d 0a 20 20 20 20 23 resetting.. #
1370: 20 20 20 20 20 20 20 74 68 65 20 74 65 73 74 20 the test
1380: 73 74 61 74 69 73 74 69 63 73 20 61 6e 64 2f 6f statistics and/o
1390: 72 20 72 65 73 74 61 72 74 69 6e 67 20 45 61 67 r restarting Eag
13a0: 6c 65 3b 20 68 6f 77 65 76 65 72 2c 20 64 75 70 le; however, dup
13b0: 6c 69 63 61 74 65 0d 0a 20 20 20 20 23 20 20 20 licate.. #
13c0: 20 20 20 20 74 65 73 74 20 6e 61 6d 65 73 20 6d test names m
13d0: 75 73 74 20 62 65 20 61 76 6f 69 64 65 64 20 61 ust be avoided a
13e0: 6e 64 20 74 68 69 73 20 69 73 20 63 6f 6e 73 69 nd this is consi
13f0: 64 65 72 65 64 20 61 20 67 6f 6f 64 20 74 72 61 dered a good tra
1400: 64 65 2d 6f 66 66 2e 0d 0a 20 20 20 20 23 0d 0a de-off... #..
1410: 20 20 20 20 66 6f 72 65 61 63 68 20 7b 6e 61 6d foreach {nam
1420: 65 20 63 6f 75 6e 74 7d 20 24 65 61 67 6c 65 5f e count} $eagle_
1430: 74 65 73 74 73 28 43 6f 75 6e 74 73 29 20 7b 0d tests(Counts) {.
1440: 0a 20 20 20 20 20 20 69 66 20 7b 24 63 6f 75 6e . if {$coun
1450: 74 20 3e 20 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 t > 1} then {..
1460: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 74 65 tputs $te
1470: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 st_channel [appe
1480: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 ndArgs \..
1490: 20 20 20 20 20 20 22 3d 3d 3d 3d 20 74 65 73 74 "==== test
14a0: 20 6e 61 6d 65 20 5c 22 22 20 24 6e 61 6d 65 20 name \"" $name
14b0: 22 5c 22 20 44 55 50 4c 49 43 41 54 45 44 20 28 "\" DUPLICATED (
14c0: 22 20 24 63 6f 75 6e 74 20 22 29 5c 6e 22 5d 0d " $count ")\n"].
14d0: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 69 66 20 . } elseif
14e0: 7b 24 63 6f 75 6e 74 20 3c 3d 20 30 7d 20 74 68 {$count <= 0} th
14f0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 en {.. tp
1500: 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 uts $test_channe
1510: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d l [appendArgs \.
1520: 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d . "==
1530: 3d 3d 20 74 65 73 74 20 6e 61 6d 65 20 5c 22 22 == test name \""
1540: 20 24 6e 61 6d 65 20 22 5c 22 20 42 41 44 20 43 $name "\" BAD C
1550: 4f 55 4e 54 20 28 22 20 24 63 6f 75 6e 74 20 22 OUNT (" $count "
1560: 29 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a )\n"].. }..
1570: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 75 6e 73 }.... uns
1580: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 6e et -nocomplain n
1590: 61 6d 65 20 63 6f 75 6e 74 0d 0a 0d 0a 20 20 20 ame count....
15a0: 20 74 70 75 74 73 20 24 74 65 73 74 5f 63 68 61 tputs $test_cha
15b0: 6e 6e 65 6c 20 5c 6e 3b 20 23 20 4e 4f 54 45 3a nnel \n; # NOTE:
15c0: 20 42 6c 61 6e 6b 20 6c 69 6e 65 2e 0d 0a 0d 0a Blank line.....
15d0: 20 20 20 20 69 66 20 7b 24 65 61 67 6c 65 5f 74 if {$eagle_t
15e0: 65 73 74 73 28 50 61 73 73 65 64 29 20 3e 20 30 ests(Passed) > 0
15f0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
1600: 74 72 65 73 75 6c 74 20 4f 6b 20 5b 61 70 70 65 tresult Ok [appe
1610: 6e 64 41 72 67 73 20 22 50 41 53 53 45 44 3a 20 ndArgs "PASSED:
1620: 22 20 24 65 61 67 6c 65 5f 74 65 73 74 73 28 50 " $eagle_tests(P
1630: 61 73 73 65 64 29 20 5c 6e 5d 0d 0a 20 20 20 20 assed) \n]..
1640: 7d 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 24 65 61 }.... if {$ea
1650: 67 6c 65 5f 74 65 73 74 73 28 46 61 69 6c 65 64 gle_tests(Failed
1660: 29 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 ) > 0} then {..
1670: 20 20 20 20 20 74 72 65 73 75 6c 74 20 45 72 72 tresult Err
1680: 6f 72 20 5b 61 70 70 65 6e 64 41 72 67 73 20 22 or [appendArgs "
1690: 46 41 49 4c 45 44 3a 20 22 20 24 65 61 67 6c 65 FAILED: " $eagle
16a0: 5f 74 65 73 74 73 28 46 61 69 6c 65 64 29 20 5c _tests(Failed) \
16b0: 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b n].... if {
16c0: 5b 6c 6c 65 6e 67 74 68 20 24 65 61 67 6c 65 5f [llength $eagle_
16d0: 74 65 73 74 73 28 46 61 69 6c 65 64 4e 61 6d 65 tests(FailedName
16e0: 73 29 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d s)] > 0} then {.
16f0: 0a 20 20 20 20 20 20 20 20 74 72 65 73 75 6c 74 . tresult
1700: 20 45 72 72 6f 72 20 5b 61 70 70 65 6e 64 41 72 Error [appendAr
1710: 67 73 20 22 46 41 49 4c 45 44 3a 20 22 20 24 65 gs "FAILED: " $e
1720: 61 67 6c 65 5f 74 65 73 74 73 28 46 61 69 6c 65 agle_tests(Faile
1730: 64 4e 61 6d 65 73 29 20 5c 6e 5d 0d 0a 20 20 20 dNames) \n]..
1740: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 }.. }....
1750: 20 20 20 69 66 20 7b 24 65 61 67 6c 65 5f 74 65 if {$eagle_te
1760: 73 74 73 28 53 6b 69 70 70 65 64 29 20 3e 20 30 sts(Skipped) > 0
1770: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
1780: 74 72 65 73 75 6c 74 20 42 72 65 61 6b 20 5b 61 tresult Break [a
1790: 70 70 65 6e 64 41 72 67 73 20 22 53 4b 49 50 50 ppendArgs "SKIPP
17a0: 45 44 3a 20 22 20 24 65 61 67 6c 65 5f 74 65 73 ED: " $eagle_tes
17b0: 74 73 28 53 6b 69 70 70 65 64 29 20 5c 6e 5d 0d ts(Skipped) \n].
17c0: 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c 6c ... if {[ll
17d0: 65 6e 67 74 68 20 24 65 61 67 6c 65 5f 74 65 73 ength $eagle_tes
17e0: 74 73 28 53 6b 69 70 70 65 64 4e 61 6d 65 73 29 ts(SkippedNames)
17f0: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 ] > 0} then {..
1800: 20 20 20 20 20 20 20 74 72 65 73 75 6c 74 20 42 tresult B
1810: 72 65 61 6b 20 5b 61 70 70 65 6e 64 41 72 67 73 reak [appendArgs
1820: 20 22 53 4b 49 50 50 45 44 3a 20 22 20 24 65 61 "SKIPPED: " $ea
1830: 67 6c 65 5f 74 65 73 74 73 28 53 6b 69 70 70 65 gle_tests(Skippe
1840: 64 4e 61 6d 65 73 29 20 5c 6e 5d 0d 0a 20 20 20 dNames) \n]..
1850: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 }.. }....
1860: 20 20 20 69 66 20 7b 24 65 61 67 6c 65 5f 74 65 if {$eagle_te
1870: 73 74 73 28 54 6f 74 61 6c 29 20 3e 20 30 7d 20 sts(Total) > 0}
1880: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 74 72 then {.. tr
1890: 65 73 75 6c 74 20 52 65 74 75 72 6e 20 5b 61 70 esult Return [ap
18a0: 70 65 6e 64 41 72 67 73 20 22 54 4f 54 41 4c 3a pendArgs "TOTAL:
18b0: 20 22 20 24 65 61 67 6c 65 5f 74 65 73 74 73 28 " $eagle_tests(
18c0: 54 6f 74 61 6c 29 20 5c 6e 5d 0d 0a 0d 0a 20 20 Total) \n]....
18d0: 20 20 20 20 69 66 20 7b 24 65 61 67 6c 65 5f 74 if {$eagle_t
18e0: 65 73 74 73 28 53 6b 69 70 70 65 64 29 20 3e 20 ests(Skipped) >
18f0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
1900: 20 20 20 73 65 74 20 70 65 72 63 65 6e 74 20 5b set percent [
1910: 67 65 74 53 6b 69 70 50 65 72 63 65 6e 74 61 67 getSkipPercentag
1920: 65 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 74 72 e].... tr
1930: 65 73 75 6c 74 20 42 72 65 61 6b 20 5b 61 70 70 esult Break [app
1940: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \..
1950: 20 20 20 20 20 20 20 22 53 4b 49 50 20 50 45 52 "SKIP PER
1960: 43 45 4e 54 41 47 45 3a 20 22 20 5b 66 6f 72 6d CENTAGE: " [form
1970: 61 74 44 65 63 69 6d 61 6c 20 24 70 65 72 63 65 atDecimal $perce
1980: 6e 74 5d 20 25 5c 6e 5d 0d 0a 20 20 20 20 20 20 nt] %\n]..
1990: 7d 0d 0a 0d 0a 20 20 20 20 20 20 73 65 74 20 70 }.... set p
19a0: 65 72 63 65 6e 74 20 5b 67 65 74 50 61 73 73 50 ercent [getPassP
19b0: 65 72 63 65 6e 74 61 67 65 5d 0d 0a 0d 0a 20 20 ercentage]....
19c0: 20 20 20 20 74 72 65 73 75 6c 74 20 52 65 74 75 tresult Retu
19d0: 72 6e 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c rn [appendArgs \
19e0: 0d 0a 20 20 20 20 20 20 20 20 20 20 22 50 41 53 .. "PAS
19f0: 53 20 50 45 52 43 45 4e 54 41 47 45 3a 20 22 20 S PERCENTAGE: "
1a00: 5b 66 6f 72 6d 61 74 44 65 63 69 6d 61 6c 20 24 [formatDecimal $
1a10: 70 65 72 63 65 6e 74 5d 20 25 5c 6e 5d 0d 0a 20 percent] %\n]..
1a20: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 } else {..
1a30: 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f #.. # NO
1a40: 54 45 3a 20 4e 6f 20 74 65 73 74 73 2e 0d 0a 20 TE: No tests...
1a50: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 #.. se
1a60: 74 20 70 65 72 63 65 6e 74 20 30 0d 0a 20 20 20 t percent 0..
1a70: 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 }.... #..
1a80: 20 23 20 4e 4f 54 45 3a 20 48 61 73 20 74 68 65 # NOTE: Has the
1a90: 20 74 65 73 74 20 70 61 73 73 20 74 68 72 65 73 test pass thres
1aa0: 68 6f 6c 64 20 62 65 65 6e 20 73 65 74 3f 20 20 hold been set?
1ab0: 49 66 20 73 6f 2c 20 69 73 20 69 74 20 73 65 74 If so, is it set
1ac0: 20 74 6f 0d 0a 20 20 20 20 23 20 20 20 20 20 20 to.. #
1ad0: 20 74 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c the default val
1ae0: 75 65 3f 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 ue?.. #..
1af0: 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 if {![info exist
1b00: 73 20 74 65 73 74 5f 74 68 72 65 73 68 6f 6c 64 s test_threshold
1b10: 5d 20 7c 7c 20 24 74 65 73 74 5f 74 68 72 65 73 ] || $test_thres
1b20: 68 6f 6c 64 20 3d 3d 20 31 30 30 7d 20 74 68 65 hold == 100} the
1b30: 6e 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 n {.. #..
1b40: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 # NOTE: The
1b50: 74 65 73 74 20 70 61 73 73 20 74 68 72 65 73 68 test pass thresh
1b60: 6f 6c 64 20 69 73 20 73 65 74 20 74 6f 20 74 68 old is set to th
1b70: 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 20 e default value
1b80: 28 31 30 30 25 29 2e 0d 0a 20 20 20 20 20 20 23 (100%)... #
1b90: 20 20 20 20 20 20 20 43 68 65 63 6b 20 74 6f 20 Check to
1ba0: 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 61 make sure that a
1bb0: 6c 6c 20 74 65 73 74 73 20 70 61 73 73 20 61 6e ll tests pass an
1bc0: 64 20 74 68 65 6e 20 73 65 74 20 74 68 65 0d 0a d then set the..
1bd0: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 65 78 # ex
1be0: 69 74 20 63 6f 64 65 20 74 6f 20 73 75 63 63 65 it code to succe
1bf0: 73 73 3b 20 6f 74 68 65 72 77 69 73 65 2c 20 77 ss; otherwise, w
1c00: 65 20 73 65 74 20 69 74 20 74 6f 20 66 61 69 6c e set it to fail
1c10: 75 72 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ure... #..
1c20: 20 20 20 20 20 73 65 74 20 70 61 73 73 65 64 4f set passedO
1c30: 72 53 6b 69 70 70 65 64 20 5b 65 78 70 72 20 7b rSkipped [expr {
1c40: 24 65 61 67 6c 65 5f 74 65 73 74 73 28 50 61 73 $eagle_tests(Pas
1c50: 73 65 64 29 20 2b 20 5c 0d 0a 20 20 20 20 20 20 sed) + \..
1c60: 20 20 20 20 24 65 61 67 6c 65 5f 74 65 73 74 73 $eagle_tests
1c70: 28 53 6b 69 70 70 65 64 29 7d 5d 0d 0a 0d 0a 20 (Skipped)}]....
1c80: 20 20 20 20 20 69 66 20 7b 24 70 61 73 73 65 64 if {$passed
1c90: 4f 72 53 6b 69 70 70 65 64 20 3d 3d 20 24 65 61 OrSkipped == $ea
1ca0: 67 6c 65 5f 74 65 73 74 73 28 54 6f 74 61 6c 29 gle_tests(Total)
1cb0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
1cc0: 20 20 73 65 74 20 65 78 69 74 43 6f 64 65 20 53 set exitCode S
1cd0: 75 63 63 65 73 73 0d 0a 0d 0a 20 20 20 20 20 20 uccess....
1ce0: 20 20 69 66 20 7b 24 65 61 67 6c 65 5f 74 65 73 if {$eagle_tes
1cf0: 74 73 28 54 6f 74 61 6c 29 20 3e 20 30 7d 20 74 ts(Total) > 0} t
1d00: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 hen {..
1d10: 20 74 72 65 73 75 6c 74 20 4f 6b 20 22 4f 56 45 tresult Ok "OVE
1d20: 52 41 4c 4c 20 52 45 53 55 4c 54 3a 20 53 55 43 RALL RESULT: SUC
1d30: 43 45 53 53 5c 6e 22 0d 0a 20 20 20 20 20 20 20 CESS\n"..
1d40: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {..
1d50: 20 20 20 20 20 74 72 65 73 75 6c 74 20 4f 6b 20 tresult Ok
1d60: 22 4f 56 45 52 41 4c 4c 20 52 45 53 55 4c 54 3a "OVERALL RESULT:
1d70: 20 4e 4f 4e 45 5c 6e 22 0d 0a 20 20 20 20 20 20 NONE\n"..
1d80: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 }.. } els
1d90: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 74 e {.. set
1da0: 20 65 78 69 74 43 6f 64 65 20 46 61 69 6c 75 72 exitCode Failur
1db0: 65 0d 0a 0d 0a 20 20 20 20 20 20 20 20 74 72 65 e.... tre
1dc0: 73 75 6c 74 20 45 72 72 6f 72 20 22 4f 56 45 52 sult Error "OVER
1dd0: 41 4c 4c 20 52 45 53 55 4c 54 3a 20 46 41 49 4c ALL RESULT: FAIL
1de0: 55 52 45 5c 6e 22 0d 0a 20 20 20 20 20 20 7d 0d URE\n".. }.
1df0: 0a 0d 0a 20 20 20 20 20 20 75 6e 73 65 74 20 70 ... unset p
1e00: 61 73 73 65 64 4f 72 53 6b 69 70 70 65 64 0d 0a assedOrSkipped..
1e10: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 } else {..
1e20: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e #.. # N
1e30: 4f 54 45 3a 20 54 68 65 79 20 73 70 65 63 69 66 OTE: They specif
1e40: 69 65 64 20 61 20 6e 6f 6e 2d 64 65 66 61 75 6c ied a non-defaul
1e50: 74 20 74 65 73 74 20 70 61 73 73 20 74 68 72 65 t test pass thre
1e60: 73 68 6f 6c 64 2e 20 20 43 68 65 63 6b 20 74 6f shold. Check to
1e70: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
1e80: 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 77 make sure that w
1e90: 65 20 6d 65 65 74 20 6f 72 20 65 78 63 65 65 64 e meet or exceed
1ea0: 20 74 68 65 20 72 65 71 75 69 72 65 6d 65 6e 74 the requirement
1eb0: 20 61 6e 64 20 74 68 65 6e 0d 0a 20 20 20 20 20 and then..
1ec0: 20 23 20 20 20 20 20 20 20 73 65 74 20 74 68 65 # set the
1ed0: 20 65 78 69 74 20 63 6f 64 65 20 74 6f 20 73 75 exit code to su
1ee0: 63 63 65 73 73 3b 20 6f 74 68 65 72 77 69 73 65 ccess; otherwise
1ef0: 2c 20 73 65 74 20 69 74 20 74 6f 20 66 61 69 6c , set it to fail
1f00: 75 72 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ure... #..
1f10: 20 20 20 20 20 69 66 20 7b 24 70 65 72 63 65 6e if {$percen
1f20: 74 20 3e 3d 20 24 74 65 73 74 5f 74 68 72 65 73 t >= $test_thres
1f30: 68 6f 6c 64 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 hold} then {..
1f40: 20 20 20 20 20 20 73 65 74 20 65 78 69 74 43 6f set exitCo
1f50: 64 65 20 53 75 63 63 65 73 73 0d 0a 0d 0a 20 20 de Success....
1f60: 20 20 20 20 20 20 69 66 20 7b 24 65 61 67 6c 65 if {$eagle
1f70: 5f 74 65 73 74 73 28 54 6f 74 61 6c 29 20 3e 20 _tests(Total) >
1f80: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
1f90: 20 20 20 20 20 74 72 65 73 75 6c 74 20 4f 6b 20 tresult Ok
1fa0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
1fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 4f 56 "OV
1fc0: 45 52 41 4c 4c 20 52 45 53 55 4c 54 3a 20 53 55 ERALL RESULT: SU
1fd0: 43 43 45 53 53 20 28 22 20 24 70 65 72 63 65 6e CCESS (" $percen
1fe0: 74 20 22 25 20 3e 3d 20 22 20 24 74 65 73 74 5f t "% >= " $test_
1ff0: 74 68 72 65 73 68 6f 6c 64 20 25 29 5c 6e 5d 0d threshold %)\n].
2000: 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 . } else
2010: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 72 65 {.. tre
2020: 73 75 6c 74 20 4f 6b 20 5b 61 70 70 65 6e 64 41 sult Ok [appendA
2030: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
2040: 20 20 20 20 20 22 4f 56 45 52 41 4c 4c 20 52 45 "OVERALL RE
2050: 53 55 4c 54 3a 20 4e 4f 4e 45 20 28 22 20 24 70 SULT: NONE (" $p
2060: 65 72 63 65 6e 74 20 22 25 20 3e 3d 20 22 20 24 ercent "% >= " $
2070: 74 65 73 74 5f 74 68 72 65 73 68 6f 6c 64 20 25 test_threshold %
2080: 29 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d )\n].. }.
2090: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d . } else {.
20a0: 0a 20 20 20 20 20 20 20 20 73 65 74 20 65 78 69 . set exi
20b0: 74 43 6f 64 65 20 46 61 69 6c 75 72 65 0d 0a 0d tCode Failure...
20c0: 0a 20 20 20 20 20 20 20 20 74 72 65 73 75 6c 74 . tresult
20d0: 20 45 72 72 6f 72 20 5b 61 70 70 65 6e 64 41 72 Error [appendAr
20e0: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \..
20f0: 20 20 22 4f 56 45 52 41 4c 4c 20 52 45 53 55 4c "OVERALL RESUL
2100: 54 3a 20 46 41 49 4c 55 52 45 20 28 22 20 24 70 T: FAILURE (" $p
2110: 65 72 63 65 6e 74 20 22 25 20 3c 20 22 20 24 74 ercent "% < " $t
2120: 65 73 74 5f 74 68 72 65 73 68 6f 6c 64 20 25 29 est_threshold %)
2130: 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 \n].. }..
2140: 20 20 7d 0d 0a 0d 0a 20 20 20 20 75 6e 73 65 74 }.... unset
2150: 20 70 65 72 63 65 6e 74 0d 0a 0d 0a 20 20 20 20 percent....
2160: 74 70 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e tputs $test_chan
2170: 6e 65 6c 20 5c 6e 3b 20 23 20 4e 4f 54 45 3a 20 nel \n; # NOTE:
2180: 42 6c 61 6e 6b 20 6c 69 6e 65 2e 0d 0a 20 20 7d Blank line... }
2190: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 74 70 75 else {.. tpu
21a0: 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c ts $test_channel
21b0: 20 5c 6e 3b 20 23 20 4e 4f 54 45 3a 20 42 6c 61 \n; # NOTE: Bla
21c0: 6e 6b 20 6c 69 6e 65 2e 0d 0a 0d 0a 20 20 20 20 nk line.....
21d0: 69 66 20 7b 24 3a 3a 74 63 6c 74 65 73 74 3a 3a if {$::tcltest::
21e0: 6e 75 6d 54 65 73 74 73 28 50 61 73 73 65 64 29 numTests(Passed)
21f0: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 > 0} then {..
2200: 20 20 20 20 74 70 75 74 73 20 24 74 65 73 74 5f tputs $test_
2210: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
2220: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
2230: 20 22 50 41 53 53 45 44 3a 20 22 20 24 3a 3a 74 "PASSED: " $::t
2240: 63 6c 74 65 73 74 3a 3a 6e 75 6d 54 65 73 74 73 cltest::numTests
2250: 28 50 61 73 73 65 64 29 20 5c 6e 5d 0d 0a 20 20 (Passed) \n]..
2260: 20 20 7d 0d 0a 0d 0a 20 20 20 20 69 66 20 7b 24 }.... if {$
2270: 3a 3a 74 63 6c 74 65 73 74 3a 3a 6e 75 6d 54 65 ::tcltest::numTe
2280: 73 74 73 28 46 61 69 6c 65 64 29 20 3e 20 30 7d sts(Failed) > 0}
2290: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 74 then {.. t
22a0: 70 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e puts $test_chann
22b0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \
22c0: 0d 0a 20 20 20 20 20 20 20 20 20 20 22 46 41 49 .. "FAI
22d0: 4c 45 44 3a 20 22 20 24 3a 3a 74 63 6c 74 65 73 LED: " $::tcltes
22e0: 74 3a 3a 6e 75 6d 54 65 73 74 73 28 46 61 69 6c t::numTests(Fail
22f0: 65 64 29 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 ed) \n]....
2300: 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 3a if {[llength $:
2310: 3a 74 63 6c 74 65 73 74 3a 3a 66 61 69 6c 46 69 :tcltest::failFi
2320: 6c 65 73 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b les] > 0} then {
2330: 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 .. tputs
2340: 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 $test_channel [a
2350: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \..
2360: 20 20 20 20 20 20 20 20 20 22 46 41 49 4c 45 44 "FAILED
2370: 3a 20 22 20 24 3a 3a 74 63 6c 74 65 73 74 3a 3a : " $::tcltest::
2380: 66 61 69 6c 46 69 6c 65 73 20 5c 6e 5d 0d 0a 20 failFiles \n]..
2390: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0d }.. }...
23a0: 0a 20 20 20 20 69 66 20 7b 24 3a 3a 74 63 6c 74 . if {$::tclt
23b0: 65 73 74 3a 3a 6e 75 6d 54 65 73 74 73 28 53 6b est::numTests(Sk
23c0: 69 70 70 65 64 29 20 3e 20 30 7d 20 74 68 65 6e ipped) > 0} then
23d0: 20 7b 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20 {.. tputs
23e0: 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 $test_channel [a
23f0: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 ppendArgs \..
2400: 20 20 20 20 20 20 20 22 53 4b 49 50 50 45 44 3a "SKIPPED:
2410: 20 22 20 24 3a 3a 74 63 6c 74 65 73 74 3a 3a 6e " $::tcltest::n
2420: 75 6d 54 65 73 74 73 28 53 6b 69 70 70 65 64 29 umTests(Skipped)
2430: 20 5c 6e 5d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 \n].. }....
2440: 20 20 20 69 66 20 7b 24 3a 3a 74 63 6c 74 65 73 if {$::tcltes
2450: 74 3a 3a 6e 75 6d 54 65 73 74 73 28 54 6f 74 61 t::numTests(Tota
2460: 6c 29 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a l) > 0} then {..
2470: 20 20 20 20 20 20 74 70 75 74 73 20 24 74 65 73 tputs $tes
2480: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e t_channel [appen
2490: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 dArgs \..
24a0: 20 20 20 22 54 4f 54 41 4c 3a 20 22 20 24 3a 3a "TOTAL: " $::
24b0: 74 63 6c 74 65 73 74 3a 3a 6e 75 6d 54 65 73 74 tcltest::numTest
24c0: 73 28 54 6f 74 61 6c 29 20 5c 6e 5d 0d 0a 0d 0a s(Total) \n]....
24d0: 20 20 20 20 20 20 69 66 20 7b 24 3a 3a 74 63 6c if {$::tcl
24e0: 74 65 73 74 3a 3a 6e 75 6d 54 65 73 74 73 28 53 test::numTests(S
24f0: 6b 69 70 70 65 64 29 20 3e 20 30 7d 20 74 68 65 kipped) > 0} the
2500: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 74 n {.. set
2510: 20 70 65 72 63 65 6e 74 20 5b 67 65 74 53 6b 69 percent [getSki
2520: 70 50 65 72 63 65 6e 74 61 67 65 5d 0d 0a 0d 0a pPercentage]....
2530: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 74 tputs $t
2540: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app
2550: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \..
2560: 20 20 20 20 20 20 20 22 53 4b 49 50 20 50 45 52 "SKIP PER
2570: 43 45 4e 54 41 47 45 3a 20 22 20 5b 66 6f 72 6d CENTAGE: " [form
2580: 61 74 44 65 63 69 6d 61 6c 20 24 70 65 72 63 65 atDecimal $perce
2590: 6e 74 5d 20 25 5c 6e 5d 0d 0a 20 20 20 20 20 20 nt] %\n]..
25a0: 7d 0d 0a 0d 0a 20 20 20 20 20 20 73 65 74 20 70 }.... set p
25b0: 65 72 63 65 6e 74 20 5b 67 65 74 50 61 73 73 50 ercent [getPassP
25c0: 65 72 63 65 6e 74 61 67 65 5d 0d 0a 0d 0a 20 20 ercentage]....
25d0: 20 20 20 20 74 70 75 74 73 20 24 74 65 73 74 5f tputs $test_
25e0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
25f0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
2600: 20 22 50 41 53 53 20 50 45 52 43 45 4e 54 41 47 "PASS PERCENTAG
2610: 45 3a 20 22 20 5b 66 6f 72 6d 61 74 44 65 63 69 E: " [formatDeci
2620: 6d 61 6c 20 24 70 65 72 63 65 6e 74 5d 20 25 5c mal $percent] %\
2630: 6e 5d 0d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b n].. } else {
2640: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
2650: 20 23 20 4e 4f 54 45 3a 20 4e 6f 20 74 65 73 74 # NOTE: No test
2660: 73 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 s... #..
2670: 20 20 20 73 65 74 20 70 65 72 63 65 6e 74 20 30 set percent 0
2680: 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 .. }.... #
2690: 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 48 61 .. # NOTE: Ha
26a0: 73 20 74 68 65 20 74 65 73 74 20 70 61 73 73 20 s the test pass
26b0: 74 68 72 65 73 68 6f 6c 64 20 62 65 65 6e 20 73 threshold been s
26c0: 65 74 3f 20 20 49 66 20 73 6f 2c 20 69 73 20 69 et? If so, is i
26d0: 74 20 73 65 74 20 74 6f 0d 0a 20 20 20 20 23 20 t set to.. #
26e0: 20 20 20 20 20 20 74 68 65 20 64 65 66 61 75 6c the defaul
26f0: 74 20 76 61 6c 75 65 3f 0d 0a 20 20 20 20 23 0d t value?.. #.
2700: 0a 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 . if {![info
2710: 65 78 69 73 74 73 20 74 65 73 74 5f 74 68 72 65 exists test_thre
2720: 73 68 6f 6c 64 5d 20 7c 7c 20 24 74 65 73 74 5f shold] || $test_
2730: 74 68 72 65 73 68 6f 6c 64 20 3d 3d 20 31 30 30 threshold == 100
2740: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
2750: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
2760: 20 54 68 65 20 74 65 73 74 20 70 61 73 73 20 74 The test pass t
2770: 68 72 65 73 68 6f 6c 64 20 69 73 20 73 65 74 20 hreshold is set
2780: 74 6f 20 74 68 65 20 64 65 66 61 75 6c 74 20 76 to the default v
2790: 61 6c 75 65 20 28 31 30 30 25 29 2e 0d 0a 20 20 alue (100%)...
27a0: 20 20 20 20 23 20 20 20 20 20 20 20 43 68 65 63 # Chec
27b0: 6b 20 74 6f 20 6d 61 6b 65 20 73 75 72 65 20 74 k to make sure t
27c0: 68 61 74 20 61 6c 6c 20 74 65 73 74 73 20 70 61 hat all tests pa
27d0: 73 73 20 61 6e 64 20 74 68 65 6e 20 73 65 74 20 ss and then set
27e0: 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 the.. #
27f0: 20 20 20 65 78 69 74 20 63 6f 64 65 20 74 6f 20 exit code to
2800: 73 75 63 63 65 73 73 3b 20 6f 74 68 65 72 77 69 success; otherwi
2810: 73 65 2c 20 77 65 20 73 65 74 20 69 74 20 74 6f se, we set it to
2820: 20 66 61 69 6c 75 72 65 2e 0d 0a 20 20 20 20 20 failure...
2830: 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20 70 61 #.. set pa
2840: 73 73 65 64 4f 72 53 6b 69 70 70 65 64 20 5b 65 ssedOrSkipped [e
2850: 78 70 72 20 7b 24 3a 3a 74 63 6c 74 65 73 74 3a xpr {$::tcltest:
2860: 3a 6e 75 6d 54 65 73 74 73 28 50 61 73 73 65 64 :numTests(Passed
2870: 29 20 2b 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 ) + \..
2880: 20 24 3a 3a 74 63 6c 74 65 73 74 3a 3a 6e 75 6d $::tcltest::num
2890: 54 65 73 74 73 28 53 6b 69 70 70 65 64 29 7d 5d Tests(Skipped)}]
28a0: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 24 70 .... if {$p
28b0: 61 73 73 65 64 4f 72 53 6b 69 70 70 65 64 20 3d assedOrSkipped =
28c0: 3d 20 24 3a 3a 74 63 6c 74 65 73 74 3a 3a 6e 75 = $::tcltest::nu
28d0: 6d 54 65 73 74 73 28 54 6f 74 61 6c 29 7d 20 74 mTests(Total)} t
28e0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 hen {.. s
28f0: 65 74 20 65 78 69 74 43 6f 64 65 20 30 3b 20 23 et exitCode 0; #
2900: 20 53 75 63 63 65 73 73 2e 0d 0a 0d 0a 20 20 20 Success.....
2910: 20 20 20 20 20 69 66 20 7b 24 3a 3a 74 63 6c 74 if {$::tclt
2920: 65 73 74 3a 3a 6e 75 6d 54 65 73 74 73 28 54 6f est::numTests(To
2930: 74 61 6c 29 20 3e 20 30 7d 20 74 68 65 6e 20 7b tal) > 0} then {
2940: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 .. tput
2950: 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 s $test_channel
2960: 22 4f 56 45 52 41 4c 4c 20 52 45 53 55 4c 54 3a "OVERALL RESULT:
2970: 20 53 55 43 43 45 53 53 5c 6e 22 0d 0a 20 20 20 SUCCESS\n"..
2980: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {..
2990: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
29a0: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 22 4f 56 test_channel "OV
29b0: 45 52 41 4c 4c 20 52 45 53 55 4c 54 3a 20 4e 4f ERALL RESULT: NO
29c0: 4e 45 5c 6e 22 0d 0a 20 20 20 20 20 20 20 20 7d NE\n".. }
29d0: 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b .. } else {
29e0: 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 65 78 .. set ex
29f0: 69 74 43 6f 64 65 20 31 3b 20 23 20 46 61 69 6c itCode 1; # Fail
2a00: 75 72 65 2e 0d 0a 0d 0a 20 20 20 20 20 20 20 20 ure.....
2a10: 74 70 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e tputs $test_chan
2a20: 6e 65 6c 20 22 4f 56 45 52 41 4c 4c 20 52 45 53 nel "OVERALL RES
2a30: 55 4c 54 3a 20 46 41 49 4c 55 52 45 5c 6e 22 0d ULT: FAILURE\n".
2a40: 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 . }....
2a50: 20 20 75 6e 73 65 74 20 70 61 73 73 65 64 4f 72 unset passedOr
2a60: 53 6b 69 70 70 65 64 0d 0a 20 20 20 20 7d 20 65 Skipped.. } e
2a70: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a lse {.. #..
2a80: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 # NOTE: Th
2a90: 65 79 20 73 70 65 63 69 66 69 65 64 20 61 20 6e ey specified a n
2aa0: 6f 6e 2d 64 65 66 61 75 6c 74 20 74 65 73 74 20 on-default test
2ab0: 70 61 73 73 20 74 68 72 65 73 68 6f 6c 64 2e 20 pass threshold.
2ac0: 20 43 68 65 63 6b 20 74 6f 0d 0a 20 20 20 20 20 Check to..
2ad0: 20 23 20 20 20 20 20 20 20 6d 61 6b 65 20 73 75 # make su
2ae0: 72 65 20 74 68 61 74 20 77 65 20 6d 65 65 74 20 re that we meet
2af0: 6f 72 20 65 78 63 65 65 64 20 74 68 65 20 72 65 or exceed the re
2b00: 71 75 69 72 65 6d 65 6e 74 20 61 6e 64 20 74 68 quirement and th
2b10: 65 6e 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 en.. #
2b20: 20 20 73 65 74 20 74 68 65 20 65 78 69 74 20 63 set the exit c
2b30: 6f 64 65 20 74 6f 20 73 75 63 63 65 73 73 3b 20 ode to success;
2b40: 6f 74 68 65 72 77 69 73 65 2c 20 73 65 74 20 69 otherwise, set i
2b50: 74 20 74 6f 20 66 61 69 6c 75 72 65 2e 0d 0a 20 t to failure...
2b60: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if
2b70: 20 7b 24 70 65 72 63 65 6e 74 20 3e 3d 20 24 74 {$percent >= $t
2b80: 65 73 74 5f 74 68 72 65 73 68 6f 6c 64 7d 20 74 est_threshold} t
2b90: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 hen {.. s
2ba0: 65 74 20 65 78 69 74 43 6f 64 65 20 30 3b 20 23 et exitCode 0; #
2bb0: 20 53 75 63 63 65 73 73 2e 0d 0a 0d 0a 20 20 20 Success.....
2bc0: 20 20 20 20 20 69 66 20 7b 24 3a 3a 74 63 6c 74 if {$::tclt
2bd0: 65 73 74 3a 3a 6e 75 6d 54 65 73 74 73 28 54 6f est::numTests(To
2be0: 74 61 6c 29 20 3e 20 30 7d 20 74 68 65 6e 20 7b tal) > 0} then {
2bf0: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 .. tput
2c00: 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 s $test_channel
2c10: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
2c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 4f 56 "OV
2c30: 45 52 41 4c 4c 20 52 45 53 55 4c 54 3a 20 53 55 ERALL RESULT: SU
2c40: 43 43 45 53 53 20 28 22 20 24 70 65 72 63 65 6e CCESS (" $percen
2c50: 74 20 22 25 20 3e 3d 20 22 20 24 74 65 73 74 5f t "% >= " $test_
2c60: 74 68 72 65 73 68 6f 6c 64 20 25 29 5c 6e 5d 0d threshold %)\n].
2c70: 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 . } else
2c80: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 {.. tpu
2c90: 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c ts $test_channel
2ca0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
2cb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 4f "O
2cc0: 56 45 52 41 4c 4c 20 52 45 53 55 4c 54 3a 20 4e VERALL RESULT: N
2cd0: 4f 4e 45 20 28 22 20 24 70 65 72 63 65 6e 74 20 ONE (" $percent
2ce0: 22 25 20 3e 3d 20 22 20 24 74 65 73 74 5f 74 68 "% >= " $test_th
2cf0: 72 65 73 68 6f 6c 64 20 25 29 5c 6e 5d 0d 0a 20 reshold %)\n]..
2d00: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
2d10: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {..
2d20: 20 20 73 65 74 20 65 78 69 74 43 6f 64 65 20 31 set exitCode 1
2d30: 3b 20 23 20 46 61 69 6c 75 72 65 2e 0d 0a 0d 0a ; # Failure.....
2d40: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 74 tputs $t
2d50: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app
2d60: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \..
2d70: 20 20 20 20 20 20 20 22 4f 56 45 52 41 4c 4c 20 "OVERALL
2d80: 52 45 53 55 4c 54 3a 20 46 41 49 4c 55 52 45 20 RESULT: FAILURE
2d90: 28 22 20 24 70 65 72 63 65 6e 74 20 22 25 20 3c (" $percent "% <
2da0: 20 22 20 24 74 65 73 74 5f 74 68 72 65 73 68 6f " $test_thresho
2db0: 6c 64 20 25 29 5c 6e 5d 0d 0a 20 20 20 20 20 20 ld %)\n]..
2dc0: 7d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 }.. }....
2dd0: 75 6e 73 65 74 20 70 65 72 63 65 6e 74 0d 0a 0d unset percent...
2de0: 0a 20 20 20 20 74 70 75 74 73 20 24 74 65 73 74 . tputs $test
2df0: 5f 63 68 61 6e 6e 65 6c 20 5c 6e 3b 20 23 20 4e _channel \n; # N
2e00: 4f 54 45 3a 20 42 6c 61 6e 6b 20 6c 69 6e 65 2e OTE: Blank line.
2e10: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 0d 0a 20 20 .. }.... #..
2e20: 23 20 4e 4f 54 45 3a 20 43 61 6c 6c 20 74 68 65 # NOTE: Call the
2e30: 20 54 63 6c 20 74 65 73 74 20 63 6c 65 61 6e 75 Tcl test cleanu
2e40: 70 20 70 72 6f 63 65 64 75 72 65 20 6e 6f 77 20 p procedure now
2e50: 74 6f 20 67 69 76 65 20 69 74 20 61 20 63 68 61 to give it a cha
2e60: 6e 63 65 20 74 6f 20 64 6f 0d 0a 20 20 23 20 20 nce to do.. #
2e70: 20 20 20 20 20 61 6e 79 20 63 75 73 74 6f 6d 20 any custom
2e80: 63 6c 65 61 6e 75 70 20 74 68 61 74 20 68 61 73 cleanup that has
2e90: 20 62 65 65 6e 20 72 65 67 69 73 74 65 72 65 64 been registered
2ea0: 2e 0d 0a 20 20 23 0d 0a 20 20 3a 3a 74 63 6c 74 ... #.. ::tclt
2eb0: 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 est::cleanupTest
2ec0: 73 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f s.... #.. # NO
2ed0: 54 45 3a 20 43 68 65 63 6b 20 66 6f 72 20 61 6e TE: Check for an
2ee0: 64 20 70 72 6f 63 65 73 73 20 61 6e 79 20 63 75 d process any cu
2ef0: 73 74 6f 6d 20 74 65 73 74 20 65 70 69 6c 6f 67 stom test epilog
2f00: 75 65 20 73 63 72 69 70 74 20 74 68 61 74 20 6d ue script that m
2f10: 61 79 0d 0a 20 20 23 20 20 20 20 20 20 20 62 65 ay.. # be
2f20: 20 73 65 74 20 69 6e 20 74 68 65 20 65 6e 76 69 set in the envi
2f30: 72 6f 6e 6d 65 6e 74 2e 0d 0a 20 20 23 0d 0a 20 ronment... #..
2f40: 20 73 6f 75 72 63 65 49 66 56 61 6c 69 64 20 65 sourceIfValid e
2f50: 70 69 6c 6f 67 75 65 20 5b 67 65 74 45 6e 76 69 pilogue [getEnvi
2f60: 72 6f 6e 6d 65 6e 74 56 61 72 69 61 62 6c 65 20 ronmentVariable
2f70: 74 65 73 74 45 70 69 6c 6f 67 75 65 5d 0d 0a 0d testEpilogue]...
2f80: 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 . #.. # NOTE:
2f90: 41 72 65 20 77 65 20 62 65 69 6e 67 20 70 72 65 Are we being pre
2fa0: 76 65 6e 74 65 64 20 66 72 6f 6d 20 65 76 61 6c vented from eval
2fb0: 75 61 74 69 6e 67 20 74 68 65 20 22 70 6f 73 74 uating the "post
2fc0: 2d 74 65 73 74 22 20 73 63 72 69 70 74 3f 0d 0a -test" script?..
2fd0: 20 20 23 0d 0a 20 20 69 66 20 7b 21 5b 69 6e 66 #.. if {![inf
2fe0: 6f 20 65 78 69 73 74 73 20 6e 6f 28 70 6f 73 74 o exists no(post
2ff0: 54 65 73 74 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a Test)]} then {..
3000: 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 #.. # NOT
3010: 45 3a 20 45 76 61 6c 75 61 74 65 20 74 68 65 20 E: Evaluate the
3020: 73 70 65 63 69 66 69 65 64 20 70 6f 73 74 2d 74 specified post-t
3030: 65 73 74 20 73 63 72 69 70 74 20 6e 6f 77 2c 20 est script now,
3040: 69 66 20 61 6e 79 2e 0d 0a 20 20 20 20 23 0d 0a if any... #..
3050: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
3060: 69 73 74 73 20 74 65 73 74 5f 73 63 72 69 70 74 ists test_script
3070: 28 70 6f 73 74 29 5d 20 26 26 20 5c 0d 0a 20 20 (post)] && \..
3080: 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 [string le
3090: 6e 67 74 68 20 24 74 65 73 74 5f 73 63 72 69 70 ngth $test_scrip
30a0: 74 28 70 6f 73 74 29 5d 20 3e 20 30 7d 20 74 68 t(post)] > 0} th
30b0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 en {.. #..
30c0: 20 20 20 20 20 23 20 54 4f 44 4f 3a 20 50 65 72 # TODO: Per
30d0: 68 61 70 73 20 75 73 65 20 5b 75 70 6c 65 76 65 haps use [upleve
30e0: 6c 5d 20 68 65 72 65 20 69 6e 73 74 65 61 64 20 l] here instead
30f0: 6f 66 20 5b 65 76 61 6c 5d 2e 20 20 46 6f 72 20 of [eval]. For
3100: 6e 6f 77 2c 20 69 74 20 64 6f 65 73 0d 0a 20 20 now, it does..
3110: 20 20 20 20 23 20 20 20 20 20 20 20 6e 6f 74 20 # not
3120: 6d 61 74 74 65 72 20 73 69 6e 63 65 20 77 65 20 matter since we
3130: 65 6e 66 6f 72 63 65 20 74 68 69 73 20 66 69 6c enforce this fil
3140: 65 20 62 65 69 6e 67 20 65 76 61 6c 75 61 74 65 e being evaluate
3150: 64 20 61 74 20 74 68 65 0d 0a 20 20 20 20 20 20 d at the..
3160: 23 20 20 20 20 20 20 20 74 6f 70 2d 6c 65 76 65 # top-leve
3170: 6c 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 l... #..
3180: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 24 74 if {[catch $t
3190: 65 73 74 5f 73 63 72 69 70 74 28 70 6f 73 74 29 est_script(post)
31a0: 20 74 65 73 74 5f 73 63 72 69 70 74 28 70 6f 73 test_script(pos
31b0: 74 2c 72 65 73 75 6c 74 29 5d 7d 20 74 68 65 6e t,result)]} then
31c0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 {.. #..
31d0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4d # NOTE: M
31e0: 61 6b 65 20 31 30 30 25 20 73 75 72 65 2c 20 65 ake 100% sure, e
31f0: 76 65 6e 20 69 6e 20 22 71 75 69 65 74 22 20 6d ven in "quiet" m
3200: 6f 64 65 2c 20 74 68 61 74 20 74 68 69 73 20 73 ode, that this s
3210: 63 72 69 70 74 20 65 72 72 6f 72 0d 0a 20 20 20 cript error..
3220: 20 20 20 20 20 23 20 20 20 20 20 20 20 67 65 74 # get
3230: 73 20 69 6e 74 6f 20 74 68 65 20 74 65 73 74 20 s into the test
3240: 6c 6f 67 20 66 69 6c 65 2e 0d 0a 20 20 20 20 20 log file...
3250: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 74 70 #.. tp
3260: 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 uts $test_channe
3270: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 22 2d l [appendArgs "-
3280: 2d 2d 2d 20 70 6f 73 74 2d 74 65 73 74 20 73 63 --- post-test sc
3290: 72 69 70 74 20 65 72 72 6f 72 3a 20 22 20 5c 0d ript error: " \.
32a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 24 74 65 . $te
32b0: 73 74 5f 73 63 72 69 70 74 28 70 6f 73 74 2c 72 st_script(post,r
32c0: 65 73 75 6c 74 29 20 5c 6e 5d 0d 0a 0d 0a 20 20 esult) \n]....
32d0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
32e0: 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 70 6f 73 # NOTE: The pos
32f0: 74 2d 74 65 73 74 20 73 63 72 69 70 74 20 66 61 t-test script fa
3300: 69 6c 65 64 20 69 6e 20 73 6f 6d 65 20 77 61 79 iled in some way
3310: 2e 20 20 54 68 69 73 20 69 73 20 63 6f 6e 73 69 . This is consi
3320: 64 65 72 65 64 0d 0a 20 20 20 20 20 20 20 20 23 dered.. #
3330: 20 20 20 20 20 20 20 74 6f 20 62 65 20 61 6e 20 to be an
3340: 6f 76 65 72 61 6c 6c 20 66 61 69 6c 75 72 65 20 overall failure
3350: 6f 66 20 74 68 65 20 74 65 73 74 20 73 75 69 74 of the test suit
3360: 65 3b 20 74 68 65 72 65 66 6f 72 65 2c 20 72 61 e; therefore, ra
3370: 69 73 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 ise.. #
3380: 20 20 20 20 20 74 68 65 20 65 72 72 6f 72 20 6e the error n
3390: 6f 77 20 74 68 61 74 20 77 65 20 61 72 65 20 73 ow that we are s
33a0: 75 72 65 20 69 74 20 68 61 73 20 62 65 65 6e 20 ure it has been
33b0: 72 65 63 6f 72 64 65 64 20 69 6e 20 74 68 65 0d recorded in the.
33c0: 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 . #
33d0: 20 74 65 73 74 20 6c 6f 67 20 66 69 6c 65 2e 0d test log file..
33e0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
33f0: 20 20 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d unset -nocom
3400: 70 6c 61 69 6e 20 74 65 73 74 5f 73 75 69 74 65 plain test_suite
3410: 5f 72 75 6e 6e 69 6e 67 0d 0a 20 20 20 20 20 20 _running..
3420: 20 20 65 72 72 6f 72 20 24 74 65 73 74 5f 73 63 error $test_sc
3430: 72 69 70 74 28 70 6f 73 74 2c 72 65 73 75 6c 74 ript(post,result
3440: 29 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 ).. }..
3450: 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 0d 0a 20 }.. }.... #..
3460: 20 23 20 4e 4f 54 45 3a 20 49 6e 64 69 63 61 74 # NOTE: Indicat
3470: 65 20 74 68 61 74 20 74 68 65 20 74 65 73 74 20 e that the test
3480: 73 75 69 74 65 20 69 73 20 6e 6f 20 6c 6f 6e 67 suite is no long
3490: 65 72 20 72 75 6e 6e 69 6e 67 2e 0d 0a 20 20 23 er running... #
34a0: 0d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 .. if {[info ex
34b0: 69 73 74 73 20 74 65 73 74 5f 73 75 69 74 65 5f ists test_suite_
34c0: 72 75 6e 6e 69 6e 67 5d 20 26 26 20 24 74 65 73 running] && $tes
34d0: 74 5f 73 75 69 74 65 5f 72 75 6e 6e 69 6e 67 7d t_suite_running}
34e0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 73 65 74 then {.. set
34f0: 20 74 65 73 74 5f 73 75 69 74 65 5f 72 75 6e 6e test_suite_runn
3500: 69 6e 67 20 66 61 6c 73 65 0d 0a 20 20 7d 0d 0a ing false.. }..
3510: 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a .. #.. # NOTE:
3520: 20 44 6f 20 77 65 20 6e 65 65 64 20 74 6f 20 65 Do we need to e
3530: 78 69 74 20 6e 6f 77 3f 0d 0a 20 20 23 0d 0a 20 xit now?.. #..
3540: 20 69 66 20 7b 5b 69 73 45 78 69 74 4f 6e 43 6f if {[isExitOnCo
3550: 6d 70 6c 65 74 65 5d 7d 20 74 68 65 6e 20 7b 0d mplete]} then {.
3560: 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f . #.. # NO
3570: 54 45 3a 20 45 78 69 74 20 6e 6f 77 2e 20 20 49 TE: Exit now. I
3580: 6e 20 45 61 67 6c 65 2c 20 74 68 69 73 20 77 69 n Eagle, this wi
3590: 6c 6c 20 6e 6f 74 20 65 78 69 74 20 74 68 65 20 ll not exit the
35a0: 65 6e 74 69 72 65 20 70 72 6f 63 65 73 73 2e 0d entire process..
35b0: 0a 20 20 20 20 23 20 20 20 20 20 20 20 5a 65 72 . # Zer
35c0: 6f 20 28 30 29 20 77 69 6c 6c 20 62 65 20 74 68 o (0) will be th
35d0: 65 20 65 78 69 74 20 63 6f 64 65 20 69 66 20 61 e exit code if a
35e0: 6c 6c 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 ll the selected
35f0: 74 65 73 74 73 20 68 61 76 65 0d 0a 20 20 20 20 tests have..
3600: 23 20 20 20 20 20 20 20 73 75 63 63 65 65 64 65 # succeede
3610: 64 20 6f 72 20 74 68 65 20 74 65 73 74 20 73 75 d or the test su
3620: 63 63 65 73 73 20 74 68 72 65 73 68 6f 6c 64 20 ccess threshold
3630: 68 61 73 20 62 65 65 6e 20 6d 65 74 20 6f 72 0d has been met or.
3640: 0a 20 20 20 20 23 20 20 20 20 20 20 20 65 78 63 . # exc
3650: 65 65 64 65 64 3b 20 6f 74 68 65 72 77 69 73 65 eeded; otherwise
3660: 2c 20 6f 6e 65 20 28 31 29 20 77 69 6c 6c 20 62 , one (1) will b
3670: 65 20 74 68 65 20 65 78 69 74 20 63 6f 64 65 2e e the exit code.
3680: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 65 78 69 .. #.. exi
3690: 74 20 24 65 78 69 74 43 6f 64 65 0d 0a 20 20 7d t $exitCode.. }
36a0: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 23 0d 0a else {.. #..
36b0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 46 6f 72 20 # NOTE: For
36c0: 45 61 67 6c 65 2c 20 65 76 65 6e 20 77 68 65 6e Eagle, even when
36d0: 20 6e 6f 74 20 65 78 69 74 69 6e 67 2c 20 77 65 not exiting, we
36e0: 20 73 74 69 6c 6c 20 73 65 74 20 74 68 65 20 45 still set the E
36f0: 78 69 74 43 6f 64 65 0d 0a 20 20 20 20 23 20 20 xitCode.. #
3700: 20 20 20 20 20 70 72 6f 70 65 72 74 79 20 6f 66 property of
3710: 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 the interpreter
3720: 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 69 66 ... #.. if
3730: 20 7b 5b 69 73 45 61 67 6c 65 5d 20 26 26 20 5b {[isEagle] && [
3740: 6c 6c 65 6e 67 74 68 20 5b 69 6e 66 6f 20 63 6f llength [info co
3750: 6d 6d 61 6e 64 73 20 6f 62 6a 65 63 74 5d 5d 20 mmands object]]
3760: 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 > 0} then {..
3770: 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 object invoke
3780: 20 2d 61 6c 69 61 73 20 49 6e 74 65 72 70 72 65 -alias Interpre
3790: 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 45 78 ter.GetActive Ex
37a0: 69 74 43 6f 64 65 20 24 65 78 69 74 43 6f 64 65 itCode $exitCode
37b0: 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 75 .. }.... u
37c0: 6e 73 65 74 20 65 78 69 74 43 6f 64 65 0d 0a 20 nset exitCode..
37d0: 20 7d 0d 0a 7d 0d 0a }..}..