Artifact
ce1fe2b5f1aca0c60694da3b65153601403358ce:
0000: 3b 3b 20 20 43 6f 70 79 72 69 67 68 74 20 32 30 ;; Copyright 20
0010: 30 36 2d 32 30 31 37 2c 20 4d 61 74 74 68 65 77 06-2017, Matthew
0020: 20 57 65 6c 6c 61 6e 64 2e 0a 3b 3b 20 0a 3b 3b Welland..;; .;;
0030: 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 70 61 This file is pa
0040: 72 74 20 6f 66 20 4d 65 67 61 74 65 73 74 2e 0a rt of Megatest..
0050: 3b 3b 20 0a 3b 3b 20 20 20 20 20 4d 65 67 61 74 ;; .;; Megat
0060: 65 73 74 20 69 73 20 66 72 65 65 20 73 6f 66 74 est is free soft
0070: 77 61 72 65 3a 20 79 6f 75 20 63 61 6e 20 72 65 ware: you can re
0080: 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e distribute it an
0090: 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 20 d/or modify.;;
00a0: 20 20 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 it under the
00b0: 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 terms of the GNU
00c0: 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 General Public
00d0: 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 License as publi
00e0: 73 68 65 64 20 62 79 0a 3b 3b 20 20 20 20 20 74 shed by.;; t
00f0: 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 he Free Software
0100: 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 Foundation, eit
0110: 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 her version 3 of
0120: 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 the License, or
0130: 0a 3b 3b 20 20 20 20 20 28 61 74 20 79 6f 75 72 .;; (at your
0140: 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 option) any lat
0150: 65 72 20 76 65 72 73 69 6f 6e 2e 0a 3b 3b 20 0a er version..;; .
0160: 3b 3b 20 20 20 20 20 4d 65 67 61 74 65 73 74 20 ;; Megatest
0170: 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 is distributed i
0180: 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 n the hope that
0190: 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 it will be usefu
01a0: 6c 2c 0a 3b 3b 20 20 20 20 20 62 75 74 20 57 49 l,.;; but WI
01b0: 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e THOUT ANY WARRAN
01c0: 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e TY; without even
01d0: 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 the implied war
01e0: 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 20 20 20 20 ranty of.;;
01f0: 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 MERCHANTABILITY
0200: 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 or FITNESS FOR A
0210: 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 PARTICULAR PURP
0220: 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b OSE. See the.;;
0230: 20 20 20 20 20 47 4e 55 20 47 65 6e 65 72 61 6c GNU General
0240: 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 Public License
0250: 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 for more details
0260: 2e 0a 3b 3b 20 0a 3b 3b 20 20 20 20 20 59 6f 75 ..;; .;; You
0270: 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 should have rec
0280: 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 eived a copy of
0290: 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 the GNU General
02a0: 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b Public License.;
02b0: 3b 20 20 20 20 20 61 6c 6f 6e 67 20 77 69 74 68 ; along with
02c0: 20 4d 65 67 61 74 65 73 74 2e 20 20 49 66 20 6e Megatest. If n
02d0: 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f ot, see <http://
02e0: 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 www.gnu.org/lice
02f0: 6e 73 65 73 2f 3e 2e 0a 3b 3b 0a 0a 28 64 65 63 nses/>..;;..(dec
0300: 6c 61 72 65 20 28 75 6e 69 74 20 64 69 66 66 2d lare (unit diff-
0310: 72 65 70 6f 72 74 29 29 0a 28 64 65 63 6c 61 72 report)).(declar
0320: 65 20 28 75 73 65 73 20 63 6f 6d 6d 6f 6e 29 29 e (uses common))
0330: 0a 28 64 65 63 6c 61 72 65 20 28 75 73 65 73 20 .(declare (uses
0340: 64 65 62 75 67 70 72 69 6e 74 29 29 0a 28 64 65 debugprint)).(de
0350: 63 6c 61 72 65 20 28 75 73 65 73 20 72 6d 74 29 clare (uses rmt)
0360: 29 0a 28 64 65 63 6c 61 72 65 20 28 75 73 65 73 ).(declare (uses
0370: 20 72 6d 74 6d 6f 64 29 29 0a 28 64 65 63 6c 61 rmtmod)).(decla
0380: 72 65 20 28 75 73 65 73 20 63 6f 6d 6d 6f 6e 6d re (uses commonm
0390: 6f 64 29 29 0a 28 69 6d 70 6f 72 74 20 63 6f 6d od)).(import com
03a0: 6d 6f 6e 6d 6f 64 0a 09 72 6d 74 6d 6f 64 0a 09 monmod..rmtmod..
03b0: 64 65 62 75 67 70 72 69 6e 74 29 0a 20 20 20 20 debugprint).
03c0: 20 20 20 20 20 0a 28 69 6e 63 6c 75 64 65 20 22 .(include "
03d0: 63 6f 6d 6d 6f 6e 5f 72 65 63 6f 72 64 73 2e 73 common_records.s
03e0: 63 6d 22 29 0a 28 75 73 65 20 6d 61 74 63 68 61 cm").(use matcha
03f0: 62 6c 65 29 0a 28 75 73 65 20 66 6d 74 29 0a 28 ble).(use fmt).(
0400: 75 73 65 20 64 75 63 74 74 61 70 65 2d 6c 69 62 use ducttape-lib
0410: 29 0a 28 64 65 66 69 6e 65 20 63 73 73 20 22 22 ).(define css ""
0420: 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 69 66 66 )..(define (diff
0430: 3a 74 65 73 74 73 2d 6d 69 6e 64 61 74 2d 3e 68 :tests-mindat->h
0440: 61 73 68 20 74 65 73 74 73 2d 6d 69 6e 64 61 74 ash tests-mindat
0450: 29 0a 20 20 28 6c 65 74 2a 20 28 28 72 65 73 20 ). (let* ((res
0460: 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 (make-hash-table
0470: 29 29 29 0a 20 20 20 20 28 66 6f 72 2d 65 61 63 ))). (for-eac
0480: 68 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 h. (lambda (
0490: 69 74 65 6d 29 0a 20 20 20 20 20 20 20 28 6c 65 item). (le
04a0: 74 2a 20 28 28 74 65 73 74 2d 6e 61 6d 65 2b 69 t* ((test-name+i
04b0: 74 65 6d 2d 70 61 74 68 20 28 63 6f 6e 73 20 28 tem-path (cons (
04c0: 6c 69 73 74 2d 72 65 66 20 69 74 65 6d 20 30 29 list-ref item 0)
04d0: 20 28 6c 69 73 74 2d 72 65 66 20 69 74 65 6d 20 (list-ref item
04e0: 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 1))).
04f0: 20 20 20 28 76 61 6c 75 65 20 28 6c 69 73 74 2d (value (list-
0500: 72 65 66 20 69 74 65 6d 20 32 29 29 29 0a 20 20 ref item 2))).
0510: 20 20 20 20 20 20 20 28 68 61 73 68 2d 74 61 62 (hash-tab
0520: 6c 65 2d 73 65 74 21 20 72 65 73 20 74 65 73 74 le-set! res test
0530: 2d 6e 61 6d 65 2b 69 74 65 6d 2d 70 61 74 68 20 -name+item-path
0540: 76 61 6c 75 65 29 29 29 0a 20 20 20 20 20 74 65 value))). te
0550: 73 74 73 2d 6d 69 6e 64 61 74 29 0a 20 20 20 20 sts-mindat).
0560: 72 65 73 29 29 0a 0a 3b 3b 20 72 65 74 75 72 6e res))..;; return
0570: 20 31 20 69 66 20 73 74 61 74 75 73 31 20 69 73 1 if status1 is
0580: 20 62 65 74 74 65 72 0a 3b 3b 20 72 65 74 75 72 better.;; retur
0590: 6e 20 30 20 69 66 20 73 74 61 74 75 73 31 20 61 n 0 if status1 a
05a0: 6e 64 20 32 20 61 72 65 20 65 71 75 61 6c 6c 79 nd 2 are equally
05b0: 20 67 6f 6f 64 0a 3b 3b 20 72 65 74 75 72 6e 20 good.;; return
05c0: 2d 31 20 69 66 20 73 74 61 74 75 73 32 20 69 73 -1 if status2 is
05d0: 20 62 65 74 74 65 72 0a 28 64 65 66 69 6e 65 20 better.(define
05e0: 28 64 69 66 66 3a 73 74 61 74 75 73 2d 63 6f 6d (diff:status-com
05f0: 70 61 72 65 33 20 73 74 61 74 75 73 31 20 73 74 pare3 status1 st
0600: 61 74 75 73 32 29 0a 20 20 28 6c 65 74 2a 0a 20 atus2). (let*.
0610: 20 20 20 20 20 28 28 73 74 61 74 75 73 2d 67 6f ((status-go
0620: 6f 64 6e 65 73 73 2d 72 61 6e 6b 69 6e 67 20 20 odness-ranking
0630: 28 6c 69 73 74 20 22 50 41 53 53 22 20 22 57 41 (list "PASS" "WA
0640: 52 4e 22 20 22 57 41 49 56 45 44 22 20 22 53 4b RN" "WAIVED" "SK
0650: 49 50 22 20 22 46 41 49 4c 22 20 22 41 42 4f 52 IP" "FAIL" "ABOR
0660: 54 22 20 23 66 29 29 0a 20 20 20 20 20 20 20 28 T" #f)). (
0670: 6d 65 6d 31 20 28 6d 65 6d 62 65 72 20 73 74 61 mem1 (member sta
0680: 74 75 73 31 20 73 74 61 74 75 73 2d 67 6f 6f 64 tus1 status-good
0690: 6e 65 73 73 2d 72 61 6e 6b 69 6e 67 29 29 0a 20 ness-ranking)).
06a0: 20 20 20 20 20 20 28 6d 65 6d 32 20 28 6d 65 6d (mem2 (mem
06b0: 62 65 72 20 73 74 61 74 75 73 32 20 73 74 61 74 ber status2 stat
06c0: 75 73 2d 67 6f 6f 64 6e 65 73 73 2d 72 61 6e 6b us-goodness-rank
06d0: 69 6e 67 29 29 0a 20 20 20 20 20 20 20 29 0a 20 ing)). ).
06e0: 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 28 28 (cond. ((
06f0: 61 6e 64 20 28 6e 6f 74 20 6d 65 6d 31 29 20 28 and (not mem1) (
0700: 6e 6f 74 20 6d 65 6d 32 29 29 20 30 29 0a 20 20 not mem2)) 0).
0710: 20 20 20 28 28 6e 6f 74 20 6d 65 6d 31 29 20 2d ((not mem1) -
0720: 31 29 0a 20 20 20 20 20 28 28 6e 6f 74 20 6d 65 1). ((not me
0730: 6d 32 29 20 31 29 0a 20 20 20 20 20 28 28 3d 20 m2) 1). ((=
0740: 28 6c 65 6e 67 74 68 20 6d 65 6d 31 29 20 28 6c (length mem1) (l
0750: 65 6e 67 74 68 20 6d 65 6d 32 29 29 20 30 29 0a ength mem2)) 0).
0760: 20 20 20 20 20 28 28 3e 20 28 6c 65 6e 67 74 68 ((> (length
0770: 20 6d 65 6d 31 29 20 28 6c 65 6e 67 74 68 20 6d mem1) (length m
0780: 65 6d 32 29 29 20 31 29 0a 20 20 20 20 20 28 65 em2)) 1). (e
0790: 6c 73 65 20 2d 31 29 29 29 29 0a 0a 0a 28 64 65 lse -1))))...(de
07a0: 66 69 6e 65 20 28 64 69 66 66 3a 78 6f 72 2d 74 fine (diff:xor-t
07b0: 65 73 74 73 2d 6d 69 6e 64 61 74 20 73 72 63 2d ests-mindat src-
07c0: 74 65 73 74 73 2d 6d 69 6e 64 61 74 20 64 65 73 tests-mindat des
07d0: 74 2d 74 65 73 74 73 2d 6d 69 6e 64 61 74 20 23 t-tests-mindat #
07e0: 21 6b 65 79 20 28 68 69 64 65 2d 63 6c 65 61 6e !key (hide-clean
07f0: 20 23 66 29 20 28 63 6f 6e 73 69 73 74 65 6e 74 #f) (consistent
0800: 2d 66 61 69 6c 2d 6e 6f 74 2d 63 6c 65 61 6e 20 -fail-not-clean
0810: 23 66 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 #f)). (let* ((s
0820: 72 63 2d 68 61 73 68 20 28 64 69 66 66 3a 74 65 rc-hash (diff:te
0830: 73 74 73 2d 6d 69 6e 64 61 74 2d 3e 68 61 73 68 sts-mindat->hash
0840: 20 73 72 63 2d 74 65 73 74 73 2d 6d 69 6e 64 61 src-tests-minda
0850: 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 65 t)). (de
0860: 73 74 2d 68 61 73 68 20 28 64 69 66 66 3a 74 65 st-hash (diff:te
0870: 73 74 73 2d 6d 69 6e 64 61 74 2d 3e 68 61 73 68 sts-mindat->hash
0880: 20 64 65 73 74 2d 74 65 73 74 73 2d 6d 69 6e 64 dest-tests-mind
0890: 61 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 61 at)). (a
08a0: 6c 6c 2d 6b 65 79 73 0a 20 20 20 20 20 20 20 20 ll-keys.
08b0: 20 20 28 72 65 76 65 72 73 65 20 28 73 6f 72 74 (reverse (sort
08c0: 20 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 65 . (de
08d0: 6c 65 74 65 2d 64 75 70 6c 69 63 61 74 65 73 0a lete-duplicates.
08e0: 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 (app
08f0: 65 6e 64 20 28 68 61 73 68 2d 74 61 62 6c 65 2d end (hash-table-
0900: 6b 65 79 73 20 73 72 63 2d 68 61 73 68 29 20 28 keys src-hash) (
0910: 68 61 73 68 2d 74 61 62 6c 65 2d 6b 65 79 73 20 hash-table-keys
0920: 64 65 73 74 2d 68 61 73 68 29 29 29 0a 0a 20 20 dest-hash)))..
0930: 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 (lambda
0940: 20 28 61 20 62 29 20 0a 20 20 20 20 20 20 20 20 (a b) .
0950: 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 (cond.
0960: 20 20 20 20 20 20 20 20 20 28 28 3c 20 30 20 28 ((< 0 (
0970: 73 74 72 69 6e 67 2d 63 6f 6d 70 61 72 65 33 20 string-compare3
0980: 28 63 61 72 20 61 29 20 28 63 61 72 20 62 29 29 (car a) (car b))
0990: 29 20 23 74 29 0a 20 20 20 20 20 20 20 20 20 20 ) #t).
09a0: 20 20 20 20 28 28 3e 20 30 20 28 73 74 72 69 6e ((> 0 (strin
09b0: 67 2d 63 6f 6d 70 61 72 65 33 20 28 63 61 72 20 g-compare3 (car
09c0: 61 29 20 28 63 61 72 20 62 29 29 29 20 23 66 29 a) (car b))) #f)
09d0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 . (
09e0: 28 3c 20 30 20 28 73 74 72 69 6e 67 2d 63 6f 6d (< 0 (string-com
09f0: 70 61 72 65 33 20 28 63 64 72 20 61 29 20 28 63 pare3 (cdr a) (c
0a00: 64 72 20 62 29 29 29 20 23 74 29 0a 20 20 20 20 dr b))) #t).
0a10: 20 20 20 20 20 20 20 20 20 20 28 65 6c 73 65 20 (else
0a20: 23 66 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 #f)))..
0a30: 20 20 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 )))). (let
0a40: 28 28 72 65 73 0a 20 20 20 20 20 20 20 20 20 20 ((res.
0a50: 20 28 6d 61 70 20 3b 3b 20 54 4f 44 4f 3a 20 72 (map ;; TODO: r
0a60: 65 6e 61 6d 65 20 78 6f 72 20 74 6f 20 64 65 6c ename xor to del
0a70: 74 61 20 67 6c 6f 62 61 6c 6c 79 20 69 6e 20 64 ta globally in d
0a80: 63 6f 6d 6d 6f 6e 20 61 6e 64 20 64 61 73 68 62 common and dashb
0a90: 6f 61 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 oard.
0aa0: 20 28 6c 61 6d 62 64 61 20 28 6b 65 79 29 0a 20 (lambda (key).
0ab0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 (le
0ac0: 74 2a 20 28 28 74 65 73 74 2d 6e 61 6d 65 20 28 t* ((test-name (
0ad0: 63 61 72 20 6b 65 79 29 29 0a 20 20 20 20 20 20 car key)).
0ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
0af0: 69 74 65 6d 2d 70 61 74 68 20 28 63 64 72 20 6b item-path (cdr k
0b00: 65 79 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 ey))..
0b10: 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 74 (dest
0b20: 2d 76 61 6c 75 65 20 20 20 20 28 68 61 73 68 2d -value (hash-
0b30: 74 61 62 6c 65 2d 72 65 66 2f 64 65 66 61 75 6c table-ref/defaul
0b40: 74 20 64 65 73 74 2d 68 61 73 68 20 6b 65 79 20 t dest-hash key
0b50: 28 6c 69 73 74 20 30 20 22 4e 55 4c 4c 22 20 22 (list 0 "NULL" "
0b60: 4e 55 4c 4c 22 29 29 29 20 3b 3b 20 28 6c 69 73 NULL"))) ;; (lis
0b70: 74 20 74 65 73 74 2d 69 64 20 73 74 61 74 65 20 t test-id state
0b80: 73 74 61 74 75 73 29 0a 20 20 20 20 20 20 20 20 status).
0b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 (de
0ba0: 73 74 2d 74 65 73 74 2d 69 64 20 20 28 6c 69 73 st-test-id (lis
0bb0: 74 2d 72 65 66 20 64 65 73 74 2d 76 61 6c 75 65 t-ref dest-value
0bc0: 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 0)).
0bd0: 20 20 20 20 20 20 20 20 20 20 28 64 65 73 74 2d (dest-
0be0: 73 74 61 74 65 20 20 20 20 28 6c 69 73 74 2d 72 state (list-r
0bf0: 65 66 20 64 65 73 74 2d 76 61 6c 75 65 20 31 29 ef dest-value 1)
0c00: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).
0c10: 20 20 20 20 20 20 20 28 64 65 73 74 2d 73 74 61 (dest-sta
0c20: 74 75 73 20 20 20 28 6c 69 73 74 2d 72 65 66 20 tus (list-ref
0c30: 64 65 73 74 2d 76 61 6c 75 65 20 32 29 29 0a 0a dest-value 2))..
0c40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0c50: 20 20 20 20 20 28 73 72 63 2d 76 61 6c 75 65 20 (src-value
0c60: 20 20 20 20 28 68 61 73 68 2d 74 61 62 6c 65 2d (hash-table-
0c70: 72 65 66 2f 64 65 66 61 75 6c 74 20 73 72 63 2d ref/default src-
0c80: 68 61 73 68 20 6b 65 79 20 28 6c 69 73 74 20 30 hash key (list 0
0c90: 20 22 4e 55 4c 4c 22 20 22 4e 55 4c 4c 22 29 29 "NULL" "NULL"))
0ca0: 29 20 20 20 3b 3b 20 28 6c 69 73 74 20 74 65 73 ) ;; (list tes
0cb0: 74 2d 69 64 20 73 74 61 74 65 20 73 74 61 74 75 t-id state statu
0cc0: 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 s).
0cd0: 20 20 20 20 20 20 20 20 28 73 72 63 2d 74 65 73 (src-tes
0ce0: 74 2d 69 64 20 20 20 28 6c 69 73 74 2d 72 65 66 t-id (list-ref
0cf0: 20 73 72 63 2d 76 61 6c 75 65 20 30 29 29 0a 20 src-value 0)).
0d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0d10: 20 20 20 20 28 73 72 63 2d 73 74 61 74 65 20 20 (src-state
0d20: 20 20 20 28 6c 69 73 74 2d 72 65 66 20 73 72 63 (list-ref src
0d30: 2d 76 61 6c 75 65 20 31 29 29 0a 20 20 20 20 20 -value 1)).
0d40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0d50: 28 73 72 63 2d 73 74 61 74 75 73 20 20 20 20 28 (src-status (
0d60: 6c 69 73 74 2d 72 65 66 20 73 72 63 2d 76 61 6c list-ref src-val
0d70: 75 65 20 32 29 29 0a 0a 20 20 20 20 20 20 20 20 ue 2))..
0d80: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e (in
0d90: 63 6f 6d 70 6c 65 74 65 2d 73 74 61 74 75 73 65 complete-statuse
0da0: 73 20 27 28 22 44 45 4c 45 54 45 44 22 20 22 49 s '("DELETED" "I
0db0: 4e 43 4f 4d 50 4c 45 54 45 22 20 22 53 54 55 43 NCOMPLETE" "STUC
0dc0: 4b 2f 44 45 41 44 22 20 22 4e 2f 41 22 29 29 20 K/DEAD" "N/A"))
0dd0: 3b 3b 20 69 66 20 61 6e 79 20 6f 66 20 74 68 65 ;; if any of the
0de0: 73 65 20 73 74 61 74 75 73 65 73 20 61 70 70 6c se statuses appl
0df0: 79 2c 20 74 72 65 61 74 20 74 65 73 74 20 61 73 y, treat test as
0e00: 20 69 6e 63 6f 6d 70 6c 65 74 65 0a 0a 20 20 20 incomplete..
0e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0e20: 20 20 28 64 65 73 74 2d 63 6f 6d 70 6c 65 74 65 (dest-complete
0e30: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0e40: 20 20 20 20 20 20 20 28 61 6e 64 20 64 65 73 74 (and dest
0e50: 2d 76 61 6c 75 65 20 64 65 73 74 2d 73 74 61 74 -value dest-stat
0e60: 65 20 64 65 73 74 2d 73 74 61 74 75 73 0a 20 20 e dest-status.
0e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0e80: 20 20 20 20 20 20 20 20 20 28 65 71 75 61 6c 3f (equal?
0e90: 20 64 65 73 74 2d 73 74 61 74 65 20 22 43 4f 4d dest-state "COM
0ea0: 50 4c 45 54 45 44 22 29 0a 20 20 20 20 20 20 20 PLETED").
0eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0ec0: 20 20 20 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 (not (member
0ed0: 20 64 65 73 74 2d 73 74 61 74 75 73 20 69 6e 63 dest-status inc
0ee0: 6f 6d 70 6c 65 74 65 2d 73 74 61 74 75 73 65 73 omplete-statuses
0ef0: 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 )))).
0f00: 20 20 20 20 20 20 20 20 20 20 28 73 72 63 2d 63 (src-c
0f10: 6f 6d 70 6c 65 74 65 0a 20 20 20 20 20 20 20 20 omplete.
0f20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 (a
0f30: 6e 64 20 73 72 63 2d 76 61 6c 75 65 20 73 72 63 nd src-value src
0f40: 2d 73 74 61 74 65 20 73 72 63 2d 73 74 61 74 75 -state src-statu
0f50: 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 s.
0f60: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 (eq
0f70: 75 61 6c 3f 20 73 72 63 2d 73 74 61 74 65 20 22 ual? src-state "
0f80: 43 4f 4d 50 4c 45 54 45 44 22 29 0a 20 20 20 20 COMPLETED").
0f90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0fa0: 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6d 65 6d (not (mem
0fb0: 62 65 72 20 73 72 63 2d 73 74 61 74 75 73 20 69 ber src-status i
0fc0: 6e 63 6f 6d 70 6c 65 74 65 2d 73 74 61 74 75 73 ncomplete-status
0fd0: 65 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 es)))).
0fe0: 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 61 (sta
0ff0: 74 75 73 2d 63 6f 6d 70 61 72 65 2d 72 65 73 75 tus-compare-resu
1000: 6c 74 20 28 64 69 66 66 3a 73 74 61 74 75 73 2d lt (diff:status-
1010: 63 6f 6d 70 61 72 65 33 20 73 72 63 2d 73 74 61 compare3 src-sta
1020: 74 75 73 20 64 65 73 74 2d 73 74 61 74 75 73 29 tus dest-status)
1030: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).
1040: 20 20 20 20 20 20 20 28 78 6f 72 2d 6e 65 77 2d (xor-new-
1050: 69 74 65 6d 0a 20 20 20 20 20 20 20 20 20 20 20 item.
1060: 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 (cond
1070: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1080: 20 20 20 20 20 20 20 20 3b 3b 20 63 6f 6d 70 6c ;; compl
1090: 65 74 65 2c 20 66 6f 72 20 74 68 69 73 20 63 61 ete, for this ca
10a0: 73 65 20 6d 65 61 6e 73 3a 20 73 74 61 74 65 3d se means: state=
10b0: 63 6f 6d 70 65 6c 74 65 20 41 4e 44 20 73 74 61 compelte AND sta
10c0: 74 75 73 20 6e 6f 74 20 69 6e 20 28 20 64 65 6c tus not in ( del
10d0: 65 74 65 64 20 75 6e 63 6f 6d 70 6c 65 74 65 20 eted uncomplete
10e0: 73 74 75 63 6b 2f 64 65 61 64 20 6e 2f 61 20 29 stuck/dead n/a )
10f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1100: 20 20 20 20 20 20 20 20 3b 3b 20 6e 65 69 74 68 ;; neith
1110: 65 72 20 63 6f 6d 70 6c 65 74 65 20 2d 3e 20 62 er complete -> b
1120: 61 64 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 ad..
1130: 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 73 72 ;; sr
1140: 63 20 21 63 6f 6d 70 6c 65 74 65 2c 20 64 65 73 c !complete, des
1150: 74 20 63 6f 6d 70 6c 65 74 65 20 2d 3e 20 62 65 t complete -> be
1160: 74 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 tter.
1170: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e ((an
1180: 64 20 28 6e 6f 74 20 64 65 73 74 2d 63 6f 6d 70 d (not dest-comp
1190: 6c 65 74 65 29 20 28 6e 6f 74 20 73 72 63 2d 63 lete) (not src-c
11a0: 6f 6d 70 6c 65 74 65 29 29 0a 20 20 20 20 20 20 omplete)).
11b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
11c0: 20 20 28 6c 69 73 74 20 64 65 73 74 2d 74 65 73 (list dest-tes
11d0: 74 2d 69 64 20 22 42 4f 54 48 2d 42 41 44 22 20 t-id "BOTH-BAD"
11e0: 22 42 4f 54 48 2d 49 4e 43 4f 4d 50 4c 45 54 45 "BOTH-INCOMPLETE
11f0: 22 29 20 73 72 63 2d 76 61 6c 75 65 20 64 65 73 ") src-value des
1200: 74 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 20 20 t-value).
1210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1220: 28 28 6e 6f 74 20 64 65 73 74 2d 63 6f 6d 70 6c ((not dest-compl
1230: 65 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 ete).
1240: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 (li
1250: 73 74 20 73 72 63 2d 74 65 73 74 2d 69 64 20 22 st src-test-id "
1260: 4e 4f 54 2d 49 4e 2d 44 45 53 54 22 20 22 44 45 NOT-IN-DEST" "DE
1270: 53 54 2d 49 4e 43 4f 4d 50 4c 45 54 45 22 29 20 ST-INCOMPLETE")
1280: 73 72 63 2d 76 61 6c 75 65 20 64 65 73 74 2d 76 src-value dest-v
1290: 61 6c 75 65 29 20 20 0a 20 20 20 20 20 20 20 20 alue) .
12a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
12b0: 28 6e 6f 74 20 73 72 63 2d 63 6f 6d 70 6c 65 74 (not src-complet
12c0: 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 e).
12d0: 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 (list
12e0: 20 64 65 73 74 2d 74 65 73 74 2d 69 64 20 22 4e dest-test-id "N
12f0: 4f 54 2d 49 4e 2d 53 52 43 22 20 22 53 52 43 2d OT-IN-SRC" "SRC-
1300: 49 4e 43 4f 4d 50 4c 45 54 45 22 29 20 73 72 63 INCOMPLETE") src
1310: 2d 76 61 6c 75 65 20 64 65 73 74 2d 76 61 6c 75 -value dest-valu
1320: 65 29 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 e) .
1330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1340: 28 28 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 ((and.
1350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
1360: 65 71 75 61 6c 3f 20 73 72 63 2d 73 74 61 74 65 equal? src-state
1370: 20 64 65 73 74 2d 73 74 61 74 65 29 0a 20 20 20 dest-state).
1380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1390: 20 20 20 20 20 20 28 65 71 75 61 6c 3f 20 73 72 (equal? sr
13a0: 63 2d 73 74 61 74 75 73 20 64 65 73 74 2d 73 74 c-status dest-st
13b0: 61 74 75 73 29 29 0a 20 20 20 20 20 20 20 20 20 atus)).
13c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
13d0: 69 66 20 28 61 6e 64 20 63 6f 6e 73 69 73 74 65 if (and consiste
13e0: 6e 74 2d 66 61 69 6c 2d 6e 6f 74 2d 63 6c 65 61 nt-fail-not-clea
13f0: 6e 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 64 n (not (member d
1400: 65 73 74 2d 73 74 61 74 75 73 20 27 28 22 50 41 est-status '("PA
1410: 53 53 22 20 22 53 4b 49 50 22 20 22 57 41 49 56 SS" "SKIP" "WAIV
1420: 45 44 22 20 22 57 41 52 4e 22 29 29 29 29 0a 20 ED" "WARN")))).
1430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1440: 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 (list
1450: 20 64 65 73 74 2d 74 65 73 74 2d 69 64 20 20 28 dest-test-id (
1460: 63 6f 6e 63 20 22 42 4f 54 48 2d 42 41 44 22 29 conc "BOTH-BAD")
1470: 20 28 63 6f 6e 63 20 22 43 4c 45 41 4e 2d 22 20 (conc "CLEAN-"
1480: 64 65 73 74 2d 73 74 61 74 75 73 29 20 73 72 63 dest-status) src
1490: 2d 76 61 6c 75 65 20 64 65 73 74 2d 76 61 6c 75 -value dest-valu
14a0: 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 e).
14b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
14c0: 6c 69 73 74 20 64 65 73 74 2d 74 65 73 74 2d 69 list dest-test-i
14d0: 64 20 20 28 63 6f 6e 63 20 22 43 4c 45 41 4e 22 d (conc "CLEAN"
14e0: 29 20 28 63 6f 6e 63 20 22 43 4c 45 41 4e 2d 22 ) (conc "CLEAN-"
14f0: 20 64 65 73 74 2d 73 74 61 74 75 73 29 20 73 72 dest-status) sr
1500: 63 2d 76 61 6c 75 65 20 64 65 73 74 2d 76 61 6c c-value dest-val
1510: 75 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 ue))).
1520: 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 ;;
1530: 20 20 20 62 65 74 74 65 72 20 6f 72 20 77 6f 72 better or wor
1540: 73 65 3a 20 70 61 73 73 20 3e 20 77 61 72 6e 20 se: pass > warn
1550: 3e 20 77 61 69 76 65 64 20 3e 20 73 6b 69 70 20 > waived > skip
1560: 3e 20 66 61 69 6c 20 3e 20 61 62 6f 72 74 0a 20 > fail > abort.
1570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1580: 20 20 20 20 20 20 3b 3b 20 20 20 20 20 70 61 73 ;; pas
1590: 73 20 3e 20 77 61 72 6e 20 3e 20 77 61 69 76 65 s > warn > waive
15a0: 64 20 3e 20 73 6b 69 70 20 3e 20 66 61 69 6c 20 d > skip > fail
15b0: 3e 20 61 62 6f 72 74 0a 20 20 20 20 20 20 20 20 > abort.
15c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a .
15d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
15e0: 20 20 20 20 20 20 20 28 28 3d 20 31 20 73 74 61 ((= 1 sta
15f0: 74 75 73 2d 63 6f 6d 70 61 72 65 2d 72 65 73 75 tus-compare-resu
1600: 6c 74 29 20 3b 3b 20 73 72 63 20 69 73 20 62 65 lt) ;; src is be
1610: 74 74 65 72 2c 20 64 65 73 74 20 69 73 20 77 6f tter, dest is wo
1620: 72 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 rse.
1630: 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 (lis
1640: 74 20 64 65 73 74 2d 74 65 73 74 2d 69 64 20 22 t dest-test-id "
1650: 57 4f 52 53 45 22 20 28 63 6f 6e 63 20 73 72 63 WORSE" (conc src
1660: 2d 73 74 61 74 75 73 20 22 2d 3e 22 20 64 65 73 -status "->" des
1670: 74 2d 73 74 61 74 75 73 29 20 73 72 63 2d 76 61 t-status) src-va
1680: 6c 75 65 20 64 65 73 74 2d 76 61 6c 75 65 29 29 lue dest-value))
1690: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
16a0: 20 20 20 20 20 20 20 20 28 65 6c 73 65 0a 20 20 (else.
16b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
16c0: 20 20 20 20 20 20 28 6c 69 73 74 20 64 65 73 74 (list dest
16d0: 2d 74 65 73 74 2d 69 64 20 22 42 45 54 54 45 52 -test-id "BETTER
16e0: 22 20 28 63 6f 6e 63 20 73 72 63 2d 73 74 61 74 " (conc src-stat
16f0: 75 73 20 22 2d 3e 22 20 64 65 73 74 2d 73 74 61 us "->" dest-sta
1700: 74 75 73 29 20 73 72 63 2d 76 61 6c 75 65 20 64 tus) src-value d
1710: 65 73 74 2d 76 61 6c 75 65 29 29 29 29 29 0a 20 est-value))))).
1720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
1730: 6c 69 73 74 20 74 65 73 74 2d 6e 61 6d 65 20 69 list test-name i
1740: 74 65 6d 2d 70 61 74 68 20 20 78 6f 72 2d 6e 65 tem-path xor-ne
1750: 77 2d 69 74 65 6d 29 29 29 0a 20 20 20 20 20 20 w-item))).
1760: 20 20 20 20 20 20 61 6c 6c 2d 6b 65 79 73 29 29 all-keys))
1770: 29 0a 0a 20 20 20 20 20 20 28 69 66 20 68 69 64 ).. (if hid
1780: 65 2d 63 6c 65 61 6e 0a 20 20 20 20 20 20 20 20 e-clean.
1790: 20 20 28 66 69 6c 74 65 72 0a 20 20 20 20 20 20 (filter.
17a0: 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 69 74 (lambda (it
17b0: 65 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 em).
17c0: 20 28 6e 6f 74 0a 20 20 20 20 20 20 20 20 20 20 (not.
17d0: 20 20 20 20 28 65 71 75 61 6c 3f 0a 20 20 20 20 (equal?.
17e0: 20 20 20 20 20 20 20 20 20 20 20 22 43 4c 45 41 "CLEA
17f0: 4e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 N".
1800: 20 20 28 6c 69 73 74 2d 72 65 66 20 28 6c 69 73 (list-ref (lis
1810: 74 2d 72 65 66 20 69 74 65 6d 20 32 29 20 31 29 t-ref item 2) 1)
1820: 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 72 ))). r
1830: 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 72 65 es). re
1840: 73 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 s))))..(define (
1850: 64 69 66 66 3a 72 75 6e 2d 6e 61 6d 65 2d 3e 72 diff:run-name->r
1860: 75 6e 2d 69 64 20 72 75 6e 2d 6e 61 6d 65 29 0a un-id run-name).
1870: 20 20 28 69 66 20 28 6e 75 6d 62 65 72 3f 20 72 (if (number? r
1880: 75 6e 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 72 un-name). r
1890: 75 6e 2d 6e 61 6d 65 0a 20 20 20 20 20 20 28 6c un-name. (l
18a0: 65 74 2a 20 28 28 71 72 79 2d 72 65 73 20 28 72 et* ((qry-res (r
18b0: 6d 74 3a 67 65 74 2d 72 75 6e 73 20 72 75 6e 2d mt:get-runs run-
18c0: 6e 61 6d 65 20 31 20 30 20 27 28 29 29 29 29 0a name 1 0 '()))).
18d0: 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 3f (if (eq?
18e0: 20 32 20 28 76 65 63 74 6f 72 2d 6c 65 6e 67 74 2 (vector-lengt
18f0: 68 20 71 72 79 2d 72 65 73 29 29 0a 20 20 20 20 h qry-res)).
1900: 20 20 20 20 20 20 20 20 28 76 65 63 74 6f 72 2d (vector-
1910: 72 65 66 20 28 63 61 72 20 28 76 65 63 74 6f 72 ref (car (vector
1920: 2d 72 65 66 20 71 72 79 2d 72 65 73 20 31 29 29 -ref qry-res 1))
1930: 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 1).
1940: 23 66 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 #f))))..(define
1950: 28 64 69 66 66 3a 74 61 72 67 65 74 2b 72 75 6e (diff:target+run
1960: 2d 6e 61 6d 65 2d 3e 72 75 6e 2d 69 64 20 74 61 -name->run-id ta
1970: 72 67 65 74 20 72 75 6e 2d 6e 61 6d 65 29 0a 20 rget run-name).
1980: 20 28 6c 65 74 2a 20 28 28 6b 65 79 73 20 28 72 (let* ((keys (r
1990: 6d 74 3a 67 65 74 2d 6b 65 79 73 29 29 0a 20 20 mt:get-keys)).
19a0: 20 20 20 20 20 20 20 28 74 61 72 67 65 74 2d 70 (target-p
19b0: 61 72 74 73 20 28 69 66 20 74 61 72 67 65 74 20 arts (if target
19c0: 28 73 74 72 69 6e 67 2d 73 70 6c 69 74 20 74 61 (string-split ta
19d0: 72 67 65 74 20 22 2f 22 29 20 28 6d 61 70 20 28 rget "/") (map (
19e0: 6c 61 6d 62 64 61 20 28 78 29 20 22 25 22 29 20 lambda (x) "%")
19f0: 6b 65 79 73 29 29 29 29 0a 20 20 20 20 28 69 66 keys)))). (if
1a00: 20 28 6e 6f 74 20 28 65 71 3f 20 28 6c 65 6e 67 (not (eq? (leng
1a10: 74 68 20 6b 65 79 73 29 20 28 6c 65 6e 67 74 68 th keys) (length
1a20: 20 6b 65 79 73 29 29 29 0a 20 20 20 20 20 20 20 keys))).
1a30: 20 28 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 (begin.
1a40: 20 20 28 64 65 62 75 67 3a 70 72 69 6e 74 20 30 (debug:print 0
1a50: 20 2a 64 65 66 61 75 6c 74 2d 6c 6f 67 2d 70 6f *default-log-po
1a60: 72 74 2a 20 22 45 72 72 6f 72 3a 20 54 61 72 67 rt* "Error: Targ
1a70: 65 74 20 28 22 74 61 72 67 65 74 22 29 20 69 74 et ("target") it
1a80: 65 6d 20 63 6f 75 6e 74 20 64 6f 65 73 20 6e 6f em count does no
1a90: 74 20 6d 61 74 63 68 20 66 69 65 6c 64 73 20 63 t match fields c
1aa0: 6f 75 6e 74 20 74 61 72 67 65 74 20 74 6f 6b 65 ount target toke
1ab0: 6e 73 3d 22 74 61 72 67 65 74 2d 70 61 72 74 73 ns="target-parts
1ac0: 22 20 66 69 65 6c 64 73 3d 22 6b 65 79 73 29 0a " fields="keys).
1ad0: 20 20 20 20 20 20 20 20 20 20 23 66 29 0a 20 20 #f).
1ae0: 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 61 (let* ((ta
1af0: 72 67 65 74 2d 6d 61 70 20 28 7a 69 70 20 6b 65 rget-map (zip ke
1b00: 79 73 20 74 61 72 67 65 74 2d 70 61 72 74 73 29 ys target-parts)
1b10: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).
1b20: 20 28 71 72 79 2d 72 65 73 20 28 72 6d 74 3a 67 (qry-res (rmt:g
1b30: 65 74 2d 72 75 6e 73 20 72 75 6e 2d 6e 61 6d 65 et-runs run-name
1b40: 20 31 20 30 20 74 61 72 67 65 74 2d 6d 61 70 29 1 0 target-map)
1b50: 29 29 0a 0a 20 20 20 20 20 20 20 20 20 20 28 69 )).. (i
1b60: 66 20 28 65 71 3f 20 32 20 28 76 65 63 74 6f 72 f (eq? 2 (vector
1b70: 2d 6c 65 6e 67 74 68 20 71 72 79 2d 72 65 73 29 -length qry-res)
1b80: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).
1b90: 28 6c 65 74 20 28 28 66 69 72 73 74 2d 65 6e 74 (let ((first-ent
1ba0: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 71 72 79 (vector-ref qry
1bb0: 2d 72 65 73 20 31 29 29 29 0a 20 20 20 20 20 20 -res 1))).
1bc0: 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3e (if (>
1bd0: 20 28 6c 65 6e 67 74 68 20 66 69 72 73 74 2d 65 (length first-e
1be0: 6e 74 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 nt) 0).
1bf0: 20 20 20 20 20 20 20 20 20 20 20 28 76 65 63 74 (vect
1c00: 6f 72 2d 72 65 66 20 28 63 61 72 20 66 69 72 73 or-ref (car firs
1c10: 74 2d 65 6e 74 29 20 31 29 0a 20 20 20 20 20 20 t-ent) 1).
1c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 66 #f
1c30: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 )).
1c40: 20 23 66 29 29 29 29 29 0a 0a 28 64 65 66 69 6e #f)))))..(defin
1c50: 65 20 28 64 69 66 66 3a 72 75 6e 2d 69 64 2d 3e e (diff:run-id->
1c60: 74 65 73 74 73 2d 6d 69 6e 64 61 74 20 72 75 6e tests-mindat run
1c70: 2d 69 64 20 23 21 6b 65 79 20 28 74 65 73 74 70 -id #!key (testp
1c80: 61 74 74 20 22 25 2f 25 22 29 29 0a 20 20 28 6c att "%/%")). (l
1c90: 65 74 2a 20 28 28 73 74 61 74 65 73 20 27 28 29 et* ((states '()
1ca0: 29 0a 20 20 20 20 20 20 20 20 20 28 73 74 61 74 ). (stat
1cb0: 75 73 65 73 20 27 28 29 29 0a 20 20 20 20 20 20 uses '()).
1cc0: 20 20 20 28 6f 66 66 73 65 74 20 23 66 29 0a 20 (offset #f).
1cd0: 20 20 20 20 20 20 20 20 28 6c 69 6d 69 74 20 23 (limit #
1ce0: 66 29 0a 20 20 20 20 20 20 20 20 20 28 6e 6f 74 f). (not
1cf0: 2d 69 6e 20 23 74 29 0a 20 20 20 20 20 20 20 20 -in #t).
1d00: 20 28 73 6f 72 74 2d 62 79 20 23 66 29 0a 20 20 (sort-by #f).
1d10: 20 20 20 20 20 20 20 28 73 6f 72 74 2d 6f 72 64 (sort-ord
1d20: 65 72 20 23 66 29 0a 20 20 20 20 20 20 20 20 20 er #f).
1d30: 28 71 72 79 76 61 6c 73 20 22 69 64 2c 74 65 73 (qryvals "id,tes
1d40: 74 6e 61 6d 65 2c 69 74 65 6d 5f 70 61 74 68 2c tname,item_path,
1d50: 73 74 61 74 65 2c 73 74 61 74 75 73 22 29 0a 20 state,status").
1d60: 20 20 20 20 20 20 20 20 28 71 72 79 76 61 6c 73 (qryvals
1d70: 20 22 69 64 2c 74 65 73 74 6e 61 6d 65 2c 69 74 "id,testname,it
1d80: 65 6d 5f 70 61 74 68 2c 73 74 61 74 65 2c 73 74 em_path,state,st
1d90: 61 74 75 73 22 29 0a 20 20 20 20 20 20 20 20 20 atus").
1da0: 28 6c 61 73 74 2d 75 70 64 61 74 65 20 30 29 0a (last-update 0).
1db0: 20 20 20 20 20 20 20 20 20 28 6d 6f 64 65 20 23 (mode #
1dc0: 66 29 0a 20 20 20 20 20 20 20 20 20 29 0a 20 20 f). ).
1dd0: 20 20 28 6d 61 70 0a 20 20 20 20 20 3b 3b 20 28 (map. ;; (
1de0: 6c 61 6d 62 64 61 20 28 72 6f 77 29 0a 20 20 20 lambda (row).
1df0: 20 20 3b 3b 20 20 20 28 6d 61 74 63 68 20 72 6f ;; (match ro
1e00: 77 0a 20 20 20 20 20 3b 3b 20 20 20 20 20 28 28 w. ;; ((
1e10: 23 28 69 64 20 74 65 73 74 2d 6e 61 6d 65 20 69 #(id test-name i
1e20: 74 65 6d 2d 70 61 74 68 20 73 74 61 74 65 20 73 tem-path state s
1e30: 74 61 74 75 73 29 0a 20 20 20 20 20 3b 3b 20 20 tatus). ;;
1e40: 20 20 20 20 20 28 6c 69 73 74 20 74 65 73 74 2d (list test-
1e50: 6e 61 6d 65 20 69 74 65 6d 2d 70 61 74 68 20 28 name item-path (
1e60: 6c 69 73 74 20 69 64 20 73 74 61 74 65 20 73 74 list id state st
1e70: 61 74 75 73 29 29 29 29 0a 20 20 20 20 20 3b 3b atus)))). ;;
1e80: 20 20 20 20 20 28 65 6c 73 65 20 23 66 29 29 29 (else #f)))
1e90: 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 72 . (lambda (r
1ea0: 6f 77 29 0a 20 20 20 20 20 20 20 28 6c 65 74 2a ow). (let*
1eb0: 20 28 28 69 64 20 20 20 20 20 20 20 20 28 76 65 ((id (ve
1ec0: 63 74 6f 72 2d 72 65 66 20 72 6f 77 20 30 29 29 ctor-ref row 0))
1ed0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 . (
1ee0: 74 65 73 74 2d 6e 61 6d 65 20 20 28 76 65 63 74 test-name (vect
1ef0: 6f 72 2d 72 65 66 20 72 6f 77 20 31 29 29 0a 20 or-ref row 1)).
1f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 (it
1f10: 65 6d 2d 70 61 74 68 20 28 76 65 63 74 6f 72 2d em-path (vector-
1f20: 72 65 66 20 72 6f 77 20 32 29 29 0a 20 20 20 20 ref row 2)).
1f30: 20 20 20 20 20 20 20 20 20 20 28 73 74 61 74 65 (state
1f40: 20 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 (vector-ref
1f50: 20 72 6f 77 20 33 29 29 0a 20 20 20 20 20 20 20 row 3)).
1f60: 20 20 20 20 20 20 20 28 73 74 61 74 75 73 20 20 (status
1f70: 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 72 6f (vector-ref ro
1f80: 77 20 34 29 29 29 0a 20 20 20 20 20 20 20 20 20 w 4))).
1f90: 20 20 20 20 28 6c 69 73 74 20 74 65 73 74 2d 6e (list test-n
1fa0: 61 6d 65 20 69 74 65 6d 2d 70 61 74 68 20 28 6c ame item-path (l
1fb0: 69 73 74 20 69 64 20 73 74 61 74 65 20 73 74 61 ist id state sta
1fc0: 74 75 73 29 29 29 29 0a 20 20 20 20 20 0a 20 20 tus)))). .
1fd0: 20 20 20 28 72 6d 74 3a 67 65 74 2d 74 65 73 74 (rmt:get-test
1fe0: 73 2d 66 6f 72 2d 72 75 6e 20 72 75 6e 2d 69 64 s-for-run run-id
1ff0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
2000: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 tes
2010: 74 70 61 74 74 20 73 74 61 74 65 73 20 73 74 61 tpatt states sta
2020: 74 75 73 65 73 0a 20 20 20 20 20 20 20 20 20 20 tuses.
2030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2040: 20 20 6f 66 66 73 65 74 20 6c 69 6d 69 74 0a 20 offset limit.
2050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2060: 20 20 20 20 20 20 20 20 20 20 20 6e 6f 74 2d 69 not-i
2070: 6e 20 73 6f 72 74 2d 62 79 20 73 6f 72 74 2d 6f n sort-by sort-o
2080: 72 64 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 rder.
2090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20a0: 20 71 72 79 76 61 6c 73 0a 20 20 20 20 20 20 20 qryvals.
20b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
20c0: 20 20 20 20 20 6c 61 73 74 2d 75 70 64 61 74 65 last-update
20d0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
20e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 mod
20f0: 65 29 29 29 29 0a 0a 0a 28 64 65 66 69 6e 65 20 e))))...(define
2100: 28 64 69 66 66 3a 64 69 66 66 2d 72 75 6e 73 20 (diff:diff-runs
2110: 73 72 63 2d 72 75 6e 2d 69 64 20 64 65 73 74 2d src-run-id dest-
2120: 72 75 6e 2d 69 64 29 0a 20 20 28 6c 65 74 2a 20 run-id). (let*
2130: 28 28 73 72 63 2d 74 65 73 74 73 2d 6d 69 6e 64 ((src-tests-mind
2140: 61 74 20 20 28 64 69 66 66 3a 72 75 6e 2d 69 64 at (diff:run-id
2150: 2d 3e 74 65 73 74 73 2d 6d 69 6e 64 61 74 20 73 ->tests-mindat s
2160: 72 63 2d 72 75 6e 2d 69 64 29 29 0a 20 20 20 20 rc-run-id)).
2170: 20 20 20 20 20 28 64 65 73 74 2d 74 65 73 74 73 (dest-tests
2180: 2d 6d 69 6e 64 61 74 20 28 64 69 66 66 3a 72 75 -mindat (diff:ru
2190: 6e 2d 69 64 2d 3e 74 65 73 74 73 2d 6d 69 6e 64 n-id->tests-mind
21a0: 61 74 20 64 65 73 74 2d 72 75 6e 2d 69 64 29 29 at dest-run-id))
21b0: 29 0a 20 20 20 20 28 64 69 66 66 3a 78 6f 72 2d ). (diff:xor-
21c0: 74 65 73 74 73 2d 6d 69 6e 64 61 74 20 73 72 63 tests-mindat src
21d0: 2d 74 65 73 74 73 2d 6d 69 6e 64 61 74 20 64 65 -tests-mindat de
21e0: 73 74 2d 74 65 73 74 73 2d 6d 69 6e 64 61 74 20 st-tests-mindat
21f0: 63 6f 6e 73 69 73 74 65 6e 74 2d 66 61 69 6c 2d consistent-fail-
2200: 6e 6f 74 2d 63 6c 65 61 6e 3a 20 23 74 29 29 29 not-clean: #t)))
2210: 0a 0a 0a 28 64 65 66 69 6e 65 20 28 64 69 66 66 ...(define (diff
2220: 3a 72 75 6e 64 69 66 66 2d 66 69 6e 64 2d 62 79 :rundiff-find-by
2230: 2d 73 74 61 74 65 20 72 75 6e 2d 64 69 66 66 20 -state run-diff
2240: 73 74 61 74 65 29 0a 20 20 20 20 28 66 69 6c 74 state). (filt
2250: 65 72 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 er. (lambda
2260: 28 78 29 0a 20 20 20 20 20 20 20 28 65 71 75 61 (x). (equa
2270: 6c 3f 20 28 6c 69 73 74 2d 72 65 66 20 28 63 61 l? (list-ref (ca
2280: 64 64 72 20 78 29 20 31 29 20 73 74 61 74 65 29 ddr x) 1) state)
2290: 29 0a 20 20 20 20 20 72 75 6e 2d 64 69 66 66 29 ). run-diff)
22a0: 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 69 66 66 )..(define (diff
22b0: 3a 72 75 6e 64 69 66 66 2d 63 6c 65 61 6e 2d 62 :rundiff-clean-b
22c0: 72 65 61 6b 64 6f 77 6e 20 72 75 6e 2d 64 69 66 reakdown run-dif
22d0: 66 29 0a 20 20 28 6d 61 70 0a 20 20 20 28 6c 61 f). (map. (la
22e0: 6d 62 64 61 20 28 72 75 6e 2d 64 69 66 66 2d 69 mbda (run-diff-i
22f0: 74 65 6d 29 0a 20 20 20 20 20 28 6d 61 74 63 68 tem). (match
2300: 20 72 75 6e 2d 64 69 66 66 2d 69 74 65 6d 0a 20 run-diff-item.
2310: 20 20 20 20 20 20 28 28 74 65 73 74 2d 6e 61 6d ((test-nam
2320: 65 20 69 74 65 6d 2d 70 61 74 68 20 28 6a 75 6e e item-path (jun
2330: 6b 2d 69 64 20 64 69 66 66 2d 73 74 61 74 65 20 k-id diff-state
2340: 64 69 66 66 2d 73 74 61 74 75 73 20 28 73 72 63 diff-status (src
2350: 2d 74 65 73 74 2d 69 64 20 73 72 63 2d 73 74 61 -test-id src-sta
2360: 74 65 20 73 72 63 2d 73 74 61 74 75 73 29 20 28 te src-status) (
2370: 64 65 73 74 2d 74 65 73 74 2d 69 64 20 64 65 73 dest-test-id des
2380: 74 2d 73 74 61 74 65 20 64 65 73 74 2d 73 74 61 t-state dest-sta
2390: 74 75 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 tus))). (
23a0: 6c 69 73 74 20 74 65 73 74 2d 6e 61 6d 65 20 69 list test-name i
23b0: 74 65 6d 2d 70 61 74 68 20 22 43 4c 45 41 4e 22 tem-path "CLEAN"
23c0: 20 73 72 63 2d 73 74 61 74 75 73 29 29 0a 20 20 src-status)).
23d0: 20 20 20 20 20 28 65 6c 73 65 20 22 22 29 29 29 (else "")))
23e0: 0a 20 20 20 28 64 69 66 66 3a 72 75 6e 64 69 66 . (diff:rundif
23f0: 66 2d 66 69 6e 64 2d 62 79 2d 73 74 61 74 65 20 f-find-by-state
2400: 72 75 6e 2d 64 69 66 66 20 22 43 4c 45 41 4e 22 run-diff "CLEAN"
2410: 29 29 29 0a 20 20 0a 28 64 65 66 69 6e 65 20 28 ))). .(define (
2420: 64 69 66 66 3a 73 75 6d 6d 61 72 69 7a 65 2d 72 diff:summarize-r
2430: 75 6e 2d 64 69 66 66 20 72 75 6e 2d 64 69 66 66 un-diff run-diff
2440: 29 0a 20 20 0a 20 20 28 6c 65 74 2a 20 28 28 64 ). . (let* ((d
2450: 69 66 66 2d 73 74 61 74 65 73 20 28 6c 69 73 74 iff-states (list
2460: 20 22 43 4c 45 41 4e 22 20 22 42 45 54 54 45 52 "CLEAN" "BETTER
2470: 22 20 22 57 4f 52 53 45 22 20 22 42 4f 54 48 2d " "WORSE" "BOTH-
2480: 42 41 44 22 20 22 4e 4f 54 2d 49 4e 2d 44 45 53 BAD" "NOT-IN-DES
2490: 54 22 20 22 4e 4f 54 2d 49 4e 2d 53 52 43 22 20 T" "NOT-IN-SRC"
24a0: 29 29 29 0a 20 20 20 20 28 6d 61 70 0a 20 20 20 ))). (map.
24b0: 20 20 28 6c 61 6d 62 64 61 20 28 73 74 61 74 65 (lambda (state
24c0: 29 0a 20 20 20 20 20 20 20 28 6c 69 73 74 20 73 ). (list s
24d0: 74 61 74 65 20 0a 20 20 20 20 20 20 20 20 20 20 tate .
24e0: 20 20 20 28 6c 65 6e 67 74 68 20 28 64 69 66 66 (length (diff
24f0: 3a 72 75 6e 64 69 66 66 2d 66 69 6e 64 2d 62 79 :rundiff-find-by
2500: 2d 73 74 61 74 65 20 72 75 6e 2d 64 69 66 66 20 -state run-diff
2510: 73 74 61 74 65 29 29 29 29 0a 20 20 20 20 20 64 state)))). d
2520: 69 66 66 2d 73 74 61 74 65 73 29 29 29 0a 0a 3b iff-states)))..;
2530: 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;
2540: 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;
2550: 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;
2560: 3b 3b 0a 3b 3b 20 50 72 65 73 65 6e 74 61 74 69 ;;.;; Presentati
2570: 6f 6e 20 63 6f 64 65 20 62 65 6c 6f 77 2c 20 62 on code below, b
2580: 75 73 69 6e 65 73 73 20 6c 6f 67 69 63 20 61 62 usiness logic ab
2590: 6f 76 65 20 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b ove ;;.;;;;;;;;;
25a0: 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;
25b0: 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;
25c0: 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 28 64 65 66 ;;;;;;;;;;..(def
25d0: 69 6e 65 20 28 64 69 66 66 3a 73 74 6d 6c 2d 3e ine (diff:stml->
25e0: 73 74 72 69 6e 67 20 69 6e 2d 73 74 6d 6c 29 0a string in-stml).
25f0: 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 (with-output-t
2600: 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 28 6c 61 o-string. (la
2610: 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 28 73 mbda (). (s
2620: 3a 6f 75 74 70 75 74 2d 6e 65 77 0a 20 20 20 20 :output-new.
2630: 20 20 20 28 63 75 72 72 65 6e 74 2d 6f 75 74 70 (current-outp
2640: 75 74 2d 70 6f 72 74 29 0a 20 20 20 20 20 20 20 ut-port).
2650: 69 6e 2d 73 74 6d 6c 29 29 29 29 0a 0a 28 64 65 in-stml))))..(de
2660: 66 69 6e 65 20 28 64 69 66 66 3a 73 74 61 74 65 fine (diff:state
2670: 2d 73 74 61 74 75 73 2d 3e 62 67 63 6f 6c 6f 72 -status->bgcolor
2680: 20 73 74 61 74 65 20 73 74 61 74 75 73 29 0a 20 state status).
2690: 20 28 6d 61 74 63 68 20 28 6c 69 73 74 20 73 74 (match (list st
26a0: 61 74 65 20 73 74 61 74 75 73 29 0a 20 20 20 20 ate status).
26b0: 28 28 22 43 4c 45 41 4e 22 20 20 20 20 20 20 20 (("CLEAN"
26c0: 20 20 20 20 5f 29 20 22 23 38 38 66 66 38 38 22 _) "#88ff88"
26d0: 29 0a 20 20 20 20 28 28 22 42 45 54 54 45 52 22 ). (("BETTER"
26e0: 20 20 20 20 20 20 20 20 20 20 5f 29 20 22 23 33 _) "#3
26f0: 33 66 66 33 33 22 29 0a 20 20 20 20 28 28 22 57 3ff33"). (("W
2700: 4f 52 53 45 22 20 20 20 20 20 20 20 20 20 20 20 ORSE"
2710: 5f 29 20 22 23 66 66 33 33 33 33 22 29 0a 20 20 _) "#ff3333").
2720: 20 20 28 28 22 42 4f 54 48 2d 42 41 44 22 20 20 (("BOTH-BAD"
2730: 20 20 20 20 20 20 5f 29 20 22 23 66 66 33 33 33 _) "#ff333
2740: 33 22 29 0a 20 20 20 20 28 28 5f 20 20 20 20 20 3"). ((_
2750: 20 20 20 20 20 20 20 22 57 41 52 4e 22 29 20 22 "WARN") "
2760: 23 66 66 66 66 38 38 22 29 0a 20 20 20 20 28 28 #ffff88"). ((
2770: 5f 20 20 20 20 20 20 20 20 20 20 20 20 22 46 41 _ "FA
2780: 49 4c 22 29 20 22 23 66 66 38 38 38 38 22 29 0a IL") "#ff8888").
2790: 20 20 20 20 28 28 5f 20 20 20 20 20 20 20 20 20 ((_
27a0: 20 20 22 41 42 4f 52 54 22 29 20 22 23 66 66 30 "ABORT") "#ff0
27b0: 30 30 30 22 29 0a 20 20 20 20 28 28 5f 20 20 20 000"). ((_
27c0: 20 20 20 20 20 20 20 20 20 22 50 41 53 53 22 29 "PASS")
27d0: 20 22 23 38 38 66 66 38 38 22 29 0a 20 20 20 20 "#88ff88").
27e0: 28 28 5f 20 20 20 20 20 20 20 20 20 20 20 20 22 ((_ "
27f0: 53 4b 49 50 22 29 20 22 23 66 66 66 66 30 30 22 SKIP") "#ffff00"
2800: 29 20 20 20 20 20 20 20 20 20 20 20 0a 20 20 20 ) .
2810: 20 28 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 (else
2820: 20 20 20 20 20 20 20 20 22 23 66 66 66 66 66 66 "#ffffff
2830: 22 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 ")))..(define (d
2840: 69 66 66 3a 74 65 73 74 2d 73 74 61 74 65 2d 73 iff:test-state-s
2850: 74 61 74 75 73 2d 3e 64 69 66 66 2d 72 65 70 6f tatus->diff-repo
2860: 72 74 2d 63 65 6c 6c 20 73 74 61 74 65 20 73 74 rt-cell state st
2870: 61 74 75 73 29 0a 20 20 28 73 3a 74 64 20 27 62 atus). (s:td 'b
2880: 67 63 6f 6c 6f 72 20 28 64 69 66 66 3a 73 74 61 gcolor (diff:sta
2890: 74 65 2d 73 74 61 74 75 73 2d 3e 62 67 63 6f 6c te-status->bgcol
28a0: 6f 72 20 73 74 61 74 65 20 73 74 61 74 75 73 29 or state status)
28b0: 20 73 74 61 74 75 73 29 29 0a 0a 28 64 65 66 69 status))..(defi
28c0: 6e 65 20 28 64 69 66 66 3a 64 69 66 66 2d 73 74 ne (diff:diff-st
28d0: 61 74 65 2d 73 74 61 74 75 73 2d 3e 64 69 66 66 ate-status->diff
28e0: 2d 72 65 70 6f 72 74 2d 63 65 6c 6c 20 73 74 61 -report-cell sta
28f0: 74 65 20 73 74 61 74 75 73 29 0a 20 20 28 73 3a te status). (s:
2900: 74 64 20 73 74 61 74 65 20 27 62 67 63 6f 6c 6f td state 'bgcolo
2910: 72 20 28 64 69 66 66 3a 73 74 61 74 65 2d 73 74 r (diff:state-st
2920: 61 74 75 73 2d 3e 62 67 63 6f 6c 6f 72 20 73 74 atus->bgcolor st
2930: 61 74 65 20 73 74 61 74 75 73 29 29 29 0a 0a 0a ate status)))...
2940: 28 64 65 66 69 6e 65 20 28 64 69 66 66 3a 6d 65 (define (diff:me
2950: 67 61 74 65 73 74 2d 68 74 6d 6c 2d 6c 6f 67 6f gatest-html-logo
2960: 29 0a 0a 20 20 22 3c 70 72 65 3e 0a 5f 5f 5f 20 ).. "<pre>.___
2970: 20 5f 5f 5f 20 20 20 20 20 20 20 20 20 20 20 20 ___
2980: 20 20 20 20 20 5f 20 20 20 20 20 20 20 20 20 20 _
2990: 20 20 5f 0a 7c 20 20 5c 5c 2f 20 20 7c 20 5f 5f _.| \\/ | __
29a0: 5f 20 20 5f 5f 20 5f 20 20 5f 5f 20 5f 7c 20 7c _ __ _ __ _| |
29b0: 5f 20 5f 5f 5f 20 20 5f 5f 5f 7c 20 7c 5f 0a 7c _ ___ ___| |_.|
29c0: 20 7c 5c 5c 2f 7c 20 7c 2f 20 5f 20 5c 5c 2f 20 |\\/| |/ _ \\/
29d0: 5f 60 20 7c 2f 20 5f 60 20 7c 20 5f 5f 2f 20 5f _` |/ _` | __/ _
29e0: 20 5c 5c 2f 20 5f 5f 7c 20 5f 5f 7c 0a 7c 20 7c \\/ __| __|.| |
29f0: 20 20 7c 20 7c 20 20 5f 5f 2f 20 28 5f 7c 20 7c | | __/ (_| |
2a00: 20 28 5f 7c 20 7c 20 7c 7c 20 20 5f 5f 2f 5c 5c (_| | || __/\\
2a10: 5f 5f 20 5c 5c 20 7c 5f 0a 7c 5f 7c 20 20 7c 5f __ \\ |_.|_| |_
2a20: 7c 5c 5c 5f 5f 5f 7c 5c 5c 5f 5f 2c 20 7c 5c 5c |\\___|\\__, |\\
2a30: 5f 5f 2c 5f 7c 5c 5c 5f 5f 5c 5c 5f 5f 5f 7c 7c __,_|\\__\\___||
2a40: 5f 5f 5f 2f 5c 5c 5f 5f 7c 0a 20 20 20 20 20 20 ___/\\__|.
2a50: 20 20 20 20 20 20 20 7c 5f 5f 5f 2f 0a 3c 2f 70 |___/.</p
2a60: 72 65 3e 22 29 0a 0a 28 64 65 66 69 6e 65 20 28 re>")..(define (
2a70: 64 69 66 66 3a 6d 65 67 61 74 65 73 74 2d 68 74 diff:megatest-ht
2a80: 6d 6c 2d 64 69 66 66 2d 6c 6f 67 6f 29 0a 20 20 ml-diff-logo).
2a90: 22 3c 70 72 65 3e 0a 5f 5f 5f 20 20 5f 5f 5f 20 "<pre>.___ ___
2aa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ab0: 5f 20 20 20 20 20 20 20 20 20 20 20 20 5f 0a 7c _ _.|
2ac0: 20 20 5c 5c 2f 20 20 7c 20 5f 5f 5f 20 20 5f 5f \\/ | ___ __
2ad0: 20 5f 20 20 5f 5f 20 5f 7c 20 7c 5f 20 5f 5f 5f _ __ _| |_ ___
2ae0: 20 20 5f 5f 5f 7c 20 7c 5f 20 20 7c 20 20 5f 20 ___| |_ | _
2af0: 5c 5c 28 5f 29 2f 20 5f 7c 2f 20 5f 7c 0a 7c 20 \\(_)/ _|/ _|.|
2b00: 7c 5c 5c 2f 7c 20 7c 2f 20 5f 20 5c 5c 2f 20 5f |\\/| |/ _ \\/ _
2b10: 60 20 7c 2f 20 5f 60 20 7c 20 5f 5f 2f 20 5f 20 ` |/ _` | __/ _
2b20: 5c 5c 2f 20 5f 5f 7c 20 5f 5f 7c 20 7c 20 7c 20 \\/ __| __| | |
2b30: 7c 20 7c 20 7c 20 7c 5f 7c 20 7c 5f 0a 7c 20 7c | | | |_| |_.| |
2b40: 20 20 7c 20 7c 20 20 5f 5f 2f 20 28 5f 7c 20 7c | | __/ (_| |
2b50: 20 28 5f 7c 20 7c 20 7c 7c 20 20 5f 5f 2f 5c 5c (_| | || __/\\
2b60: 5f 5f 20 5c 5c 20 7c 5f 20 20 7c 20 7c 5f 7c 20 __ \\ |_ | |_|
2b70: 7c 20 7c 20 20 5f 7c 20 20 5f 7c 0a 7c 5f 7c 20 | | _| _|.|_|
2b80: 20 7c 5f 7c 5c 5c 5f 5f 5f 7c 5c 5c 5f 5f 2c 20 |_|\\___|\\__,
2b90: 7c 5c 5c 5f 5f 2c 5f 7c 5c 5c 5f 5f 5c 5c 5f 5f |\\__,_|\\__\\__
2ba0: 5f 7c 7c 5f 5f 5f 2f 5c 5c 5f 5f 7c 20 7c 5f 5f _||___/\\__| |__
2bb0: 5f 5f 2f 7c 5f 7c 5f 7c 20 7c 5f 7c 0a 20 20 20 __/|_|_| |_|.
2bc0: 20 20 20 20 20 20 20 20 20 20 7c 5f 5f 5f 2f 0a |___/.
2bd0: 3c 2f 70 72 65 3e 22 29 0a 0a 0a 28 64 65 66 69 </pre>")...(defi
2be0: 6e 65 20 28 64 69 66 66 3a 72 75 6e 2d 69 64 2d ne (diff:run-id-
2bf0: 3e 74 61 72 67 65 74 2b 72 75 6e 2d 6e 61 6d 65 >target+run-name
2c00: 2b 73 74 61 72 74 74 69 6d 65 20 72 75 6e 2d 69 +starttime run-i
2c10: 64 29 0a 20 20 28 6c 65 74 2a 20 28 28 74 61 72 d). (let* ((tar
2c20: 67 65 74 20 20 20 20 20 20 28 72 6d 74 3a 67 65 get (rmt:ge
2c30: 74 2d 74 61 72 67 65 74 20 72 75 6e 2d 69 64 29 t-target run-id)
2c40: 29 0a 20 20 20 20 20 20 20 20 20 28 72 75 6e 69 ). (runi
2c50: 6e 66 6f 20 20 20 20 20 28 72 6d 74 3a 67 65 74 nfo (rmt:get
2c60: 2d 72 75 6e 2d 69 6e 66 6f 20 72 75 6e 2d 69 64 -run-info run-id
2c70: 29 29 20 3b 20 76 65 63 74 6f 72 20 6f 66 20 68 )) ; vector of h
2c80: 65 61 64 65 72 20 28 6c 69 73 74 29 20 61 6e 64 eader (list) and
2c90: 20 72 65 73 75 6c 74 20 28 76 65 63 74 6f 72 29 result (vector)
2ca0: 0a 20 20 20 20 20 20 20 20 20 28 69 6e 66 6f 2d . (info-
2cb0: 68 61 73 68 20 20 20 28 61 6c 69 73 74 2d 3e 68 hash (alist->h
2cc0: 61 73 68 2d 74 61 62 6c 65 0a 20 20 20 20 20 20 ash-table.
2cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ce0: 20 28 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 78 (map (lambda (x
2cf0: 29 20 28 63 6f 6e 73 20 28 63 61 72 20 78 29 20 ) (cons (car x)
2d00: 28 63 61 64 72 20 78 29 29 29 20 20 3b 20 6d 61 (cadr x))) ; ma
2d10: 6b 65 20 69 74 20 61 20 75 73 65 66 75 6c 20 68 ke it a useful h
2d20: 61 73 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 ash.
2d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2d40: 28 7a 69 70 20 28 76 65 63 74 6f 72 2d 72 65 66 (zip (vector-ref
2d50: 20 72 75 6e 69 6e 66 6f 20 30 29 20 28 76 65 63 runinfo 0) (vec
2d60: 74 6f 72 2d 3e 6c 69 73 74 20 28 76 65 63 74 6f tor->list (vecto
2d70: 72 2d 72 65 66 20 72 75 6e 69 6e 66 6f 20 31 29 r-ref runinfo 1)
2d80: 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 ))))). (
2d90: 72 75 6e 2d 6e 61 6d 65 20 20 20 20 28 68 61 73 run-name (has
2da0: 68 2d 74 61 62 6c 65 2d 72 65 66 2f 64 65 66 61 h-table-ref/defa
2db0: 75 6c 74 20 69 6e 66 6f 2d 68 61 73 68 20 22 72 ult info-hash "r
2dc0: 75 6e 6e 61 6d 65 22 20 22 4e 2f 41 22 29 29 0a unname" "N/A")).
2dd0: 20 20 20 20 20 20 20 20 20 28 73 74 61 72 74 2d (start-
2de0: 74 69 6d 65 20 20 28 68 61 73 68 2d 74 61 62 6c time (hash-tabl
2df0: 65 2d 72 65 66 2f 64 65 66 61 75 6c 74 20 69 6e e-ref/default in
2e00: 66 6f 2d 68 61 73 68 20 22 65 76 65 6e 74 5f 74 fo-hash "event_t
2e10: 69 6d 65 22 20 30 29 29 29 0a 20 20 20 20 28 6c ime" 0))). (l
2e20: 69 73 74 20 74 61 72 67 65 74 20 72 75 6e 2d 6e ist target run-n
2e30: 61 6d 65 20 73 74 61 72 74 2d 74 69 6d 65 29 29 ame start-time))
2e40: 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 69 66 66 )..(define (diff
2e50: 3a 64 65 6c 69 76 65 72 2d 64 69 66 66 2d 72 65 :deliver-diff-re
2e60: 70 6f 72 74 20 73 72 63 2d 72 75 6e 2d 69 64 20 port src-run-id
2e70: 64 65 73 74 2d 72 75 6e 2d 69 64 0a 20 20 20 20 dest-run-id.
2e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ea0: 23 21 6b 65 79 0a 20 20 20 20 20 20 20 20 20 20 #!key.
2eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ec0: 20 20 20 20 20 20 20 20 20 20 28 68 74 6d 6c 2d (html-
2ed0: 6f 75 74 70 75 74 2d 66 69 6c 65 20 23 66 29 0a output-file #f).
2ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ef0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2f00: 20 20 20 20 28 65 6d 61 69 6c 2d 73 75 62 6a 65 (email-subje
2f10: 63 74 2d 70 72 65 66 69 78 20 22 5b 4d 45 47 41 ct-prefix "[MEGA
2f20: 54 45 53 54 20 44 49 46 46 5d 22 29 0a 20 20 20 TEST DIFF]").
2f30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2f40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2f50: 20 28 65 6d 61 69 6c 2d 72 65 63 69 70 69 65 6e (email-recipien
2f60: 74 73 2d 6c 69 73 74 20 27 28 29 29 20 20 29 0a ts-list '()) ).
2f70: 20 20 28 6c 65 74 2a 20 28 28 73 72 63 2d 69 6e (let* ((src-in
2f80: 66 6f 20 20 20 20 20 20 20 20 20 28 64 69 66 66 fo (diff
2f90: 3a 72 75 6e 2d 69 64 2d 3e 74 61 72 67 65 74 2b :run-id->target+
2fa0: 72 75 6e 2d 6e 61 6d 65 2b 73 74 61 72 74 74 69 run-name+startti
2fb0: 6d 65 20 73 72 63 2d 72 75 6e 2d 69 64 29 29 0a me src-run-id)).
2fc0: 20 20 20 20 20 20 20 20 20 28 73 72 63 2d 74 61 (src-ta
2fd0: 72 67 65 74 20 20 20 20 20 20 20 28 63 61 72 20 rget (car
2fe0: 73 72 63 2d 69 6e 66 6f 29 29 0a 20 20 20 20 20 src-info)).
2ff0: 20 20 20 20 28 73 72 63 2d 72 75 6e 2d 6e 61 6d (src-run-nam
3000: 65 20 20 20 20 20 28 63 61 64 72 20 73 72 63 2d e (cadr src-
3010: 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 20 20 info)).
3020: 28 73 72 63 2d 73 74 61 72 74 20 20 20 20 20 20 (src-start
3030: 20 20 28 63 6f 6e 63 20 28 73 65 63 6f 6e 64 73 (conc (seconds
3040: 2d 3e 73 74 72 69 6e 67 20 28 63 61 64 64 72 20 ->string (caddr
3050: 73 72 63 2d 69 6e 66 6f 29 29 20 22 20 22 20 28 src-info)) " " (
3060: 6c 6f 63 61 6c 2d 74 69 6d 65 7a 6f 6e 65 2d 61 local-timezone-a
3070: 62 62 72 65 76 69 61 74 69 6f 6e 29 29 29 0a 20 bbreviation))).
3080: 20 20 20 20 20 20 20 20 28 64 65 73 74 2d 69 6e (dest-in
3090: 66 6f 20 20 20 20 20 20 20 20 28 64 69 66 66 3a fo (diff:
30a0: 72 75 6e 2d 69 64 2d 3e 74 61 72 67 65 74 2b 72 run-id->target+r
30b0: 75 6e 2d 6e 61 6d 65 2b 73 74 61 72 74 74 69 6d un-name+starttim
30c0: 65 20 64 65 73 74 2d 72 75 6e 2d 69 64 29 29 0a e dest-run-id)).
30d0: 20 20 20 20 20 20 20 20 20 28 64 65 73 74 2d 74 (dest-t
30e0: 61 72 67 65 74 20 20 20 20 20 20 28 63 61 72 20 arget (car
30f0: 64 65 73 74 2d 69 6e 66 6f 29 29 0a 20 20 20 20 dest-info)).
3100: 20 20 20 20 20 28 64 65 73 74 2d 72 75 6e 2d 6e (dest-run-n
3110: 61 6d 65 20 20 20 20 28 63 61 64 72 20 64 65 73 ame (cadr des
3120: 74 2d 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 t-info)).
3130: 20 20 28 64 65 73 74 2d 73 74 61 72 74 20 20 20 (dest-start
3140: 20 20 20 20 28 63 6f 6e 63 20 28 73 65 63 6f 6e (conc (secon
3150: 64 73 2d 3e 73 74 72 69 6e 67 20 28 63 61 64 64 ds->string (cadd
3160: 72 20 64 65 73 74 2d 69 6e 66 6f 29 29 20 22 20 r dest-info)) "
3170: 22 20 28 6c 6f 63 61 6c 2d 74 69 6d 65 7a 6f 6e " (local-timezon
3180: 65 2d 61 62 62 72 65 76 69 61 74 69 6f 6e 29 29 e-abbreviation))
3190: 29 0a 0a 0a 20 20 20 20 20 20 20 20 20 28 72 75 )... (ru
31a0: 6e 2d 64 69 66 66 20 28 64 69 66 66 3a 64 69 66 n-diff (diff:dif
31b0: 66 2d 72 75 6e 73 20 73 72 63 2d 72 75 6e 2d 69 f-runs src-run-i
31c0: 64 20 64 65 73 74 2d 72 75 6e 2d 69 64 20 29 29 d dest-run-id ))
31d0: 0a 20 20 20 20 20 20 20 20 20 28 74 65 73 74 2d . (test-
31e0: 63 6f 75 6e 74 20 28 6c 65 6e 67 74 68 20 72 75 count (length ru
31f0: 6e 2d 64 69 66 66 29 29 0a 20 20 20 20 20 20 20 n-diff)).
3200: 20 20 28 73 75 6d 6d 61 72 79 2d 74 61 62 6c 65 (summary-table
3210: 0a 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c . (appl
3220: 79 20 73 3a 74 61 62 6c 65 20 27 63 65 6c 6c 73 y s:table 'cells
3230: 70 61 63 69 6e 67 20 22 30 22 20 27 62 6f 72 64 pacing "0" 'bord
3240: 65 72 20 22 31 22 0a 20 20 20 20 20 20 20 20 20 er "1".
3250: 20 20 20 20 20 20 20 20 28 73 3a 74 72 0a 20 20 (s:tr.
3260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3270: 28 73 3a 74 68 20 22 44 69 66 66 20 74 79 70 65 (s:th "Diff type
3280: 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ").
3290: 20 20 20 20 20 28 73 3a 74 68 20 22 25 20 73 68 (s:th "% sh
32a0: 61 72 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 are").
32b0: 20 20 20 20 20 20 20 20 28 73 3a 74 68 20 22 43 (s:th "C
32c0: 6f 75 6e 74 22 29 29 0a 20 20 20 20 20 20 20 20 ount")).
32d0: 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 .
32e0: 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 0a (map.
32f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3300: 20 20 28 6c 61 6d 62 64 61 20 28 73 74 61 74 65 (lambda (state
3310: 2d 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 20 20 -count).
3320: 20 20 20 20 20 20 20 20 20 20 20 20 28 73 3a 74 (s:t
3330: 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r.
3340: 20 20 20 20 20 20 20 28 64 69 66 66 3a 64 69 66 (diff:dif
3350: 66 2d 73 74 61 74 65 2d 73 74 61 74 75 73 2d 3e f-state-status->
3360: 64 69 66 66 2d 72 65 70 6f 72 74 2d 63 65 6c 6c diff-report-cell
3370: 20 28 63 61 72 20 73 74 61 74 65 2d 63 6f 75 6e (car state-coun
3380: 74 29 20 23 66 29 0a 20 20 20 20 20 20 20 20 20 t) #f).
3390: 20 20 20 20 20 20 20 20 20 20 20 20 28 73 3a 74 (s:t
33a0: 64 20 27 61 6c 69 67 6e 20 22 72 69 67 68 74 22 d 'align "right"
33b0: 20 28 66 6d 74 20 23 66 0a 20 20 20 20 20 20 20 (fmt #f.
33c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
33d0: 20 20 20 20 20 20 20 20 20 28 64 65 63 69 6d 61 (decima
33e0: 6c 2d 61 6c 69 67 6e 20 33 0a 20 20 20 20 20 20 l-align 3.
33f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3410: 20 20 20 20 20 20 20 20 20 28 66 69 78 20 32 0a (fix 2.
3420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3450: 20 20 20 20 28 6e 75 6d 2f 66 69 74 20 36 0a 20 (num/fit 6.
3460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3490: 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 31 (* 1
34a0: 30 30 20 28 2f 20 28 63 61 64 72 20 73 74 61 74 00 (/ (cadr stat
34b0: 65 2d 63 6f 75 6e 74 29 20 74 65 73 74 2d 63 6f e-count) test-co
34c0: 75 6e 74 29 29 29 29 29 29 29 0a 20 20 20 20 20 unt))))))).
34d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
34e0: 28 73 3a 74 64 20 27 61 6c 69 67 6e 20 22 72 69 (s:td 'align "ri
34f0: 67 68 74 22 20 28 63 61 64 72 20 73 74 61 74 65 ght" (cadr state
3500: 2d 63 6f 75 6e 74 29 29 29 29 0a 20 20 20 20 20 -count)))).
3510: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 (di
3520: 66 66 3a 73 75 6d 6d 61 72 69 7a 65 2d 72 75 6e ff:summarize-run
3530: 2d 64 69 66 66 20 72 75 6e 2d 64 69 66 66 29 29 -diff run-diff))
3540: 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 65 74 )). (met
3550: 61 2d 74 61 62 6c 65 0a 20 20 20 20 20 20 20 20 a-table.
3560: 20 20 28 73 3a 74 61 62 6c 65 20 27 63 65 6c 6c (s:table 'cell
3570: 73 70 61 63 69 6e 67 20 22 30 22 20 27 62 6f 72 spacing "0" 'bor
3580: 64 65 72 20 22 31 22 0a 20 20 20 20 20 20 20 20 der "1".
3590: 20 20 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 .
35a0: 20 20 20 20 20 20 20 28 73 3a 74 72 0a 20 20 20 (s:tr.
35b0: 20 20 20 20 20 20 20 20 20 28 73 3a 74 64 20 27 (s:td '
35c0: 63 6f 6c 73 70 61 6e 20 22 32 22 0a 20 20 20 20 colspan "2".
35d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 (s
35e0: 3a 74 61 62 6c 65 20 27 63 65 6c 6c 73 70 61 63 :table 'cellspac
35f0: 69 6e 67 20 22 30 22 20 27 62 6f 72 64 65 72 20 ing "0" 'border
3600: 22 31 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 "1".
3610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
3620: 73 3a 74 72 0a 20 20 20 20 20 20 20 20 20 20 20 s:tr.
3630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3640: 20 28 73 3a 74 68 20 27 61 6c 69 67 6e 20 22 4c (s:th 'align "L
3650: 45 46 54 22 20 22 22 29 20 20 20 20 20 20 20 20 EFT" "")
3660: 20 20 28 73 3a 74 68 20 22 53 4f 55 52 43 45 20 (s:th "SOURCE
3670: 52 55 4e 22 29 20 20 20 20 20 28 73 3a 74 68 20 RUN") (s:th
3680: 22 44 45 53 54 49 4e 41 54 49 4f 4e 20 52 55 4e "DESTINATION RUN
3690: 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ")).
36a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
36b0: 73 3a 74 72 0a 20 20 20 20 20 20 20 20 20 20 20 s:tr.
36c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
36d0: 20 28 73 3a 74 68 20 27 61 6c 69 67 6e 20 22 4c (s:th 'align "L
36e0: 45 46 54 22 20 22 53 74 61 72 74 65 64 22 29 20 EFT" "Started")
36f0: 20 28 73 3a 74 64 20 73 72 63 2d 73 74 61 72 74 (s:td src-start
3700: 29 20 20 28 73 3a 74 64 20 64 65 73 74 2d 73 74 ) (s:td dest-st
3710: 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 art)).
3720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3730: 20 28 73 3a 74 72 0a 20 20 20 20 20 20 20 20 20 (s:tr.
3740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3750: 20 20 20 28 73 3a 74 68 20 27 61 6c 69 67 6e 20 (s:th 'align
3760: 22 4c 45 46 54 22 20 22 54 41 52 47 45 54 22 29 "LEFT" "TARGET")
3770: 20 20 28 73 3a 74 64 20 73 72 63 2d 74 61 72 67 (s:td src-targ
3780: 65 74 29 20 20 28 73 3a 74 64 20 64 65 73 74 2d et) (s:td dest-
3790: 74 61 72 67 65 74 29 29 0a 20 20 20 20 20 20 20 target)).
37a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
37b0: 20 20 20 20 28 73 3a 74 72 0a 20 20 20 20 20 20 (s:tr.
37c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
37d0: 20 20 20 20 20 20 28 73 3a 74 68 20 27 61 6c 69 (s:th 'ali
37e0: 67 6e 20 22 4c 45 46 54 22 20 22 52 55 4e 20 4e gn "LEFT" "RUN N
37f0: 41 4d 45 22 29 20 20 28 73 3a 74 64 20 73 72 63 AME") (s:td src
3800: 2d 72 75 6e 2d 6e 61 6d 65 29 20 20 28 73 3a 74 -run-name) (s:t
3810: 64 20 64 65 73 74 2d 72 75 6e 2d 6e 61 6d 65 29 d dest-run-name)
3820: 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 )))))).
3830: 20 20 0a 20 20 20 20 20 20 20 20 20 28 6d 61 69 . (mai
3840: 6e 2d 74 61 62 6c 65 0a 20 20 20 20 20 20 20 20 n-table.
3850: 20 20 28 61 70 70 6c 79 20 73 3a 74 61 62 6c 65 (apply s:table
3860: 20 27 63 65 6c 6c 73 70 61 63 69 6e 67 20 22 30 'cellspacing "0
3870: 22 20 27 62 6f 72 64 65 72 20 22 31 22 0a 20 20 " 'border "1".
3880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
3890: 73 3a 74 72 0a 20 20 20 20 20 20 20 20 20 20 20 s:tr.
38a0: 20 20 20 20 20 20 20 28 73 3a 74 68 20 22 54 65 (s:th "Te
38b0: 73 74 20 6e 61 6d 65 22 29 0a 20 20 20 20 20 20 st name").
38c0: 20 20 20 20 20 20 20 20 20 20 20 20 28 73 3a 74 (s:t
38d0: 68 20 22 49 74 65 6d 20 50 61 74 68 22 29 0a 20 h "Item Path").
38e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
38f0: 20 28 73 3a 74 68 20 28 63 6f 6e 63 20 22 53 4f (s:th (conc "SO
3900: 55 52 43 45 22 29 29 0a 20 20 20 20 20 20 20 20 URCE")).
3910: 20 20 20 20 20 20 20 20 20 20 28 73 3a 74 68 20 (s:th
3920: 28 63 6f 6e 63 20 22 44 45 53 54 22 29 29 0a 20 (conc "DEST")).
3930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3940: 20 28 73 3a 74 68 20 22 44 69 66 66 22 29 29 0a (s:th "Diff")).
3950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3960: 20 28 6d 61 70 0a 20 20 20 20 20 20 20 20 20 20 (map.
3970: 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 (lambda
3980: 28 72 75 6e 2d 64 69 66 66 2d 69 74 65 6d 29 0a (run-diff-item).
3990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
39a0: 20 20 20 20 28 6d 61 74 63 68 20 72 75 6e 2d 64 (match run-d
39b0: 69 66 66 2d 69 74 65 6d 0a 20 20 20 20 20 20 20 iff-item.
39c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
39d0: 28 74 65 73 74 2d 6e 61 6d 65 20 69 74 65 6d 2d (test-name item-
39e0: 70 61 74 68 20 28 6a 75 6e 6b 2d 69 64 20 64 69 path (junk-id di
39f0: 66 66 2d 73 74 61 74 65 20 64 69 66 66 2d 73 74 ff-state diff-st
3a00: 61 74 75 73 20 28 73 72 63 2d 74 65 73 74 2d 69 atus (src-test-i
3a10: 64 20 73 72 63 2d 73 74 61 74 65 20 73 72 63 2d d src-state src-
3a20: 73 74 61 74 75 73 29 20 28 64 65 73 74 2d 74 65 status) (dest-te
3a30: 73 74 2d 69 64 20 64 65 73 74 2d 73 74 61 74 65 st-id dest-state
3a40: 20 64 65 73 74 2d 73 74 61 74 75 73 29 29 29 0a dest-status))).
3a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3a60: 20 20 20 20 20 20 20 28 73 3a 74 72 0a 20 20 20 (s:tr.
3a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3a80: 20 20 20 20 20 28 73 3a 74 64 20 74 65 73 74 2d (s:td test-
3a90: 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 name).
3aa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 (s
3ab0: 3a 74 64 20 69 74 65 6d 2d 70 61 74 68 29 0a 20 :td item-path).
3ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3ad0: 20 20 20 20 20 20 20 28 64 69 66 66 3a 74 65 73 (diff:tes
3ae0: 74 2d 73 74 61 74 65 2d 73 74 61 74 75 73 2d 3e t-state-status->
3af0: 64 69 66 66 2d 72 65 70 6f 72 74 2d 63 65 6c 6c diff-report-cell
3b00: 20 73 72 63 2d 73 74 61 74 65 20 73 72 63 2d 73 src-state src-s
3b10: 74 61 74 75 73 29 0a 20 20 20 20 20 20 20 20 20 tatus).
3b20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
3b30: 64 69 66 66 3a 74 65 73 74 2d 73 74 61 74 65 2d diff:test-state-
3b40: 73 74 61 74 75 73 2d 3e 64 69 66 66 2d 72 65 70 status->diff-rep
3b50: 6f 72 74 2d 63 65 6c 6c 20 64 65 73 74 2d 73 74 ort-cell dest-st
3b60: 61 74 65 20 64 65 73 74 2d 73 74 61 74 75 73 29 ate dest-status)
3b70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
3b80: 20 20 20 20 20 20 20 20 20 28 64 69 66 66 3a 64 (diff:d
3b90: 69 66 66 2d 73 74 61 74 65 2d 73 74 61 74 75 73 iff-state-status
3ba0: 2d 3e 64 69 66 66 2d 72 65 70 6f 72 74 2d 63 65 ->diff-report-ce
3bb0: 6c 6c 20 64 69 66 66 2d 73 74 61 74 65 20 64 69 ll diff-state di
3bc0: 66 66 2d 73 74 61 74 75 73 29 29 29 0a 20 20 20 ff-status))).
3bd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3be0: 20 20 20 28 65 6c 73 65 20 22 22 29 29 29 0a 20 (else ""))).
3bf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3c00: 20 28 66 69 6c 74 65 72 20 28 6c 61 6d 62 64 61 (filter (lambda
3c10: 20 28 72 75 6e 2d 64 69 66 66 2d 69 74 65 6d 29 (run-diff-item)
3c20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
3c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 (ma
3c40: 74 63 68 20 72 75 6e 2d 64 69 66 66 2d 69 74 65 tch run-diff-ite
3c50: 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 m.
3c60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3c70: 28 28 74 65 73 74 2d 6e 61 6d 65 20 69 74 65 6d ((test-name item
3c80: 2d 70 61 74 68 20 28 6a 75 6e 6b 2d 69 64 20 64 -path (junk-id d
3c90: 69 66 66 2d 73 74 61 74 65 20 64 69 66 66 2d 73 iff-state diff-s
3ca0: 74 61 74 75 73 20 28 73 72 63 2d 74 65 73 74 2d tatus (src-test-
3cb0: 69 64 20 73 72 63 2d 73 74 61 74 65 20 73 72 63 id src-state src
3cc0: 2d 73 74 61 74 75 73 29 20 28 64 65 73 74 2d 74 -status) (dest-t
3cd0: 65 73 74 2d 69 64 20 64 65 73 74 2d 73 74 61 74 est-id dest-stat
3ce0: 65 20 64 65 73 74 2d 73 74 61 74 75 73 29 29 29 e dest-status)))
3cf0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
3d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3d10: 28 6e 6f 74 20 28 65 71 75 61 6c 3f 20 64 69 66 (not (equal? dif
3d20: 66 2d 73 74 61 74 65 20 22 43 4c 45 41 4e 22 29 f-state "CLEAN")
3d30: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 )).
3d40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3d50: 20 28 65 6c 73 65 20 23 66 29 29 29 0a 20 20 20 (else #f))).
3d60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3d70: 20 20 20 20 20 20 20 20 20 72 75 6e 2d 64 69 66 run-dif
3d80: 66 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 f)))). (
3d90: 65 6d 61 69 6c 2d 73 75 62 6a 65 63 74 20 28 63 email-subject (c
3da0: 6f 6e 63 20 65 6d 61 69 6c 2d 73 75 62 6a 65 63 onc email-subjec
3db0: 74 2d 70 72 65 66 69 78 20 22 20 22 20 73 72 63 t-prefix " " src
3dc0: 2d 74 61 72 67 65 74 20 22 2f 22 20 73 72 63 2d -target "/" src-
3dd0: 72 75 6e 2d 6e 61 6d 65 22 20 76 73 2e 20 22 64 run-name" vs. "d
3de0: 65 73 74 2d 74 61 72 67 65 74 22 2f 22 64 65 73 est-target"/"des
3df0: 74 2d 72 75 6e 2d 6e 61 6d 65 29 29 0a 20 20 20 t-run-name)).
3e00: 20 20 20 20 20 20 28 68 74 6d 6c 2d 62 6f 64 79 (html-body
3e10: 20 20 20 20 20 28 64 69 66 66 3a 73 74 6d 6c 2d (diff:stml-
3e20: 3e 73 74 72 69 6e 67 20 28 73 3a 62 6f 64 79 0a >string (s:body.
3e30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3e40: 20 20 20 28 64 69 66 66 3a 6d 65 67 61 74 65 73 (diff:megates
3e50: 74 2d 68 74 6d 6c 2d 64 69 66 66 2d 6c 6f 67 6f t-html-diff-logo
3e60: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).
3e70: 20 20 20 20 20 28 73 3a 68 32 20 22 53 75 6d 6d (s:h2 "Summ
3e80: 61 72 79 22 29 0a 20 20 20 20 20 20 20 20 20 20 ary").
3e90: 20 20 20 20 20 20 20 20 20 28 73 3a 74 61 62 6c (s:tabl
3ea0: 65 20 27 62 6f 72 64 65 72 20 22 30 22 0a 20 20 e 'border "0".
3eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3ec0: 20 20 20 20 20 20 20 20 20 20 28 73 3a 74 72 0a (s:tr.
3ed0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 3a (s:
3ef0: 74 64 20 22 44 69 66 66 20 63 61 6c 63 75 6c 61 td "Diff calcula
3f00: 74 65 64 20 61 74 22 29 0a 20 20 20 20 20 20 20 ted at").
3f10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3f20: 20 20 20 20 20 20 28 73 3a 74 64 20 28 63 6f 6e (s:td (con
3f30: 63 20 28 73 65 63 6f 6e 64 73 2d 3e 73 74 72 69 c (seconds->stri
3f40: 6e 67 29 20 22 20 22 20 28 6c 6f 63 61 6c 2d 74 ng) " " (local-t
3f50: 69 6d 65 7a 6f 6e 65 2d 61 62 62 72 65 76 69 61 imezone-abbrevia
3f60: 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 tion)))).
3f70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3f80: 20 20 20 20 20 28 73 3a 74 72 0a 20 20 20 20 20 (s:tr.
3f90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3fa0: 20 20 20 20 20 20 20 20 28 73 3a 74 64 20 22 4d (s:td "M
3fb0: 54 5f 52 55 4e 5f 41 52 45 41 5f 48 4f 4d 45 22 T_RUN_AREA_HOME"
3fc0: 20 29 20 28 73 3a 74 64 20 2a 74 6f 70 70 61 74 ) (s:td *toppat
3fd0: 68 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 h*)).
3fe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3ff0: 20 28 73 3a 74 72 20 27 76 61 6c 69 67 6e 20 22 (s:tr 'valign "
4000: 54 4f 50 22 0a 20 20 20 20 20 20 20 20 20 20 20 TOP".
4010: 20 20 20 20 20 20 20 20 20 20 28 73 3a 74 64 20 (s:td
4020: 73 75 6d 6d 61 72 79 2d 74 61 62 6c 65 29 0a 20 summary-table).
4030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4040: 20 20 20 20 28 73 3a 74 64 20 6d 65 74 61 2d 74 (s:td meta-t
4050: 61 62 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 able))).
4060: 20 20 20 20 20 20 20 20 20 20 20 28 73 3a 68 32 (s:h2
4070: 20 22 44 69 66 66 73 20 2b 20 63 6f 6e 73 69 73 "Diffs + consis
4080: 74 65 6e 74 6c 79 20 66 61 69 6c 69 6e 67 20 74 tently failing t
4090: 65 73 74 73 22 29 0a 20 20 20 20 20 20 20 20 20 ests").
40a0: 20 20 20 20 20 20 20 20 20 20 6d 61 69 6e 2d 74 main-t
40b0: 61 62 6c 65 29 29 29 0a 0a 20 20 20 20 20 20 20 able)))..
40c0: 20 20 29 0a 20 20 20 20 28 69 66 20 68 74 6d 6c ). (if html
40d0: 2d 6f 75 74 70 75 74 2d 66 69 6c 65 0a 20 20 20 -output-file.
40e0: 20 20 20 20 20 28 77 69 74 68 2d 6f 75 74 70 75 (with-outpu
40f0: 74 2d 74 6f 2d 66 69 6c 65 20 68 74 6d 6c 2d 6f t-to-file html-o
4100: 75 74 70 75 74 2d 66 69 6c 65 20 28 6c 61 6d 62 utput-file (lamb
4110: 64 61 20 28 29 20 28 70 72 69 6e 74 20 68 74 6d da () (print htm
4120: 6c 2d 62 6f 64 79 29 29 29 29 0a 20 20 20 20 28 l-body)))). (
4130: 77 68 65 6e 20 28 61 6e 64 20 65 6d 61 69 6c 2d when (and email-
4140: 72 65 63 69 70 69 65 6e 74 73 2d 6c 69 73 74 20 recipients-list
4150: 28 3e 20 28 6c 65 6e 67 74 68 20 65 6d 61 69 6c (> (length email
4160: 2d 72 65 63 69 70 69 65 6e 74 73 2d 6c 69 73 74 -recipients-list
4170: 29 20 30 29 29 0a 20 20 20 20 20 20 28 73 65 6e ) 0)). (sen
4180: 64 6d 61 69 6c 20 28 73 74 72 69 6e 67 2d 6a 6f dmail (string-jo
4190: 69 6e 20 65 6d 61 69 6c 2d 72 65 63 69 70 69 65 in email-recipie
41a0: 6e 74 73 2d 6c 69 73 74 20 22 2c 22 29 20 65 6d nts-list ",") em
41b0: 61 69 6c 2d 73 75 62 6a 65 63 74 20 68 74 6d 6c ail-subject html
41c0: 2d 62 6f 64 79 20 75 73 65 5f 68 74 6d 6c 3a 20 -body use_html:
41d0: 23 74 29 29 0a 20 20 20 20 68 74 6d 6c 2d 62 6f #t)). html-bo
41e0: 64 79 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 dy))..(define (d
41f0: 6f 2d 64 69 66 66 2d 72 65 70 6f 72 74 20 73 72 o-diff-report sr
4200: 63 2d 74 61 72 67 65 74 20 73 72 63 2d 72 75 6e c-target src-run
4210: 6e 61 6d 65 20 64 65 73 74 2d 74 61 72 67 65 74 name dest-target
4220: 20 64 65 73 74 2d 72 75 6e 6e 61 6d 65 20 68 74 dest-runname ht
4230: 6d 6c 2d 66 69 6c 65 20 74 6f 2d 6c 69 73 74 2d ml-file to-list-
4240: 72 61 77 29 0a 20 20 28 6c 65 74 2a 20 28 3b 3b raw). (let* (;;
4250: 28 73 72 63 2d 74 61 72 67 65 74 20 22 6e 6f 70 (src-target "nop
4260: 65 25 22 29 0a 20 20 20 20 20 20 20 20 20 3b 3b e%"). ;;
4270: 28 73 72 63 2d 72 75 6e 6e 61 6d 65 20 22 61 6c (src-runname "al
4280: 6c 35 37 22 29 0a 20 20 20 20 20 20 20 20 20 3b l57"). ;
4290: 3b 28 64 65 73 74 2d 74 61 72 67 65 74 20 22 25 ;(dest-target "%
42a0: 22 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 28 64 "). ;;(d
42b0: 65 73 74 2d 72 75 6e 6e 61 6d 65 20 22 61 6c 6c est-runname "all
42c0: 36 30 22 29 0a 20 20 20 20 20 20 20 20 20 28 73 60"). (s
42d0: 72 63 2d 72 75 6e 2d 69 64 20 28 64 69 66 66 3a rc-run-id (diff:
42e0: 74 61 72 67 65 74 2b 72 75 6e 2d 6e 61 6d 65 2d target+run-name-
42f0: 3e 72 75 6e 2d 69 64 20 73 72 63 2d 74 61 72 67 >run-id src-targ
4300: 65 74 20 73 72 63 2d 72 75 6e 6e 61 6d 65 29 29 et src-runname))
4310: 0a 20 20 20 20 20 20 20 20 20 28 64 65 73 74 2d . (dest-
4320: 72 75 6e 2d 69 64 20 28 64 69 66 66 3a 74 61 72 run-id (diff:tar
4330: 67 65 74 2b 72 75 6e 2d 6e 61 6d 65 2d 3e 72 75 get+run-name->ru
4340: 6e 2d 69 64 20 64 65 73 74 2d 74 61 72 67 65 74 n-id dest-target
4350: 20 64 65 73 74 2d 72 75 6e 6e 61 6d 65 29 29 0a dest-runname)).
4360: 20 20 20 20 20 20 20 20 20 3b 28 68 74 6d 6c 2d ;(html-
4370: 66 69 6c 65 20 22 2f 74 6d 70 2f 62 6a 62 61 72 file "/tmp/bjbar
4380: 63 6c 61 2f 7a 69 70 70 79 2e 68 74 6d 6c 22 29 cla/zippy.html")
4390: 0a 20 20 20 20 20 20 20 20 20 28 74 6f 2d 6c 69 . (to-li
43a0: 73 74 20 28 69 66 20 28 73 74 72 69 6e 67 3f 20 st (if (string?
43b0: 74 6f 2d 6c 69 73 74 2d 72 61 77 29 20 28 73 74 to-list-raw) (st
43c0: 72 69 6e 67 2d 73 70 6c 69 74 20 74 6f 2d 6c 69 ring-split to-li
43d0: 73 74 2d 72 61 77 20 22 2c 3a 22 29 20 23 66 29 st-raw ",:") #f)
43e0: 29 0a 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 ). ).
43f0: 20 0a 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 . (cond.
4400: 20 28 28 6e 6f 74 20 73 72 63 2d 72 75 6e 2d 69 ((not src-run-i
4410: 64 29 0a 20 20 20 20 20 20 28 64 65 62 75 67 3a d). (debug:
4420: 70 72 69 6e 74 20 30 20 2a 64 65 66 61 75 6c 74 print 0 *default
4430: 2d 6c 6f 67 2d 70 6f 72 74 2a 20 22 4e 6f 20 6d -log-port* "No m
4440: 61 74 63 68 20 66 6f 72 20 73 6f 75 72 63 65 20 atch for source
4450: 74 61 72 67 65 74 2f 72 75 6e 6e 61 6d 65 3d 22 target/runname="
4460: 73 72 63 2d 74 61 72 67 65 74 22 2f 22 73 72 63 src-target"/"src
4470: 2d 72 75 6e 6e 61 6d 65 29 0a 20 20 20 20 20 20 -runname).
4480: 28 64 65 62 75 67 3a 70 72 69 6e 74 20 30 20 2a (debug:print 0 *
4490: 64 65 66 61 75 6c 74 2d 6c 6f 67 2d 70 6f 72 74 default-log-port
44a0: 2a 20 22 43 61 6e 6e 6f 74 20 70 72 6f 63 65 65 * "Cannot procee
44b0: 64 2e 22 29 0a 20 20 20 20 20 20 23 66 29 0a 20 d."). #f).
44c0: 20 20 20 20 28 28 6e 6f 74 20 64 65 73 74 2d 72 ((not dest-r
44d0: 75 6e 2d 69 64 29 0a 20 20 20 20 20 20 28 64 65 un-id). (de
44e0: 62 75 67 3a 70 72 69 6e 74 20 30 20 2a 64 65 66 bug:print 0 *def
44f0: 61 75 6c 74 2d 6c 6f 67 2d 70 6f 72 74 2a 20 22 ault-log-port* "
4500: 4e 6f 20 6d 61 74 63 68 20 66 6f 72 20 73 6f 75 No match for sou
4510: 72 63 65 20 74 61 72 67 65 74 2f 72 75 6e 6e 61 rce target/runna
4520: 6d 65 3d 22 64 65 73 74 2d 74 61 72 67 65 74 22 me="dest-target"
4530: 2f 22 64 65 73 74 2d 72 75 6e 6e 61 6d 65 29 0a /"dest-runname).
4540: 20 20 20 20 20 20 28 64 65 62 75 67 3a 70 72 69 (debug:pri
4550: 6e 74 20 30 20 2a 64 65 66 61 75 6c 74 2d 6c 6f nt 0 *default-lo
4560: 67 2d 70 6f 72 74 2a 20 22 43 61 6e 6e 6f 74 20 g-port* "Cannot
4570: 70 72 6f 63 65 65 64 2e 22 29 0a 20 20 20 20 20 proceed.").
4580: 20 23 66 29 0a 20 20 20 20 20 28 65 6c 73 65 0a #f). (else.
4590: 20 20 20 20 20 20 28 64 69 66 66 3a 64 65 6c 69 (diff:deli
45a0: 76 65 72 2d 64 69 66 66 2d 72 65 70 6f 72 74 20 ver-diff-report
45b0: 73 72 63 2d 72 75 6e 2d 69 64 20 64 65 73 74 2d src-run-id dest-
45c0: 72 75 6e 2d 69 64 20 65 6d 61 69 6c 2d 72 65 63 run-id email-rec
45d0: 69 70 69 65 6e 74 73 2d 6c 69 73 74 3a 20 74 6f ipients-list: to
45e0: 2d 6c 69 73 74 20 68 74 6d 6c 2d 6f 75 74 70 75 -list html-outpu
45f0: 74 2d 66 69 6c 65 3a 20 68 74 6d 6c 2d 66 69 6c t-file: html-fil
4600: 65 29 29 29 29 29 0a 0a 20 20 0a e))))).. .