Artifact
722e4fdcd5cddf1f2b17eceb06789dd8af83c78c:
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: 72 6d 74 29 29 0a 20 20 20 20 20 20 20 20 20 0a rmt)). .
0350: 28 69 6e 63 6c 75 64 65 20 22 63 6f 6d 6d 6f 6e (include "common
0360: 5f 72 65 63 6f 72 64 73 2e 73 63 6d 22 29 0a 28 _records.scm").(
0370: 75 73 65 20 6d 61 74 63 68 61 62 6c 65 29 0a 28 use matchable).(
0380: 75 73 65 20 66 6d 74 29 0a 28 75 73 65 20 64 75 use fmt).(use du
0390: 63 74 74 61 70 65 2d 6c 69 62 29 0a 28 64 65 66 cttape-lib).(def
03a0: 69 6e 65 20 63 73 73 20 22 22 29 0a 0a 28 64 65 ine css "")..(de
03b0: 66 69 6e 65 20 28 64 69 66 66 3a 74 65 73 74 73 fine (diff:tests
03c0: 2d 6d 69 6e 64 61 74 2d 3e 68 61 73 68 20 74 65 -mindat->hash te
03d0: 73 74 73 2d 6d 69 6e 64 61 74 29 0a 20 20 28 6c sts-mindat). (l
03e0: 65 74 2a 20 28 28 72 65 73 20 28 6d 61 6b 65 2d et* ((res (make-
03f0: 68 61 73 68 2d 74 61 62 6c 65 29 29 29 0a 20 20 hash-table))).
0400: 20 20 28 66 6f 72 2d 65 61 63 68 0a 20 20 20 20 (for-each.
0410: 20 28 6c 61 6d 62 64 61 20 28 69 74 65 6d 29 0a (lambda (item).
0420: 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 (let* ((t
0430: 65 73 74 2d 6e 61 6d 65 2b 69 74 65 6d 2d 70 61 est-name+item-pa
0440: 74 68 20 28 63 6f 6e 73 20 28 6c 69 73 74 2d 72 th (cons (list-r
0450: 65 66 20 69 74 65 6d 20 30 29 20 28 6c 69 73 74 ef item 0) (list
0460: 2d 72 65 66 20 69 74 65 6d 20 31 29 29 29 0a 20 -ref item 1))).
0470: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 61 (va
0480: 6c 75 65 20 28 6c 69 73 74 2d 72 65 66 20 69 74 lue (list-ref it
0490: 65 6d 20 32 29 29 29 0a 20 20 20 20 20 20 20 20 em 2))).
04a0: 20 28 68 61 73 68 2d 74 61 62 6c 65 2d 73 65 74 (hash-table-set
04b0: 21 20 72 65 73 20 74 65 73 74 2d 6e 61 6d 65 2b ! res test-name+
04c0: 69 74 65 6d 2d 70 61 74 68 20 76 61 6c 75 65 29 item-path value)
04d0: 29 29 0a 20 20 20 20 20 74 65 73 74 73 2d 6d 69 )). tests-mi
04e0: 6e 64 61 74 29 0a 20 20 20 20 72 65 73 29 29 0a ndat). res)).
04f0: 0a 3b 3b 20 72 65 74 75 72 6e 20 31 20 69 66 20 .;; return 1 if
0500: 73 74 61 74 75 73 31 20 69 73 20 62 65 74 74 65 status1 is bette
0510: 72 0a 3b 3b 20 72 65 74 75 72 6e 20 30 20 69 66 r.;; return 0 if
0520: 20 73 74 61 74 75 73 31 20 61 6e 64 20 32 20 61 status1 and 2 a
0530: 72 65 20 65 71 75 61 6c 6c 79 20 67 6f 6f 64 0a re equally good.
0540: 3b 3b 20 72 65 74 75 72 6e 20 2d 31 20 69 66 20 ;; return -1 if
0550: 73 74 61 74 75 73 32 20 69 73 20 62 65 74 74 65 status2 is bette
0560: 72 0a 28 64 65 66 69 6e 65 20 28 64 69 66 66 3a r.(define (diff:
0570: 73 74 61 74 75 73 2d 63 6f 6d 70 61 72 65 33 20 status-compare3
0580: 73 74 61 74 75 73 31 20 73 74 61 74 75 73 32 29 status1 status2)
0590: 0a 20 20 28 6c 65 74 2a 0a 20 20 20 20 20 20 28 . (let*. (
05a0: 28 73 74 61 74 75 73 2d 67 6f 6f 64 6e 65 73 73 (status-goodness
05b0: 2d 72 61 6e 6b 69 6e 67 20 20 28 6c 69 73 74 20 -ranking (list
05c0: 22 50 41 53 53 22 20 22 57 41 52 4e 22 20 22 57 "PASS" "WARN" "W
05d0: 41 49 56 45 44 22 20 22 53 4b 49 50 22 20 22 46 AIVED" "SKIP" "F
05e0: 41 49 4c 22 20 22 41 42 4f 52 54 22 20 23 66 29 AIL" "ABORT" #f)
05f0: 29 0a 20 20 20 20 20 20 20 28 6d 65 6d 31 20 28 ). (mem1 (
0600: 6d 65 6d 62 65 72 20 73 74 61 74 75 73 31 20 73 member status1 s
0610: 74 61 74 75 73 2d 67 6f 6f 64 6e 65 73 73 2d 72 tatus-goodness-r
0620: 61 6e 6b 69 6e 67 29 29 0a 20 20 20 20 20 20 20 anking)).
0630: 28 6d 65 6d 32 20 28 6d 65 6d 62 65 72 20 73 74 (mem2 (member st
0640: 61 74 75 73 32 20 73 74 61 74 75 73 2d 67 6f 6f atus2 status-goo
0650: 64 6e 65 73 73 2d 72 61 6e 6b 69 6e 67 29 29 0a dness-ranking)).
0660: 20 20 20 20 20 20 20 29 0a 20 20 20 20 28 63 6f ). (co
0670: 6e 64 0a 20 20 20 20 20 28 28 61 6e 64 20 28 6e nd. ((and (n
0680: 6f 74 20 6d 65 6d 31 29 20 28 6e 6f 74 20 6d 65 ot mem1) (not me
0690: 6d 32 29 29 20 30 29 0a 20 20 20 20 20 28 28 6e m2)) 0). ((n
06a0: 6f 74 20 6d 65 6d 31 29 20 2d 31 29 0a 20 20 20 ot mem1) -1).
06b0: 20 20 28 28 6e 6f 74 20 6d 65 6d 32 29 20 31 29 ((not mem2) 1)
06c0: 0a 20 20 20 20 20 28 28 3d 20 28 6c 65 6e 67 74 . ((= (lengt
06d0: 68 20 6d 65 6d 31 29 20 28 6c 65 6e 67 74 68 20 h mem1) (length
06e0: 6d 65 6d 32 29 29 20 30 29 0a 20 20 20 20 20 28 mem2)) 0). (
06f0: 28 3e 20 28 6c 65 6e 67 74 68 20 6d 65 6d 31 29 (> (length mem1)
0700: 20 28 6c 65 6e 67 74 68 20 6d 65 6d 32 29 29 20 (length mem2))
0710: 31 29 0a 20 20 20 20 20 28 65 6c 73 65 20 2d 31 1). (else -1
0720: 29 29 29 29 0a 0a 0a 28 64 65 66 69 6e 65 20 28 ))))...(define (
0730: 64 69 66 66 3a 78 6f 72 2d 74 65 73 74 73 2d 6d diff:xor-tests-m
0740: 69 6e 64 61 74 20 73 72 63 2d 74 65 73 74 73 2d indat src-tests-
0750: 6d 69 6e 64 61 74 20 64 65 73 74 2d 74 65 73 74 mindat dest-test
0760: 73 2d 6d 69 6e 64 61 74 20 23 21 6b 65 79 20 28 s-mindat #!key (
0770: 68 69 64 65 2d 63 6c 65 61 6e 20 23 66 29 20 28 hide-clean #f) (
0780: 63 6f 6e 73 69 73 74 65 6e 74 2d 66 61 69 6c 2d consistent-fail-
0790: 6e 6f 74 2d 63 6c 65 61 6e 20 23 66 29 29 0a 20 not-clean #f)).
07a0: 20 28 6c 65 74 2a 20 28 28 73 72 63 2d 68 61 73 (let* ((src-has
07b0: 68 20 28 64 69 66 66 3a 74 65 73 74 73 2d 6d 69 h (diff:tests-mi
07c0: 6e 64 61 74 2d 3e 68 61 73 68 20 73 72 63 2d 74 ndat->hash src-t
07d0: 65 73 74 73 2d 6d 69 6e 64 61 74 29 29 0a 20 20 ests-mindat)).
07e0: 20 20 20 20 20 20 20 28 64 65 73 74 2d 68 61 73 (dest-has
07f0: 68 20 28 64 69 66 66 3a 74 65 73 74 73 2d 6d 69 h (diff:tests-mi
0800: 6e 64 61 74 2d 3e 68 61 73 68 20 64 65 73 74 2d ndat->hash dest-
0810: 74 65 73 74 73 2d 6d 69 6e 64 61 74 29 29 0a 20 tests-mindat)).
0820: 20 20 20 20 20 20 20 20 28 61 6c 6c 2d 6b 65 79 (all-key
0830: 73 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 76 s. (rev
0840: 65 72 73 65 20 28 73 6f 72 74 20 0a 20 20 20 20 erse (sort .
0850: 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 64 (delete-d
0860: 75 70 6c 69 63 61 74 65 73 0a 20 20 20 20 20 20 uplicates.
0870: 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 28 68 (append (h
0880: 61 73 68 2d 74 61 62 6c 65 2d 6b 65 79 73 20 73 ash-table-keys s
0890: 72 63 2d 68 61 73 68 29 20 28 68 61 73 68 2d 74 rc-hash) (hash-t
08a0: 61 62 6c 65 2d 6b 65 79 73 20 64 65 73 74 2d 68 able-keys dest-h
08b0: 61 73 68 29 29 29 0a 0a 20 20 20 20 20 20 20 20 ash)))..
08c0: 20 20 20 28 6c 61 6d 62 64 61 20 28 61 20 62 29 (lambda (a b)
08d0: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 . (
08e0: 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 cond.
08f0: 20 20 20 28 28 3c 20 30 20 28 73 74 72 69 6e 67 ((< 0 (string
0900: 2d 63 6f 6d 70 61 72 65 33 20 28 63 61 72 20 61 -compare3 (car a
0910: 29 20 28 63 61 72 20 62 29 29 29 20 23 74 29 0a ) (car b))) #t).
0920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
0930: 3e 20 30 20 28 73 74 72 69 6e 67 2d 63 6f 6d 70 > 0 (string-comp
0940: 61 72 65 33 20 28 63 61 72 20 61 29 20 28 63 61 are3 (car a) (ca
0950: 72 20 62 29 29 29 20 23 66 29 0a 20 20 20 20 20 r b))) #f).
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 64 72 20 61 29 20 28 63 64 72 20 62 29 29 (cdr a) (cdr 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 65 6c 73 65 20 23 66 29 29 29 0a (else #f))).
09b0: 0a 20 20 20 20 20 20 20 20 20 20 20 29 29 29 29 . ))))
09c0: 0a 20 20 20 20 28 6c 65 74 20 28 28 72 65 73 0a . (let ((res.
09d0: 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 20 (map
09e0: 3b 3b 20 54 4f 44 4f 3a 20 72 65 6e 61 6d 65 20 ;; TODO: rename
09f0: 78 6f 72 20 74 6f 20 64 65 6c 74 61 20 67 6c 6f xor to delta glo
0a00: 62 61 6c 6c 79 20 69 6e 20 64 63 6f 6d 6d 6f 6e bally in dcommon
0a10: 20 61 6e 64 20 64 61 73 68 62 6f 61 72 64 0a 20 and dashboard.
0a20: 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 (lamb
0a30: 64 61 20 28 6b 65 79 29 0a 20 20 20 20 20 20 20 da (key).
0a40: 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 (let* ((t
0a50: 65 73 74 2d 6e 61 6d 65 20 28 63 61 72 20 6b 65 est-name (car ke
0a60: 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 y)).
0a70: 20 20 20 20 20 20 20 20 20 28 69 74 65 6d 2d 70 (item-p
0a80: 61 74 68 20 28 63 64 72 20 6b 65 79 29 29 0a 0a ath (cdr key))..
0a90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0aa0: 20 20 20 20 20 28 64 65 73 74 2d 76 61 6c 75 65 (dest-value
0ab0: 20 20 20 20 28 68 61 73 68 2d 74 61 62 6c 65 2d (hash-table-
0ac0: 72 65 66 2f 64 65 66 61 75 6c 74 20 64 65 73 74 ref/default dest
0ad0: 2d 68 61 73 68 20 6b 65 79 20 28 6c 69 73 74 20 -hash key (list
0ae0: 30 20 22 4e 55 4c 4c 22 20 22 4e 55 4c 4c 22 29 0 "NULL" "NULL")
0af0: 29 29 20 3b 3b 20 28 6c 69 73 74 20 74 65 73 74 )) ;; (list test
0b00: 2d 69 64 20 73 74 61 74 65 20 73 74 61 74 75 73 -id state status
0b10: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).
0b20: 20 20 20 20 20 20 20 28 64 65 73 74 2d 74 65 73 (dest-tes
0b30: 74 2d 69 64 20 20 28 6c 69 73 74 2d 72 65 66 20 t-id (list-ref
0b40: 64 65 73 74 2d 76 61 6c 75 65 20 30 29 29 0a 20 dest-value 0)).
0b50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0b60: 20 20 20 20 28 64 65 73 74 2d 73 74 61 74 65 20 (dest-state
0b70: 20 20 20 28 6c 69 73 74 2d 72 65 66 20 64 65 73 (list-ref des
0b80: 74 2d 76 61 6c 75 65 20 31 29 29 0a 20 20 20 20 t-value 1)).
0b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0ba0: 20 28 64 65 73 74 2d 73 74 61 74 75 73 20 20 20 (dest-status
0bb0: 28 6c 69 73 74 2d 72 65 66 20 64 65 73 74 2d 76 (list-ref dest-v
0bc0: 61 6c 75 65 20 32 29 29 0a 0a 20 20 20 20 20 20 alue 2))..
0bd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
0be0: 73 72 63 2d 76 61 6c 75 65 20 20 20 20 20 28 68 src-value (h
0bf0: 61 73 68 2d 74 61 62 6c 65 2d 72 65 66 2f 64 65 ash-table-ref/de
0c00: 66 61 75 6c 74 20 73 72 63 2d 68 61 73 68 20 6b fault src-hash k
0c10: 65 79 20 28 6c 69 73 74 20 30 20 22 4e 55 4c 4c ey (list 0 "NULL
0c20: 22 20 22 4e 55 4c 4c 22 29 29 29 20 20 20 3b 3b " "NULL"))) ;;
0c30: 20 28 6c 69 73 74 20 74 65 73 74 2d 69 64 20 73 (list test-id s
0c40: 74 61 74 65 20 73 74 61 74 75 73 29 0a 20 20 20 tate status).
0c50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0c60: 20 20 28 73 72 63 2d 74 65 73 74 2d 69 64 20 20 (src-test-id
0c70: 20 28 6c 69 73 74 2d 72 65 66 20 73 72 63 2d 76 (list-ref src-v
0c80: 61 6c 75 65 20 30 29 29 0a 20 20 20 20 20 20 20 alue 0)).
0c90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 (s
0ca0: 72 63 2d 73 74 61 74 65 20 20 20 20 20 28 6c 69 rc-state (li
0cb0: 73 74 2d 72 65 66 20 73 72 63 2d 76 61 6c 75 65 st-ref src-value
0cc0: 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 1)).
0cd0: 20 20 20 20 20 20 20 20 20 20 28 73 72 63 2d 73 (src-s
0ce0: 74 61 74 75 73 20 20 20 20 28 6c 69 73 74 2d 72 tatus (list-r
0cf0: 65 66 20 73 72 63 2d 76 61 6c 75 65 20 32 29 29 ef src-value 2))
0d00: 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0d10: 20 20 20 20 20 20 20 28 69 6e 63 6f 6d 70 6c 65 (incomple
0d20: 74 65 2d 73 74 61 74 75 73 65 73 20 27 28 22 44 te-statuses '("D
0d30: 45 4c 45 54 45 44 22 20 22 49 4e 43 4f 4d 50 4c ELETED" "INCOMPL
0d40: 45 54 45 22 20 22 53 54 55 43 4b 2f 44 45 41 44 ETE" "STUCK/DEAD
0d50: 22 20 22 4e 2f 41 22 29 29 20 3b 3b 20 69 66 20 " "N/A")) ;; if
0d60: 61 6e 79 20 6f 66 20 74 68 65 73 65 20 73 74 61 any of these sta
0d70: 74 75 73 65 73 20 61 70 70 6c 79 2c 20 74 72 65 tuses apply, tre
0d80: 61 74 20 74 65 73 74 20 61 73 20 69 6e 63 6f 6d at test as incom
0d90: 70 6c 65 74 65 0a 0a 20 20 20 20 20 20 20 20 20 plete..
0da0: 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 (des
0db0: 74 2d 63 6f 6d 70 6c 65 74 65 0a 20 20 20 20 20 t-complete.
0dc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0dd0: 20 28 61 6e 64 20 64 65 73 74 2d 76 61 6c 75 65 (and dest-value
0de0: 20 64 65 73 74 2d 73 74 61 74 65 20 64 65 73 74 dest-state dest
0df0: 2d 73 74 61 74 75 73 0a 20 20 20 20 20 20 20 20 -status.
0e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0e10: 20 20 20 28 65 71 75 61 6c 3f 20 64 65 73 74 2d (equal? dest-
0e20: 73 74 61 74 65 20 22 43 4f 4d 50 4c 45 54 45 44 state "COMPLETED
0e30: 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ").
0e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e (n
0e50: 6f 74 20 28 6d 65 6d 62 65 72 20 64 65 73 74 2d ot (member dest-
0e60: 73 74 61 74 75 73 20 69 6e 63 6f 6d 70 6c 65 74 status incomplet
0e70: 65 2d 73 74 61 74 75 73 65 73 29 29 29 29 0a 20 e-statuses)))).
0e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0e90: 20 20 20 20 28 73 72 63 2d 63 6f 6d 70 6c 65 74 (src-complet
0ea0: 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e.
0eb0: 20 20 20 20 20 20 20 20 28 61 6e 64 20 73 72 63 (and src
0ec0: 2d 76 61 6c 75 65 20 73 72 63 2d 73 74 61 74 65 -value src-state
0ed0: 20 73 72 63 2d 73 74 61 74 75 73 0a 20 20 20 20 src-status.
0ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0ef0: 20 20 20 20 20 20 20 28 65 71 75 61 6c 3f 20 73 (equal? s
0f00: 72 63 2d 73 74 61 74 65 20 22 43 4f 4d 50 4c 45 rc-state "COMPLE
0f10: 54 45 44 22 29 0a 20 20 20 20 20 20 20 20 20 20 TED").
0f20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0f30: 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 73 72 (not (member sr
0f40: 63 2d 73 74 61 74 75 73 20 69 6e 63 6f 6d 70 6c c-status incompl
0f50: 65 74 65 2d 73 74 61 74 75 73 65 73 29 29 29 29 ete-statuses))))
0f60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0f70: 20 20 20 20 20 20 28 73 74 61 74 75 73 2d 63 6f (status-co
0f80: 6d 70 61 72 65 2d 72 65 73 75 6c 74 20 28 64 69 mpare-result (di
0f90: 66 66 3a 73 74 61 74 75 73 2d 63 6f 6d 70 61 72 ff:status-compar
0fa0: 65 33 20 73 72 63 2d 73 74 61 74 75 73 20 64 65 e3 src-status de
0fb0: 73 74 2d 73 74 61 74 75 73 29 29 0a 20 20 20 20 st-status)).
0fc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0fd0: 20 28 78 6f 72 2d 6e 65 77 2d 69 74 65 6d 0a 20 (xor-new-item.
0fe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0ff0: 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 (cond.
1000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1010: 20 20 3b 3b 20 63 6f 6d 70 6c 65 74 65 2c 20 66 ;; complete, f
1020: 6f 72 20 74 68 69 73 20 63 61 73 65 20 6d 65 61 or this case mea
1030: 6e 73 3a 20 73 74 61 74 65 3d 63 6f 6d 70 65 6c ns: state=compel
1040: 74 65 20 41 4e 44 20 73 74 61 74 75 73 20 6e 6f te AND status no
1050: 74 20 69 6e 20 28 20 64 65 6c 65 74 65 64 20 75 t in ( deleted u
1060: 6e 63 6f 6d 70 6c 65 74 65 20 73 74 75 63 6b 2f ncomplete stuck/
1070: 64 65 61 64 20 6e 2f 61 20 29 0a 20 20 20 20 20 dead n/a ).
1080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1090: 20 20 3b 3b 20 6e 65 69 74 68 65 72 20 63 6f 6d ;; neither com
10a0: 70 6c 65 74 65 20 2d 3e 20 62 61 64 0a 0a 20 20 plete -> bad..
10b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
10c0: 20 20 20 20 20 3b 3b 20 73 72 63 20 21 63 6f 6d ;; src !com
10d0: 70 6c 65 74 65 2c 20 64 65 73 74 20 63 6f 6d 70 plete, dest comp
10e0: 6c 65 74 65 20 2d 3e 20 62 65 74 74 65 72 0a 20 lete -> better.
10f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1100: 20 20 20 20 20 20 28 28 61 6e 64 20 28 6e 6f 74 ((and (not
1110: 20 64 65 73 74 2d 63 6f 6d 70 6c 65 74 65 29 20 dest-complete)
1120: 28 6e 6f 74 20 73 72 63 2d 63 6f 6d 70 6c 65 74 (not src-complet
1130: 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 e)).
1140: 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 (lis
1150: 74 20 64 65 73 74 2d 74 65 73 74 2d 69 64 20 22 t dest-test-id "
1160: 42 4f 54 48 2d 42 41 44 22 20 22 42 4f 54 48 2d BOTH-BAD" "BOTH-
1170: 49 4e 43 4f 4d 50 4c 45 54 45 22 29 20 73 72 63 INCOMPLETE") src
1180: 2d 76 61 6c 75 65 20 64 65 73 74 2d 76 61 6c 75 -value dest-valu
1190: 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 e).
11a0: 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 ((not
11b0: 64 65 73 74 2d 63 6f 6d 70 6c 65 74 65 29 0a 20 dest-complete).
11c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
11d0: 20 20 20 20 20 20 20 28 6c 69 73 74 20 73 72 63 (list src
11e0: 2d 74 65 73 74 2d 69 64 20 22 4e 4f 54 2d 49 4e -test-id "NOT-IN
11f0: 2d 44 45 53 54 22 20 22 44 45 53 54 2d 49 4e 43 -DEST" "DEST-INC
1200: 4f 4d 50 4c 45 54 45 22 29 20 73 72 63 2d 76 61 OMPLETE") src-va
1210: 6c 75 65 20 64 65 73 74 2d 76 61 6c 75 65 29 20 lue dest-value)
1220: 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1230: 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 73 ((not s
1240: 72 63 2d 63 6f 6d 70 6c 65 74 65 29 0a 20 20 20 rc-complete).
1250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1260: 20 20 20 20 20 28 6c 69 73 74 20 64 65 73 74 2d (list dest-
1270: 74 65 73 74 2d 69 64 20 22 4e 4f 54 2d 49 4e 2d test-id "NOT-IN-
1280: 53 52 43 22 20 22 53 52 43 2d 49 4e 43 4f 4d 50 SRC" "SRC-INCOMP
1290: 4c 45 54 45 22 29 20 73 72 63 2d 76 61 6c 75 65 LETE") src-value
12a0: 20 64 65 73 74 2d 76 61 6c 75 65 29 20 20 20 20 dest-value)
12b0: 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 .
12c0: 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 0a ((and.
12d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
12e0: 20 20 20 20 20 20 20 20 20 28 65 71 75 61 6c 3f (equal?
12f0: 20 73 72 63 2d 73 74 61 74 65 20 64 65 73 74 2d src-state dest-
1300: 73 74 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 state).
1310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1320: 28 65 71 75 61 6c 3f 20 73 72 63 2d 73 74 61 74 (equal? src-stat
1330: 75 73 20 64 65 73 74 2d 73 74 61 74 75 73 29 29 us dest-status))
1340: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1350: 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e (if (an
1360: 64 20 63 6f 6e 73 69 73 74 65 6e 74 2d 66 61 69 d consistent-fai
1370: 6c 2d 6e 6f 74 2d 63 6c 65 61 6e 20 28 6e 6f 74 l-not-clean (not
1380: 20 28 6d 65 6d 62 65 72 20 64 65 73 74 2d 73 74 (member dest-st
1390: 61 74 75 73 20 27 28 22 50 41 53 53 22 20 22 53 atus '("PASS" "S
13a0: 4b 49 50 22 20 22 57 41 49 56 45 44 22 20 22 57 KIP" "WAIVED" "W
13b0: 41 52 4e 22 29 29 29 29 0a 20 20 20 20 20 20 20 ARN")))).
13c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
13d0: 20 20 20 20 20 28 6c 69 73 74 20 64 65 73 74 2d (list dest-
13e0: 74 65 73 74 2d 69 64 20 20 28 63 6f 6e 63 20 22 test-id (conc "
13f0: 42 4f 54 48 2d 42 41 44 22 29 20 28 63 6f 6e 63 BOTH-BAD") (conc
1400: 20 22 43 4c 45 41 4e 2d 22 20 64 65 73 74 2d 73 "CLEAN-" dest-s
1410: 74 61 74 75 73 29 20 73 72 63 2d 76 61 6c 75 65 tatus) src-value
1420: 20 64 65 73 74 2d 76 61 6c 75 65 29 0a 20 20 20 dest-value).
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 28 6c 69 73 74 20 64 (list d
1450: 65 73 74 2d 74 65 73 74 2d 69 64 20 20 28 63 6f est-test-id (co
1460: 6e 63 20 22 43 4c 45 41 4e 22 29 20 28 63 6f 6e nc "CLEAN") (con
1470: 63 20 22 43 4c 45 41 4e 2d 22 20 64 65 73 74 2d c "CLEAN-" dest-
1480: 73 74 61 74 75 73 29 20 73 72 63 2d 76 61 6c 75 status) src-valu
1490: 65 20 64 65 73 74 2d 76 61 6c 75 65 29 29 29 0a e dest-value))).
14a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
14b0: 20 20 20 20 20 20 20 3b 3b 20 20 20 20 62 65 74 ;; bet
14c0: 74 65 72 20 6f 72 20 77 6f 72 73 65 3a 20 70 61 ter or worse: pa
14d0: 73 73 20 3e 20 77 61 72 6e 20 3e 20 77 61 69 76 ss > warn > waiv
14e0: 65 64 20 3e 20 73 6b 69 70 20 3e 20 66 61 69 6c ed > skip > fail
14f0: 20 3e 20 61 62 6f 72 74 0a 20 20 20 20 20 20 20 > abort.
1500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1510: 3b 3b 20 20 20 20 20 70 61 73 73 20 3e 20 77 61 ;; pass > wa
1520: 72 6e 20 3e 20 77 61 69 76 65 64 20 3e 20 73 6b rn > waived > sk
1530: 69 70 20 3e 20 66 61 69 6c 20 3e 20 61 62 6f 72 ip > fail > abor
1540: 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t.
1550: 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 .
1560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1570: 20 28 28 3d 20 31 20 73 74 61 74 75 73 2d 63 6f ((= 1 status-co
1580: 6d 70 61 72 65 2d 72 65 73 75 6c 74 29 20 3b 3b mpare-result) ;;
1590: 20 73 72 63 20 69 73 20 62 65 74 74 65 72 2c 20 src is better,
15a0: 64 65 73 74 20 69 73 20 77 6f 72 73 65 0a 20 20 dest is worse.
15b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
15c0: 20 20 20 20 20 20 28 6c 69 73 74 20 64 65 73 74 (list dest
15d0: 2d 74 65 73 74 2d 69 64 20 22 57 4f 52 53 45 22 -test-id "WORSE"
15e0: 20 28 63 6f 6e 63 20 73 72 63 2d 73 74 61 74 75 (conc src-statu
15f0: 73 20 22 2d 3e 22 20 64 65 73 74 2d 73 74 61 74 s "->" dest-stat
1600: 75 73 29 20 73 72 63 2d 76 61 6c 75 65 20 64 65 us) src-value de
1610: 73 74 2d 76 61 6c 75 65 29 29 0a 20 20 20 20 20 st-value)).
1620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1630: 20 20 28 65 6c 73 65 0a 20 20 20 20 20 20 20 20 (else.
1640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1650: 28 6c 69 73 74 20 64 65 73 74 2d 74 65 73 74 2d (list dest-test-
1660: 69 64 20 22 42 45 54 54 45 52 22 20 28 63 6f 6e id "BETTER" (con
1670: 63 20 73 72 63 2d 73 74 61 74 75 73 20 22 2d 3e c src-status "->
1680: 22 20 64 65 73 74 2d 73 74 61 74 75 73 29 20 73 " dest-status) s
1690: 72 63 2d 76 61 6c 75 65 20 64 65 73 74 2d 76 61 rc-value dest-va
16a0: 6c 75 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 lue))))).
16b0: 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 74 (list t
16c0: 65 73 74 2d 6e 61 6d 65 20 69 74 65 6d 2d 70 61 est-name item-pa
16d0: 74 68 20 20 78 6f 72 2d 6e 65 77 2d 69 74 65 6d th xor-new-item
16e0: 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ))).
16f0: 61 6c 6c 2d 6b 65 79 73 29 29 29 0a 0a 20 20 20 all-keys)))..
1700: 20 20 20 28 69 66 20 68 69 64 65 2d 63 6c 65 61 (if hide-clea
1710: 6e 0a 20 20 20 20 20 20 20 20 20 20 28 66 69 6c n. (fil
1720: 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 ter. (
1730: 6c 61 6d 62 64 61 20 28 69 74 65 6d 29 0a 20 20 lambda (item).
1740: 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 0a (not.
1750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 (e
1760: 71 75 61 6c 3f 0a 20 20 20 20 20 20 20 20 20 20 qual?.
1770: 20 20 20 20 20 22 43 4c 45 41 4e 22 0a 20 20 20 "CLEAN".
1780: 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 (lis
1790: 74 2d 72 65 66 20 28 6c 69 73 74 2d 72 65 66 20 t-ref (list-ref
17a0: 69 74 65 6d 20 32 29 20 31 29 29 29 29 0a 20 20 item 2) 1)))).
17b0: 20 20 20 20 20 20 20 20 20 72 65 73 29 0a 20 20 res).
17c0: 20 20 20 20 20 20 20 20 72 65 73 29 29 29 29 0a res)))).
17d0: 0a 28 64 65 66 69 6e 65 20 28 64 69 66 66 3a 72 .(define (diff:r
17e0: 75 6e 2d 6e 61 6d 65 2d 3e 72 75 6e 2d 69 64 20 un-name->run-id
17f0: 72 75 6e 2d 6e 61 6d 65 29 0a 20 20 28 69 66 20 run-name). (if
1800: 28 6e 75 6d 62 65 72 3f 20 72 75 6e 2d 6e 61 6d (number? run-nam
1810: 65 29 0a 20 20 20 20 20 20 72 75 6e 2d 6e 61 6d e). run-nam
1820: 65 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 e. (let* ((
1830: 71 72 79 2d 72 65 73 20 28 72 6d 74 3a 67 65 74 qry-res (rmt:get
1840: 2d 72 75 6e 73 20 72 75 6e 2d 6e 61 6d 65 20 31 -runs run-name 1
1850: 20 30 20 27 28 29 29 29 29 0a 20 20 20 20 20 20 0 '()))).
1860: 20 20 28 69 66 20 28 65 71 3f 20 32 20 28 76 65 (if (eq? 2 (ve
1870: 63 74 6f 72 2d 6c 65 6e 67 74 68 20 71 72 79 2d ctor-length qry-
1880: 72 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 res)).
1890: 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 28 63 (vector-ref (c
18a0: 61 72 20 28 76 65 63 74 6f 72 2d 72 65 66 20 71 ar (vector-ref q
18b0: 72 79 2d 72 65 73 20 31 29 29 20 31 29 0a 20 20 ry-res 1)) 1).
18c0: 20 20 20 20 20 20 20 20 20 20 23 66 29 29 29 29 #f))))
18d0: 0a 0a 28 64 65 66 69 6e 65 20 28 64 69 66 66 3a ..(define (diff:
18e0: 74 61 72 67 65 74 2b 72 75 6e 2d 6e 61 6d 65 2d target+run-name-
18f0: 3e 72 75 6e 2d 69 64 20 74 61 72 67 65 74 20 72 >run-id target r
1900: 75 6e 2d 6e 61 6d 65 29 0a 20 20 28 6c 65 74 2a un-name). (let*
1910: 20 28 28 6b 65 79 73 20 28 72 6d 74 3a 67 65 74 ((keys (rmt:get
1920: 2d 6b 65 79 73 29 29 0a 20 20 20 20 20 20 20 20 -keys)).
1930: 20 28 74 61 72 67 65 74 2d 70 61 72 74 73 20 28 (target-parts (
1940: 69 66 20 74 61 72 67 65 74 20 28 73 74 72 69 6e if target (strin
1950: 67 2d 73 70 6c 69 74 20 74 61 72 67 65 74 20 22 g-split target "
1960: 2f 22 29 20 28 6d 61 70 20 28 6c 61 6d 62 64 61 /") (map (lambda
1970: 20 28 78 29 20 22 25 22 29 20 6b 65 79 73 29 29 (x) "%") keys))
1980: 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 )). (if (not
1990: 28 65 71 3f 20 28 6c 65 6e 67 74 68 20 6b 65 79 (eq? (length key
19a0: 73 29 20 28 6c 65 6e 67 74 68 20 6b 65 79 73 29 s) (length keys)
19b0: 29 29 0a 20 20 20 20 20 20 20 20 28 62 65 67 69 )). (begi
19c0: 6e 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 69 n. (pri
19d0: 6e 74 20 22 45 72 72 6f 72 3a 20 54 61 72 67 65 nt "Error: Targe
19e0: 74 20 28 22 74 61 72 67 65 74 22 29 20 69 74 65 t ("target") ite
19f0: 6d 20 63 6f 75 6e 74 20 64 6f 65 73 20 6e 6f 74 m count does not
1a00: 20 6d 61 74 63 68 20 66 69 65 6c 64 73 20 63 6f match fields co
1a10: 75 6e 74 20 74 61 72 67 65 74 20 74 6f 6b 65 6e unt target token
1a20: 73 3d 22 74 61 72 67 65 74 2d 70 61 72 74 73 22 s="target-parts"
1a30: 20 66 69 65 6c 64 73 3d 22 6b 65 79 73 29 0a 20 fields="keys).
1a40: 20 20 20 20 20 20 20 20 20 23 66 29 0a 20 20 20 #f).
1a50: 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 61 72 (let* ((tar
1a60: 67 65 74 2d 6d 61 70 20 28 7a 69 70 20 6b 65 79 get-map (zip key
1a70: 73 20 74 61 72 67 65 74 2d 70 61 72 74 73 29 29 s target-parts))
1a80: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1a90: 28 71 72 79 2d 72 65 73 20 28 72 6d 74 3a 67 65 (qry-res (rmt:ge
1aa0: 74 2d 72 75 6e 73 20 72 75 6e 2d 6e 61 6d 65 20 t-runs run-name
1ab0: 31 20 30 20 74 61 72 67 65 74 2d 6d 61 70 29 29 1 0 target-map))
1ac0: 29 0a 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 ).. (if
1ad0: 20 28 65 71 3f 20 32 20 28 76 65 63 74 6f 72 2d (eq? 2 (vector-
1ae0: 6c 65 6e 67 74 68 20 71 72 79 2d 72 65 73 29 29 length qry-res))
1af0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 . (
1b00: 6c 65 74 20 28 28 66 69 72 73 74 2d 65 6e 74 20 let ((first-ent
1b10: 28 76 65 63 74 6f 72 2d 72 65 66 20 71 72 79 2d (vector-ref qry-
1b20: 72 65 73 20 31 29 29 29 0a 20 20 20 20 20 20 20 res 1))).
1b30: 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3e 20 (if (>
1b40: 28 6c 65 6e 67 74 68 20 66 69 72 73 74 2d 65 6e (length first-en
1b50: 74 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 t) 0).
1b60: 20 20 20 20 20 20 20 20 20 20 28 76 65 63 74 6f (vecto
1b70: 72 2d 72 65 66 20 28 63 61 72 20 66 69 72 73 74 r-ref (car first
1b80: 2d 65 6e 74 29 20 31 29 0a 20 20 20 20 20 20 20 -ent) 1).
1b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 66 29 #f)
1ba0: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).
1bb0: 23 66 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 #f)))))..(define
1bc0: 20 28 64 69 66 66 3a 72 75 6e 2d 69 64 2d 3e 74 (diff:run-id->t
1bd0: 65 73 74 73 2d 6d 69 6e 64 61 74 20 72 75 6e 2d ests-mindat run-
1be0: 69 64 20 23 21 6b 65 79 20 28 74 65 73 74 70 61 id #!key (testpa
1bf0: 74 74 20 22 25 2f 25 22 29 29 0a 20 20 28 6c 65 tt "%/%")). (le
1c00: 74 2a 20 28 28 73 74 61 74 65 73 20 27 28 29 29 t* ((states '())
1c10: 0a 20 20 20 20 20 20 20 20 20 28 73 74 61 74 75 . (statu
1c20: 73 65 73 20 27 28 29 29 0a 20 20 20 20 20 20 20 ses '()).
1c30: 20 20 28 6f 66 66 73 65 74 20 23 66 29 0a 20 20 (offset #f).
1c40: 20 20 20 20 20 20 20 28 6c 69 6d 69 74 20 23 66 (limit #f
1c50: 29 0a 20 20 20 20 20 20 20 20 20 28 6e 6f 74 2d ). (not-
1c60: 69 6e 20 23 74 29 0a 20 20 20 20 20 20 20 20 20 in #t).
1c70: 28 73 6f 72 74 2d 62 79 20 23 66 29 0a 20 20 20 (sort-by #f).
1c80: 20 20 20 20 20 20 28 73 6f 72 74 2d 6f 72 64 65 (sort-orde
1c90: 72 20 23 66 29 0a 20 20 20 20 20 20 20 20 20 28 r #f). (
1ca0: 71 72 79 76 61 6c 73 20 22 69 64 2c 74 65 73 74 qryvals "id,test
1cb0: 6e 61 6d 65 2c 69 74 65 6d 5f 70 61 74 68 2c 73 name,item_path,s
1cc0: 74 61 74 65 2c 73 74 61 74 75 73 22 29 0a 20 20 tate,status").
1cd0: 20 20 20 20 20 20 20 28 71 72 79 76 61 6c 73 20 (qryvals
1ce0: 22 69 64 2c 74 65 73 74 6e 61 6d 65 2c 69 74 65 "id,testname,ite
1cf0: 6d 5f 70 61 74 68 2c 73 74 61 74 65 2c 73 74 61 m_path,state,sta
1d00: 74 75 73 22 29 0a 20 20 20 20 20 20 20 20 20 28 tus"). (
1d10: 6c 61 73 74 2d 75 70 64 61 74 65 20 30 29 0a 20 last-update 0).
1d20: 20 20 20 20 20 20 20 20 28 6d 6f 64 65 20 23 66 (mode #f
1d30: 29 0a 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 ). ).
1d40: 20 28 6d 61 70 0a 20 20 20 20 20 3b 3b 20 28 6c (map. ;; (l
1d50: 61 6d 62 64 61 20 28 72 6f 77 29 0a 20 20 20 20 ambda (row).
1d60: 20 3b 3b 20 20 20 28 6d 61 74 63 68 20 72 6f 77 ;; (match row
1d70: 0a 20 20 20 20 20 3b 3b 20 20 20 20 20 28 28 23 . ;; ((#
1d80: 28 69 64 20 74 65 73 74 2d 6e 61 6d 65 20 69 74 (id test-name it
1d90: 65 6d 2d 70 61 74 68 20 73 74 61 74 65 20 73 74 em-path state st
1da0: 61 74 75 73 29 0a 20 20 20 20 20 3b 3b 20 20 20 atus). ;;
1db0: 20 20 20 20 28 6c 69 73 74 20 74 65 73 74 2d 6e (list test-n
1dc0: 61 6d 65 20 69 74 65 6d 2d 70 61 74 68 20 28 6c ame item-path (l
1dd0: 69 73 74 20 69 64 20 73 74 61 74 65 20 73 74 61 ist id state sta
1de0: 74 75 73 29 29 29 29 0a 20 20 20 20 20 3b 3b 20 tus)))). ;;
1df0: 20 20 20 20 28 65 6c 73 65 20 23 66 29 29 29 0a (else #f))).
1e00: 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 72 6f (lambda (ro
1e10: 77 29 0a 20 20 20 20 20 20 20 28 6c 65 74 2a 20 w). (let*
1e20: 28 28 69 64 20 20 20 20 20 20 20 20 28 76 65 63 ((id (vec
1e30: 74 6f 72 2d 72 65 66 20 72 6f 77 20 30 29 29 0a tor-ref row 0)).
1e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 (t
1e50: 65 73 74 2d 6e 61 6d 65 20 20 28 76 65 63 74 6f est-name (vecto
1e60: 72 2d 72 65 66 20 72 6f 77 20 31 29 29 0a 20 20 r-ref row 1)).
1e70: 20 20 20 20 20 20 20 20 20 20 20 20 28 69 74 65 (ite
1e80: 6d 2d 70 61 74 68 20 28 76 65 63 74 6f 72 2d 72 m-path (vector-r
1e90: 65 66 20 72 6f 77 20 32 29 29 0a 20 20 20 20 20 ef row 2)).
1ea0: 20 20 20 20 20 20 20 20 20 28 73 74 61 74 65 20 (state
1eb0: 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 (vector-ref
1ec0: 72 6f 77 20 33 29 29 0a 20 20 20 20 20 20 20 20 row 3)).
1ed0: 20 20 20 20 20 20 28 73 74 61 74 75 73 20 20 20 (status
1ee0: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 72 6f 77 (vector-ref row
1ef0: 20 34 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 4))).
1f00: 20 20 20 28 6c 69 73 74 20 74 65 73 74 2d 6e 61 (list test-na
1f10: 6d 65 20 69 74 65 6d 2d 70 61 74 68 20 28 6c 69 me item-path (li
1f20: 73 74 20 69 64 20 73 74 61 74 65 20 73 74 61 74 st id state stat
1f30: 75 73 29 29 29 29 0a 20 20 20 20 20 0a 20 20 20 us)))). .
1f40: 20 20 28 72 6d 74 3a 67 65 74 2d 74 65 73 74 73 (rmt:get-tests
1f50: 2d 66 6f 72 2d 72 75 6e 20 72 75 6e 2d 69 64 0a -for-run run-id.
1f60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1f70: 20 20 20 20 20 20 20 20 20 20 20 20 74 65 73 74 test
1f80: 70 61 74 74 20 73 74 61 74 65 73 20 73 74 61 74 patt states stat
1f90: 75 73 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 uses.
1fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1fb0: 20 6f 66 66 73 65 74 20 6c 69 6d 69 74 0a 20 20 offset limit.
1fc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1fd0: 20 20 20 20 20 20 20 20 20 20 6e 6f 74 2d 69 6e not-in
1fe0: 20 73 6f 72 74 2d 62 79 20 73 6f 72 74 2d 6f 72 sort-by sort-or
1ff0: 64 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 der.
2000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2010: 71 72 79 76 61 6c 73 0a 20 20 20 20 20 20 20 20 qryvals.
2020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2030: 20 20 20 20 6c 61 73 74 2d 75 70 64 61 74 65 0a last-update.
2040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2050: 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 mode
2060: 29 29 29 29 0a 0a 0a 28 64 65 66 69 6e 65 20 28 ))))...(define (
2070: 64 69 66 66 3a 64 69 66 66 2d 72 75 6e 73 20 73 diff:diff-runs s
2080: 72 63 2d 72 75 6e 2d 69 64 20 64 65 73 74 2d 72 rc-run-id dest-r
2090: 75 6e 2d 69 64 29 0a 20 20 28 6c 65 74 2a 20 28 un-id). (let* (
20a0: 28 73 72 63 2d 74 65 73 74 73 2d 6d 69 6e 64 61 (src-tests-minda
20b0: 74 20 20 28 64 69 66 66 3a 72 75 6e 2d 69 64 2d t (diff:run-id-
20c0: 3e 74 65 73 74 73 2d 6d 69 6e 64 61 74 20 73 72 >tests-mindat sr
20d0: 63 2d 72 75 6e 2d 69 64 29 29 0a 20 20 20 20 20 c-run-id)).
20e0: 20 20 20 20 28 64 65 73 74 2d 74 65 73 74 73 2d (dest-tests-
20f0: 6d 69 6e 64 61 74 20 28 64 69 66 66 3a 72 75 6e mindat (diff:run
2100: 2d 69 64 2d 3e 74 65 73 74 73 2d 6d 69 6e 64 61 -id->tests-minda
2110: 74 20 64 65 73 74 2d 72 75 6e 2d 69 64 29 29 29 t dest-run-id)))
2120: 0a 20 20 20 20 28 64 69 66 66 3a 78 6f 72 2d 74 . (diff:xor-t
2130: 65 73 74 73 2d 6d 69 6e 64 61 74 20 73 72 63 2d ests-mindat src-
2140: 74 65 73 74 73 2d 6d 69 6e 64 61 74 20 64 65 73 tests-mindat des
2150: 74 2d 74 65 73 74 73 2d 6d 69 6e 64 61 74 20 63 t-tests-mindat c
2160: 6f 6e 73 69 73 74 65 6e 74 2d 66 61 69 6c 2d 6e onsistent-fail-n
2170: 6f 74 2d 63 6c 65 61 6e 3a 20 23 74 29 29 29 0a ot-clean: #t))).
2180: 0a 0a 28 64 65 66 69 6e 65 20 28 64 69 66 66 3a ..(define (diff:
2190: 72 75 6e 64 69 66 66 2d 66 69 6e 64 2d 62 79 2d rundiff-find-by-
21a0: 73 74 61 74 65 20 72 75 6e 2d 64 69 66 66 20 73 state run-diff s
21b0: 74 61 74 65 29 0a 20 20 20 20 28 66 69 6c 74 65 tate). (filte
21c0: 72 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 r. (lambda (
21d0: 78 29 0a 20 20 20 20 20 20 20 28 65 71 75 61 6c x). (equal
21e0: 3f 20 28 6c 69 73 74 2d 72 65 66 20 28 63 61 64 ? (list-ref (cad
21f0: 64 72 20 78 29 20 31 29 20 73 74 61 74 65 29 29 dr x) 1) state))
2200: 0a 20 20 20 20 20 72 75 6e 2d 64 69 66 66 29 29 . run-diff))
2210: 0a 0a 28 64 65 66 69 6e 65 20 28 64 69 66 66 3a ..(define (diff:
2220: 72 75 6e 64 69 66 66 2d 63 6c 65 61 6e 2d 62 72 rundiff-clean-br
2230: 65 61 6b 64 6f 77 6e 20 72 75 6e 2d 64 69 66 66 eakdown run-diff
2240: 29 0a 20 20 28 6d 61 70 0a 20 20 20 28 6c 61 6d ). (map. (lam
2250: 62 64 61 20 28 72 75 6e 2d 64 69 66 66 2d 69 74 bda (run-diff-it
2260: 65 6d 29 0a 20 20 20 20 20 28 6d 61 74 63 68 20 em). (match
2270: 72 75 6e 2d 64 69 66 66 2d 69 74 65 6d 0a 20 20 run-diff-item.
2280: 20 20 20 20 20 28 28 74 65 73 74 2d 6e 61 6d 65 ((test-name
2290: 20 69 74 65 6d 2d 70 61 74 68 20 28 6a 75 6e 6b item-path (junk
22a0: 2d 69 64 20 64 69 66 66 2d 73 74 61 74 65 20 64 -id diff-state d
22b0: 69 66 66 2d 73 74 61 74 75 73 20 28 73 72 63 2d iff-status (src-
22c0: 74 65 73 74 2d 69 64 20 73 72 63 2d 73 74 61 74 test-id src-stat
22d0: 65 20 73 72 63 2d 73 74 61 74 75 73 29 20 28 64 e src-status) (d
22e0: 65 73 74 2d 74 65 73 74 2d 69 64 20 64 65 73 74 est-test-id dest
22f0: 2d 73 74 61 74 65 20 64 65 73 74 2d 73 74 61 74 -state dest-stat
2300: 75 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 6c us))). (l
2310: 69 73 74 20 74 65 73 74 2d 6e 61 6d 65 20 69 74 ist test-name it
2320: 65 6d 2d 70 61 74 68 20 22 43 4c 45 41 4e 22 20 em-path "CLEAN"
2330: 73 72 63 2d 73 74 61 74 75 73 29 29 0a 20 20 20 src-status)).
2340: 20 20 20 20 28 65 6c 73 65 20 22 22 29 29 29 0a (else ""))).
2350: 20 20 20 28 64 69 66 66 3a 72 75 6e 64 69 66 66 (diff:rundiff
2360: 2d 66 69 6e 64 2d 62 79 2d 73 74 61 74 65 20 72 -find-by-state r
2370: 75 6e 2d 64 69 66 66 20 22 43 4c 45 41 4e 22 29 un-diff "CLEAN")
2380: 29 29 0a 20 20 0a 28 64 65 66 69 6e 65 20 28 64 )). .(define (d
2390: 69 66 66 3a 73 75 6d 6d 61 72 69 7a 65 2d 72 75 iff:summarize-ru
23a0: 6e 2d 64 69 66 66 20 72 75 6e 2d 64 69 66 66 29 n-diff run-diff)
23b0: 0a 20 20 0a 20 20 28 6c 65 74 2a 20 28 28 64 69 . . (let* ((di
23c0: 66 66 2d 73 74 61 74 65 73 20 28 6c 69 73 74 20 ff-states (list
23d0: 22 43 4c 45 41 4e 22 20 22 42 45 54 54 45 52 22 "CLEAN" "BETTER"
23e0: 20 22 57 4f 52 53 45 22 20 22 42 4f 54 48 2d 42 "WORSE" "BOTH-B
23f0: 41 44 22 20 22 4e 4f 54 2d 49 4e 2d 44 45 53 54 AD" "NOT-IN-DEST
2400: 22 20 22 4e 4f 54 2d 49 4e 2d 53 52 43 22 20 29 " "NOT-IN-SRC" )
2410: 29 29 0a 20 20 20 20 28 6d 61 70 0a 20 20 20 20 )). (map.
2420: 20 28 6c 61 6d 62 64 61 20 28 73 74 61 74 65 29 (lambda (state)
2430: 0a 20 20 20 20 20 20 20 28 6c 69 73 74 20 73 74 . (list st
2440: 61 74 65 20 0a 20 20 20 20 20 20 20 20 20 20 20 ate .
2450: 20 20 28 6c 65 6e 67 74 68 20 28 64 69 66 66 3a (length (diff:
2460: 72 75 6e 64 69 66 66 2d 66 69 6e 64 2d 62 79 2d rundiff-find-by-
2470: 73 74 61 74 65 20 72 75 6e 2d 64 69 66 66 20 73 state run-diff s
2480: 74 61 74 65 29 29 29 29 0a 20 20 20 20 20 64 69 tate)))). di
2490: 66 66 2d 73 74 61 74 65 73 29 29 29 0a 0a 3b 3b ff-states)))..;;
24a0: 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;
24b0: 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;
24c0: 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;
24d0: 3b 0a 3b 3b 20 50 72 65 73 65 6e 74 61 74 69 6f ;.;; Presentatio
24e0: 6e 20 63 6f 64 65 20 62 65 6c 6f 77 2c 20 62 75 n code below, bu
24f0: 73 69 6e 65 73 73 20 6c 6f 67 69 63 20 61 62 6f siness logic abo
2500: 76 65 20 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ve ;;.;;;;;;;;;;
2510: 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;
2520: 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b ;;;;;;;;;;;;;;;;
2530: 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 28 64 65 66 69 ;;;;;;;;;..(defi
2540: 6e 65 20 28 64 69 66 66 3a 73 74 6d 6c 2d 3e 73 ne (diff:stml->s
2550: 74 72 69 6e 67 20 69 6e 2d 73 74 6d 6c 29 0a 20 tring in-stml).
2560: 20 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f (with-output-to
2570: 2d 73 74 72 69 6e 67 0a 20 20 20 20 28 6c 61 6d -string. (lam
2580: 62 64 61 20 28 29 0a 20 20 20 20 20 20 28 73 3a bda (). (s:
2590: 6f 75 74 70 75 74 2d 6e 65 77 0a 20 20 20 20 20 output-new.
25a0: 20 20 28 63 75 72 72 65 6e 74 2d 6f 75 74 70 75 (current-outpu
25b0: 74 2d 70 6f 72 74 29 0a 20 20 20 20 20 20 20 69 t-port). i
25c0: 6e 2d 73 74 6d 6c 29 29 29 29 0a 0a 28 64 65 66 n-stml))))..(def
25d0: 69 6e 65 20 28 64 69 66 66 3a 73 74 61 74 65 2d ine (diff:state-
25e0: 73 74 61 74 75 73 2d 3e 62 67 63 6f 6c 6f 72 20 status->bgcolor
25f0: 73 74 61 74 65 20 73 74 61 74 75 73 29 0a 20 20 state status).
2600: 28 6d 61 74 63 68 20 28 6c 69 73 74 20 73 74 61 (match (list sta
2610: 74 65 20 73 74 61 74 75 73 29 0a 20 20 20 20 28 te status). (
2620: 28 22 43 4c 45 41 4e 22 20 20 20 20 20 20 20 20 ("CLEAN"
2630: 20 20 20 5f 29 20 22 23 38 38 66 66 38 38 22 29 _) "#88ff88")
2640: 0a 20 20 20 20 28 28 22 42 45 54 54 45 52 22 20 . (("BETTER"
2650: 20 20 20 20 20 20 20 20 20 5f 29 20 22 23 33 33 _) "#33
2660: 66 66 33 33 22 29 0a 20 20 20 20 28 28 22 57 4f ff33"). (("WO
2670: 52 53 45 22 20 20 20 20 20 20 20 20 20 20 20 5f RSE" _
2680: 29 20 22 23 66 66 33 33 33 33 22 29 0a 20 20 20 ) "#ff3333").
2690: 20 28 28 22 42 4f 54 48 2d 42 41 44 22 20 20 20 (("BOTH-BAD"
26a0: 20 20 20 20 20 5f 29 20 22 23 66 66 33 33 33 33 _) "#ff3333
26b0: 22 29 0a 20 20 20 20 28 28 5f 20 20 20 20 20 20 "). ((_
26c0: 20 20 20 20 20 20 22 57 41 52 4e 22 29 20 22 23 "WARN") "#
26d0: 66 66 66 66 38 38 22 29 0a 20 20 20 20 28 28 5f ffff88"). ((_
26e0: 20 20 20 20 20 20 20 20 20 20 20 20 22 46 41 49 "FAI
26f0: 4c 22 29 20 22 23 66 66 38 38 38 38 22 29 0a 20 L") "#ff8888").
2700: 20 20 20 28 28 5f 20 20 20 20 20 20 20 20 20 20 ((_
2710: 20 22 41 42 4f 52 54 22 29 20 22 23 66 66 30 30 "ABORT") "#ff00
2720: 30 30 22 29 0a 20 20 20 20 28 28 5f 20 20 20 20 00"). ((_
2730: 20 20 20 20 20 20 20 20 22 50 41 53 53 22 29 20 "PASS")
2740: 22 23 38 38 66 66 38 38 22 29 0a 20 20 20 20 28 "#88ff88"). (
2750: 28 5f 20 20 20 20 20 20 20 20 20 20 20 20 22 53 (_ "S
2760: 4b 49 50 22 29 20 22 23 66 66 66 66 30 30 22 29 KIP") "#ffff00")
2770: 20 20 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 .
2780: 28 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 (else
2790: 20 20 20 20 20 20 20 22 23 66 66 66 66 66 66 22 "#ffffff"
27a0: 29 29 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 69 )))..(define (di
27b0: 66 66 3a 74 65 73 74 2d 73 74 61 74 65 2d 73 74 ff:test-state-st
27c0: 61 74 75 73 2d 3e 64 69 66 66 2d 72 65 70 6f 72 atus->diff-repor
27d0: 74 2d 63 65 6c 6c 20 73 74 61 74 65 20 73 74 61 t-cell state sta
27e0: 74 75 73 29 0a 20 20 28 73 3a 74 64 20 27 62 67 tus). (s:td 'bg
27f0: 63 6f 6c 6f 72 20 28 64 69 66 66 3a 73 74 61 74 color (diff:stat
2800: 65 2d 73 74 61 74 75 73 2d 3e 62 67 63 6f 6c 6f e-status->bgcolo
2810: 72 20 73 74 61 74 65 20 73 74 61 74 75 73 29 20 r state status)
2820: 73 74 61 74 75 73 29 29 0a 0a 28 64 65 66 69 6e status))..(defin
2830: 65 20 28 64 69 66 66 3a 64 69 66 66 2d 73 74 61 e (diff:diff-sta
2840: 74 65 2d 73 74 61 74 75 73 2d 3e 64 69 66 66 2d te-status->diff-
2850: 72 65 70 6f 72 74 2d 63 65 6c 6c 20 73 74 61 74 report-cell stat
2860: 65 20 73 74 61 74 75 73 29 0a 20 20 28 73 3a 74 e status). (s:t
2870: 64 20 73 74 61 74 65 20 27 62 67 63 6f 6c 6f 72 d state 'bgcolor
2880: 20 28 64 69 66 66 3a 73 74 61 74 65 2d 73 74 61 (diff:state-sta
2890: 74 75 73 2d 3e 62 67 63 6f 6c 6f 72 20 73 74 61 tus->bgcolor sta
28a0: 74 65 20 73 74 61 74 75 73 29 29 29 0a 0a 0a 28 te status)))...(
28b0: 64 65 66 69 6e 65 20 28 64 69 66 66 3a 6d 65 67 define (diff:meg
28c0: 61 74 65 73 74 2d 68 74 6d 6c 2d 6c 6f 67 6f 29 atest-html-logo)
28d0: 0a 0a 20 20 22 3c 70 72 65 3e 0a 5f 5f 5f 20 20 .. "<pre>.___
28e0: 5f 5f 5f 20 20 20 20 20 20 20 20 20 20 20 20 20 ___
28f0: 20 20 20 20 5f 20 20 20 20 20 20 20 20 20 20 20 _
2900: 20 5f 0a 7c 20 20 5c 5c 2f 20 20 7c 20 5f 5f 5f _.| \\/ | ___
2910: 20 20 5f 5f 20 5f 20 20 5f 5f 20 5f 7c 20 7c 5f __ _ __ _| |_
2920: 20 5f 5f 5f 20 20 5f 5f 5f 7c 20 7c 5f 0a 7c 20 ___ ___| |_.|
2930: 7c 5c 5c 2f 7c 20 7c 2f 20 5f 20 5c 5c 2f 20 5f |\\/| |/ _ \\/ _
2940: 60 20 7c 2f 20 5f 60 20 7c 20 5f 5f 2f 20 5f 20 ` |/ _` | __/ _
2950: 5c 5c 2f 20 5f 5f 7c 20 5f 5f 7c 0a 7c 20 7c 20 \\/ __| __|.| |
2960: 20 7c 20 7c 20 20 5f 5f 2f 20 28 5f 7c 20 7c 20 | | __/ (_| |
2970: 28 5f 7c 20 7c 20 7c 7c 20 20 5f 5f 2f 5c 5c 5f (_| | || __/\\_
2980: 5f 20 5c 5c 20 7c 5f 0a 7c 5f 7c 20 20 7c 5f 7c _ \\ |_.|_| |_|
2990: 5c 5c 5f 5f 5f 7c 5c 5c 5f 5f 2c 20 7c 5c 5c 5f \\___|\\__, |\\_
29a0: 5f 2c 5f 7c 5c 5c 5f 5f 5c 5c 5f 5f 5f 7c 7c 5f _,_|\\__\\___||_
29b0: 5f 5f 2f 5c 5c 5f 5f 7c 0a 20 20 20 20 20 20 20 __/\\__|.
29c0: 20 20 20 20 20 20 7c 5f 5f 5f 2f 0a 3c 2f 70 72 |___/.</pr
29d0: 65 3e 22 29 0a 0a 28 64 65 66 69 6e 65 20 28 64 e>")..(define (d
29e0: 69 66 66 3a 6d 65 67 61 74 65 73 74 2d 68 74 6d iff:megatest-htm
29f0: 6c 2d 64 69 66 66 2d 6c 6f 67 6f 29 0a 20 20 22 l-diff-logo). "
2a00: 3c 70 72 65 3e 0a 5f 5f 5f 20 20 5f 5f 5f 20 20 <pre>.___ ___
2a10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5f _
2a20: 20 20 20 20 20 20 20 20 20 20 20 20 5f 0a 7c 20 _.|
2a30: 20 5c 5c 2f 20 20 7c 20 5f 5f 5f 20 20 5f 5f 20 \\/ | ___ __
2a40: 5f 20 20 5f 5f 20 5f 7c 20 7c 5f 20 5f 5f 5f 20 _ __ _| |_ ___
2a50: 20 5f 5f 5f 7c 20 7c 5f 20 20 7c 20 20 5f 20 5c ___| |_ | _ \
2a60: 5c 28 5f 29 2f 20 5f 7c 2f 20 5f 7c 0a 7c 20 7c \(_)/ _|/ _|.| |
2a70: 5c 5c 2f 7c 20 7c 2f 20 5f 20 5c 5c 2f 20 5f 60 \\/| |/ _ \\/ _`
2a80: 20 7c 2f 20 5f 60 20 7c 20 5f 5f 2f 20 5f 20 5c |/ _` | __/ _ \
2a90: 5c 2f 20 5f 5f 7c 20 5f 5f 7c 20 7c 20 7c 20 7c \/ __| __| | | |
2aa0: 20 7c 20 7c 20 7c 5f 7c 20 7c 5f 0a 7c 20 7c 20 | | |_| |_.| |
2ab0: 20 7c 20 7c 20 20 5f 5f 2f 20 28 5f 7c 20 7c 20 | | __/ (_| |
2ac0: 28 5f 7c 20 7c 20 7c 7c 20 20 5f 5f 2f 5c 5c 5f (_| | || __/\\_
2ad0: 5f 20 5c 5c 20 7c 5f 20 20 7c 20 7c 5f 7c 20 7c _ \\ |_ | |_| |
2ae0: 20 7c 20 20 5f 7c 20 20 5f 7c 0a 7c 5f 7c 20 20 | _| _|.|_|
2af0: 7c 5f 7c 5c 5c 5f 5f 5f 7c 5c 5c 5f 5f 2c 20 7c |_|\\___|\\__, |
2b00: 5c 5c 5f 5f 2c 5f 7c 5c 5c 5f 5f 5c 5c 5f 5f 5f \\__,_|\\__\\___
2b10: 7c 7c 5f 5f 5f 2f 5c 5c 5f 5f 7c 20 7c 5f 5f 5f ||___/\\__| |___
2b20: 5f 2f 7c 5f 7c 5f 7c 20 7c 5f 7c 0a 20 20 20 20 _/|_|_| |_|.
2b30: 20 20 20 20 20 20 20 20 20 7c 5f 5f 5f 2f 0a 3c |___/.<
2b40: 2f 70 72 65 3e 22 29 0a 0a 0a 28 64 65 66 69 6e /pre>")...(defin
2b50: 65 20 28 64 69 66 66 3a 72 75 6e 2d 69 64 2d 3e e (diff:run-id->
2b60: 74 61 72 67 65 74 2b 72 75 6e 2d 6e 61 6d 65 2b target+run-name+
2b70: 73 74 61 72 74 74 69 6d 65 20 72 75 6e 2d 69 64 starttime run-id
2b80: 29 0a 20 20 28 6c 65 74 2a 20 28 28 74 61 72 67 ). (let* ((targ
2b90: 65 74 20 20 20 20 20 20 28 72 6d 74 3a 67 65 74 et (rmt:get
2ba0: 2d 74 61 72 67 65 74 20 72 75 6e 2d 69 64 29 29 -target run-id))
2bb0: 0a 20 20 20 20 20 20 20 20 20 28 72 75 6e 69 6e . (runin
2bc0: 66 6f 20 20 20 20 20 28 72 6d 74 3a 67 65 74 2d fo (rmt:get-
2bd0: 72 75 6e 2d 69 6e 66 6f 20 72 75 6e 2d 69 64 29 run-info run-id)
2be0: 29 20 3b 20 76 65 63 74 6f 72 20 6f 66 20 68 65 ) ; vector of he
2bf0: 61 64 65 72 20 28 6c 69 73 74 29 20 61 6e 64 20 ader (list) and
2c00: 72 65 73 75 6c 74 20 28 76 65 63 74 6f 72 29 0a result (vector).
2c10: 20 20 20 20 20 20 20 20 20 28 69 6e 66 6f 2d 68 (info-h
2c20: 61 73 68 20 20 20 28 61 6c 69 73 74 2d 3e 68 61 ash (alist->ha
2c30: 73 68 2d 74 61 62 6c 65 0a 20 20 20 20 20 20 20 sh-table.
2c40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2c50: 28 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 78 29 (map (lambda (x)
2c60: 20 28 63 6f 6e 73 20 28 63 61 72 20 78 29 20 28 (cons (car x) (
2c70: 63 61 64 72 20 78 29 29 29 20 20 3b 20 6d 61 6b cadr x))) ; mak
2c80: 65 20 69 74 20 61 20 75 73 65 66 75 6c 20 68 61 e it a useful ha
2c90: 73 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 sh.
2ca0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
2cb0: 7a 69 70 20 28 76 65 63 74 6f 72 2d 72 65 66 20 zip (vector-ref
2cc0: 72 75 6e 69 6e 66 6f 20 30 29 20 28 76 65 63 74 runinfo 0) (vect
2cd0: 6f 72 2d 3e 6c 69 73 74 20 28 76 65 63 74 6f 72 or->list (vector
2ce0: 2d 72 65 66 20 72 75 6e 69 6e 66 6f 20 31 29 29 -ref runinfo 1))
2cf0: 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 )))). (r
2d00: 75 6e 2d 6e 61 6d 65 20 20 20 20 28 68 61 73 68 un-name (hash
2d10: 2d 74 61 62 6c 65 2d 72 65 66 2f 64 65 66 61 75 -table-ref/defau
2d20: 6c 74 20 69 6e 66 6f 2d 68 61 73 68 20 22 72 75 lt info-hash "ru
2d30: 6e 6e 61 6d 65 22 20 22 4e 2f 41 22 29 29 0a 20 nname" "N/A")).
2d40: 20 20 20 20 20 20 20 20 28 73 74 61 72 74 2d 74 (start-t
2d50: 69 6d 65 20 20 28 68 61 73 68 2d 74 61 62 6c 65 ime (hash-table
2d60: 2d 72 65 66 2f 64 65 66 61 75 6c 74 20 69 6e 66 -ref/default inf
2d70: 6f 2d 68 61 73 68 20 22 65 76 65 6e 74 5f 74 69 o-hash "event_ti
2d80: 6d 65 22 20 30 29 29 29 0a 20 20 20 20 28 6c 69 me" 0))). (li
2d90: 73 74 20 74 61 72 67 65 74 20 72 75 6e 2d 6e 61 st target run-na
2da0: 6d 65 20 73 74 61 72 74 2d 74 69 6d 65 29 29 29 me start-time)))
2db0: 0a 0a 28 64 65 66 69 6e 65 20 28 64 69 66 66 3a ..(define (diff:
2dc0: 64 65 6c 69 76 65 72 2d 64 69 66 66 2d 72 65 70 deliver-diff-rep
2dd0: 6f 72 74 20 73 72 63 2d 72 75 6e 2d 69 64 20 64 ort src-run-id d
2de0: 65 73 74 2d 72 75 6e 2d 69 64 0a 20 20 20 20 20 est-run-id.
2df0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 #
2e10: 21 6b 65 79 0a 20 20 20 20 20 20 20 20 20 20 20 !key.
2e20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2e30: 20 20 20 20 20 20 20 20 20 28 68 74 6d 6c 2d 6f (html-o
2e40: 75 74 70 75 74 2d 66 69 6c 65 20 23 66 29 0a 20 utput-file #f).
2e50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2e70: 20 20 20 28 65 6d 61 69 6c 2d 73 75 62 6a 65 63 (email-subjec
2e80: 74 2d 70 72 65 66 69 78 20 22 5b 4d 45 47 41 54 t-prefix "[MEGAT
2e90: 45 53 54 20 44 49 46 46 5d 22 29 0a 20 20 20 20 EST DIFF]").
2ea0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ec0: 28 65 6d 61 69 6c 2d 72 65 63 69 70 69 65 6e 74 (email-recipient
2ed0: 73 2d 6c 69 73 74 20 27 28 29 29 20 20 29 0a 20 s-list '()) ).
2ee0: 20 28 6c 65 74 2a 20 28 28 73 72 63 2d 69 6e 66 (let* ((src-inf
2ef0: 6f 20 20 20 20 20 20 20 20 20 28 64 69 66 66 3a o (diff:
2f00: 72 75 6e 2d 69 64 2d 3e 74 61 72 67 65 74 2b 72 run-id->target+r
2f10: 75 6e 2d 6e 61 6d 65 2b 73 74 61 72 74 74 69 6d un-name+starttim
2f20: 65 20 73 72 63 2d 72 75 6e 2d 69 64 29 29 0a 20 e src-run-id)).
2f30: 20 20 20 20 20 20 20 20 28 73 72 63 2d 74 61 72 (src-tar
2f40: 67 65 74 20 20 20 20 20 20 20 28 63 61 72 20 73 get (car s
2f50: 72 63 2d 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 rc-info)).
2f60: 20 20 20 28 73 72 63 2d 72 75 6e 2d 6e 61 6d 65 (src-run-name
2f70: 20 20 20 20 20 28 63 61 64 72 20 73 72 63 2d 69 (cadr src-i
2f80: 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 20 20 28 nfo)). (
2f90: 73 72 63 2d 73 74 61 72 74 20 20 20 20 20 20 20 src-start
2fa0: 20 28 63 6f 6e 63 20 28 73 65 63 6f 6e 64 73 2d (conc (seconds-
2fb0: 3e 73 74 72 69 6e 67 20 28 63 61 64 64 72 20 73 >string (caddr s
2fc0: 72 63 2d 69 6e 66 6f 29 29 20 22 20 22 20 28 6c rc-info)) " " (l
2fd0: 6f 63 61 6c 2d 74 69 6d 65 7a 6f 6e 65 2d 61 62 ocal-timezone-ab
2fe0: 62 72 65 76 69 61 74 69 6f 6e 29 29 29 0a 20 20 breviation))).
2ff0: 20 20 20 20 20 20 20 28 64 65 73 74 2d 69 6e 66 (dest-inf
3000: 6f 20 20 20 20 20 20 20 20 28 64 69 66 66 3a 72 o (diff:r
3010: 75 6e 2d 69 64 2d 3e 74 61 72 67 65 74 2b 72 75 un-id->target+ru
3020: 6e 2d 6e 61 6d 65 2b 73 74 61 72 74 74 69 6d 65 n-name+starttime
3030: 20 64 65 73 74 2d 72 75 6e 2d 69 64 29 29 0a 20 dest-run-id)).
3040: 20 20 20 20 20 20 20 20 28 64 65 73 74 2d 74 61 (dest-ta
3050: 72 67 65 74 20 20 20 20 20 20 28 63 61 72 20 64 rget (car d
3060: 65 73 74 2d 69 6e 66 6f 29 29 0a 20 20 20 20 20 est-info)).
3070: 20 20 20 20 28 64 65 73 74 2d 72 75 6e 2d 6e 61 (dest-run-na
3080: 6d 65 20 20 20 20 28 63 61 64 72 20 64 65 73 74 me (cadr dest
3090: 2d 69 6e 66 6f 29 29 0a 20 20 20 20 20 20 20 20 -info)).
30a0: 20 28 64 65 73 74 2d 73 74 61 72 74 20 20 20 20 (dest-start
30b0: 20 20 20 28 63 6f 6e 63 20 28 73 65 63 6f 6e 64 (conc (second
30c0: 73 2d 3e 73 74 72 69 6e 67 20 28 63 61 64 64 72 s->string (caddr
30d0: 20 64 65 73 74 2d 69 6e 66 6f 29 29 20 22 20 22 dest-info)) " "
30e0: 20 28 6c 6f 63 61 6c 2d 74 69 6d 65 7a 6f 6e 65 (local-timezone
30f0: 2d 61 62 62 72 65 76 69 61 74 69 6f 6e 29 29 29 -abbreviation)))
3100: 0a 0a 0a 20 20 20 20 20 20 20 20 20 28 72 75 6e ... (run
3110: 2d 64 69 66 66 20 28 64 69 66 66 3a 64 69 66 66 -diff (diff:diff
3120: 2d 72 75 6e 73 20 73 72 63 2d 72 75 6e 2d 69 64 -runs src-run-id
3130: 20 64 65 73 74 2d 72 75 6e 2d 69 64 20 29 29 0a dest-run-id )).
3140: 20 20 20 20 20 20 20 20 20 28 74 65 73 74 2d 63 (test-c
3150: 6f 75 6e 74 20 28 6c 65 6e 67 74 68 20 72 75 6e ount (length run
3160: 2d 64 69 66 66 29 29 0a 20 20 20 20 20 20 20 20 -diff)).
3170: 20 28 73 75 6d 6d 61 72 79 2d 74 61 62 6c 65 0a (summary-table.
3180: 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 (apply
3190: 20 73 3a 74 61 62 6c 65 20 27 63 65 6c 6c 73 70 s:table 'cellsp
31a0: 61 63 69 6e 67 20 22 30 22 20 27 62 6f 72 64 65 acing "0" 'borde
31b0: 72 20 22 31 22 0a 20 20 20 20 20 20 20 20 20 20 r "1".
31c0: 20 20 20 20 20 20 20 28 73 3a 74 72 0a 20 20 20 (s:tr.
31d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
31e0: 73 3a 74 68 20 22 44 69 66 66 20 74 79 70 65 22 s:th "Diff type"
31f0: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).
3200: 20 20 20 20 28 73 3a 74 68 20 22 25 20 73 68 61 (s:th "% sha
3210: 72 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 re").
3220: 20 20 20 20 20 20 20 28 73 3a 74 68 20 22 43 6f (s:th "Co
3230: 75 6e 74 22 29 29 0a 20 20 20 20 20 20 20 20 20 unt")).
3240: 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 .
3250: 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 0a 20 (map.
3260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3270: 20 28 6c 61 6d 62 64 61 20 28 73 74 61 74 65 2d (lambda (state-
3280: 63 6f 75 6e 74 29 0a 20 20 20 20 20 20 20 20 20 count).
3290: 20 20 20 20 20 20 20 20 20 20 20 28 73 3a 74 72 (s:tr
32a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
32b0: 20 20 20 20 20 20 28 64 69 66 66 3a 64 69 66 66 (diff:diff
32c0: 2d 73 74 61 74 65 2d 73 74 61 74 75 73 2d 3e 64 -state-status->d
32d0: 69 66 66 2d 72 65 70 6f 72 74 2d 63 65 6c 6c 20 iff-report-cell
32e0: 28 63 61 72 20 73 74 61 74 65 2d 63 6f 75 6e 74 (car state-count
32f0: 29 20 23 66 29 0a 20 20 20 20 20 20 20 20 20 20 ) #f).
3300: 20 20 20 20 20 20 20 20 20 20 20 28 73 3a 74 64 (s:td
3310: 20 27 61 6c 69 67 6e 20 22 72 69 67 68 74 22 20 'align "right"
3320: 28 66 6d 74 20 23 66 0a 20 20 20 20 20 20 20 20 (fmt #f.
3330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3340: 20 20 20 20 20 20 20 20 28 64 65 63 69 6d 61 6c (decimal
3350: 2d 61 6c 69 67 6e 20 33 0a 20 20 20 20 20 20 20 -align 3.
3360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3380: 20 20 20 20 20 20 20 20 28 66 69 78 20 32 0a 20 (fix 2.
3390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
33a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
33b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
33c0: 20 20 20 28 6e 75 6d 2f 66 69 74 20 36 0a 20 20 (num/fit 6.
33d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
33e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
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 28 2a 20 31 30 (* 10
3410: 30 20 28 2f 20 28 63 61 64 72 20 73 74 61 74 65 0 (/ (cadr state
3420: 2d 63 6f 75 6e 74 29 20 74 65 73 74 2d 63 6f 75 -count) test-cou
3430: 6e 74 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 nt))))))).
3440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
3450: 73 3a 74 64 20 27 61 6c 69 67 6e 20 22 72 69 67 s:td 'align "rig
3460: 68 74 22 20 28 63 61 64 72 20 73 74 61 74 65 2d ht" (cadr state-
3470: 63 6f 75 6e 74 29 29 29 29 0a 20 20 20 20 20 20 count)))).
3480: 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 66 (dif
3490: 66 3a 73 75 6d 6d 61 72 69 7a 65 2d 72 75 6e 2d f:summarize-run-
34a0: 64 69 66 66 20 72 75 6e 2d 64 69 66 66 29 29 29 diff run-diff)))
34b0: 29 0a 20 20 20 20 20 20 20 20 20 28 6d 65 74 61 ). (meta
34c0: 2d 74 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 -table.
34d0: 20 28 73 3a 74 61 62 6c 65 20 27 63 65 6c 6c 73 (s:table 'cells
34e0: 70 61 63 69 6e 67 20 22 30 22 20 27 62 6f 72 64 pacing "0" 'bord
34f0: 65 72 20 22 31 22 0a 20 20 20 20 20 20 20 20 20 er "1".
3500: 20 20 20 20 20 20 20 20 20 20 0a 20 20 20 20 20 .
3510: 20 20 20 20 20 20 28 73 3a 74 72 0a 20 20 20 20 (s:tr.
3520: 20 20 20 20 20 20 20 20 28 73 3a 74 64 20 27 63 (s:td 'c
3530: 6f 6c 73 70 61 6e 20 22 32 22 0a 20 20 20 20 20 olspan "2".
3540: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 3a (s:
3550: 74 61 62 6c 65 20 27 63 65 6c 6c 73 70 61 63 69 table 'cellspaci
3560: 6e 67 20 22 30 22 20 27 62 6f 72 64 65 72 20 22 ng "0" 'border "
3570: 31 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 1".
3580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 (s
3590: 3a 74 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 :tr.
35a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
35b0: 28 73 3a 74 68 20 27 61 6c 69 67 6e 20 22 4c 45 (s:th 'align "LE
35c0: 46 54 22 20 22 22 29 20 20 20 20 20 20 20 20 20 FT" "")
35d0: 20 28 73 3a 74 68 20 22 53 4f 55 52 43 45 20 52 (s:th "SOURCE R
35e0: 55 4e 22 29 20 20 20 20 20 28 73 3a 74 68 20 22 UN") (s:th "
35f0: 44 45 53 54 49 4e 41 54 49 4f 4e 20 52 55 4e 22 DESTINATION RUN"
3600: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 )).
3610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 (s
3620: 3a 74 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 :tr.
3630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3640: 28 73 3a 74 68 20 27 61 6c 69 67 6e 20 22 4c 45 (s:th 'align "LE
3650: 46 54 22 20 22 53 74 61 72 74 65 64 22 29 20 20 FT" "Started")
3660: 28 73 3a 74 64 20 73 72 63 2d 73 74 61 72 74 29 (s:td src-start)
3670: 20 20 28 73 3a 74 64 20 64 65 73 74 2d 73 74 61 (s:td dest-sta
3680: 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 rt)).
3690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
36a0: 28 73 3a 74 72 0a 20 20 20 20 20 20 20 20 20 20 (s:tr.
36b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
36c0: 20 20 28 73 3a 74 68 20 27 61 6c 69 67 6e 20 22 (s:th 'align "
36d0: 4c 45 46 54 22 20 22 54 41 52 47 45 54 22 29 20 LEFT" "TARGET")
36e0: 20 28 73 3a 74 64 20 73 72 63 2d 74 61 72 67 65 (s:td src-targe
36f0: 74 29 20 20 28 73 3a 74 64 20 64 65 73 74 2d 74 t) (s:td dest-t
3700: 61 72 67 65 74 29 29 0a 20 20 20 20 20 20 20 20 arget)).
3710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3720: 20 20 20 28 73 3a 74 72 0a 20 20 20 20 20 20 20 (s:tr.
3730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3740: 20 20 20 20 20 28 73 3a 74 68 20 27 61 6c 69 67 (s:th 'alig
3750: 6e 20 22 4c 45 46 54 22 20 22 52 55 4e 20 4e 41 n "LEFT" "RUN NA
3760: 4d 45 22 29 20 20 28 73 3a 74 64 20 73 72 63 2d ME") (s:td src-
3770: 72 75 6e 2d 6e 61 6d 65 29 20 20 28 73 3a 74 64 run-name) (s:td
3780: 20 64 65 73 74 2d 72 75 6e 2d 6e 61 6d 65 29 29 dest-run-name))
3790: 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 ))))).
37a0: 20 0a 20 20 20 20 20 20 20 20 20 28 6d 61 69 6e . (main
37b0: 2d 74 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 -table.
37c0: 20 28 61 70 70 6c 79 20 73 3a 74 61 62 6c 65 20 (apply s:table
37d0: 27 63 65 6c 6c 73 70 61 63 69 6e 67 20 22 30 22 'cellspacing "0"
37e0: 20 27 62 6f 72 64 65 72 20 22 31 22 0a 20 20 20 'border "1".
37f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 (s
3800: 3a 74 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 :tr.
3810: 20 20 20 20 20 20 28 73 3a 74 68 20 22 54 65 73 (s:th "Tes
3820: 74 20 6e 61 6d 65 22 29 0a 20 20 20 20 20 20 20 t name").
3830: 20 20 20 20 20 20 20 20 20 20 20 28 73 3a 74 68 (s:th
3840: 20 22 49 74 65 6d 20 50 61 74 68 22 29 0a 20 20 "Item Path").
3850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3860: 28 73 3a 74 68 20 28 63 6f 6e 63 20 22 53 4f 55 (s:th (conc "SOU
3870: 52 43 45 22 29 29 0a 20 20 20 20 20 20 20 20 20 RCE")).
3880: 20 20 20 20 20 20 20 20 20 28 73 3a 74 68 20 28 (s:th (
3890: 63 6f 6e 63 20 22 44 45 53 54 22 29 29 0a 20 20 conc "DEST")).
38a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
38b0: 28 73 3a 74 68 20 22 44 69 66 66 22 29 29 0a 20 (s:th "Diff")).
38c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
38d0: 28 6d 61 70 0a 20 20 20 20 20 20 20 20 20 20 20 (map.
38e0: 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 (lambda (
38f0: 72 75 6e 2d 64 69 66 66 2d 69 74 65 6d 29 0a 20 run-diff-item).
3900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3910: 20 20 20 28 6d 61 74 63 68 20 72 75 6e 2d 64 69 (match run-di
3920: 66 66 2d 69 74 65 6d 0a 20 20 20 20 20 20 20 20 ff-item.
3930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
3940: 74 65 73 74 2d 6e 61 6d 65 20 69 74 65 6d 2d 70 test-name item-p
3950: 61 74 68 20 28 6a 75 6e 6b 2d 69 64 20 64 69 66 ath (junk-id dif
3960: 66 2d 73 74 61 74 65 20 64 69 66 66 2d 73 74 61 f-state diff-sta
3970: 74 75 73 20 28 73 72 63 2d 74 65 73 74 2d 69 64 tus (src-test-id
3980: 20 73 72 63 2d 73 74 61 74 65 20 73 72 63 2d 73 src-state src-s
3990: 74 61 74 75 73 29 20 28 64 65 73 74 2d 74 65 73 tatus) (dest-tes
39a0: 74 2d 69 64 20 64 65 73 74 2d 73 74 61 74 65 20 t-id dest-state
39b0: 64 65 73 74 2d 73 74 61 74 75 73 29 29 29 0a 20 dest-status))).
39c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
39d0: 20 20 20 20 20 20 28 73 3a 74 72 0a 20 20 20 20 (s:tr.
39e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
39f0: 20 20 20 20 28 73 3a 74 64 20 74 65 73 74 2d 6e (s:td test-n
3a00: 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 ame).
3a10: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 3a (s:
3a20: 74 64 20 69 74 65 6d 2d 70 61 74 68 29 0a 20 20 td item-path).
3a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3a40: 20 20 20 20 20 20 28 64 69 66 66 3a 74 65 73 74 (diff:test
3a50: 2d 73 74 61 74 65 2d 73 74 61 74 75 73 2d 3e 64 -state-status->d
3a60: 69 66 66 2d 72 65 70 6f 72 74 2d 63 65 6c 6c 20 iff-report-cell
3a70: 73 72 63 2d 73 74 61 74 65 20 73 72 63 2d 73 74 src-state src-st
3a80: 61 74 75 73 29 0a 20 20 20 20 20 20 20 20 20 20 atus).
3a90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 (d
3aa0: 69 66 66 3a 74 65 73 74 2d 73 74 61 74 65 2d 73 iff:test-state-s
3ab0: 74 61 74 75 73 2d 3e 64 69 66 66 2d 72 65 70 6f tatus->diff-repo
3ac0: 72 74 2d 63 65 6c 6c 20 64 65 73 74 2d 73 74 61 rt-cell dest-sta
3ad0: 74 65 20 64 65 73 74 2d 73 74 61 74 75 73 29 0a te dest-status).
3ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3af0: 20 20 20 20 20 20 20 20 28 64 69 66 66 3a 64 69 (diff:di
3b00: 66 66 2d 73 74 61 74 65 2d 73 74 61 74 75 73 2d ff-state-status-
3b10: 3e 64 69 66 66 2d 72 65 70 6f 72 74 2d 63 65 6c >diff-report-cel
3b20: 6c 20 64 69 66 66 2d 73 74 61 74 65 20 64 69 66 l diff-state dif
3b30: 66 2d 73 74 61 74 75 73 29 29 29 0a 20 20 20 20 f-status))).
3b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3b50: 20 20 28 65 6c 73 65 20 22 22 29 29 29 0a 20 20 (else ""))).
3b60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3b70: 28 66 69 6c 74 65 72 20 28 6c 61 6d 62 64 61 20 (filter (lambda
3b80: 28 72 75 6e 2d 64 69 66 66 2d 69 74 65 6d 29 0a (run-diff-item).
3b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3ba0: 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 (mat
3bb0: 63 68 20 72 75 6e 2d 64 69 66 66 2d 69 74 65 6d ch run-diff-item
3bc0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
3bd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
3be0: 28 74 65 73 74 2d 6e 61 6d 65 20 69 74 65 6d 2d (test-name item-
3bf0: 70 61 74 68 20 28 6a 75 6e 6b 2d 69 64 20 64 69 path (junk-id di
3c00: 66 66 2d 73 74 61 74 65 20 64 69 66 66 2d 73 74 ff-state diff-st
3c10: 61 74 75 73 20 28 73 72 63 2d 74 65 73 74 2d 69 atus (src-test-i
3c20: 64 20 73 72 63 2d 73 74 61 74 65 20 73 72 63 2d d src-state src-
3c30: 73 74 61 74 75 73 29 20 28 64 65 73 74 2d 74 65 status) (dest-te
3c40: 73 74 2d 69 64 20 64 65 73 74 2d 73 74 61 74 65 st-id dest-state
3c50: 20 64 65 73 74 2d 73 74 61 74 75 73 29 29 29 0a dest-status))).
3c60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
3c80: 6e 6f 74 20 28 65 71 75 61 6c 3f 20 64 69 66 66 not (equal? diff
3c90: 2d 73 74 61 74 65 20 22 43 4c 45 41 4e 22 29 29 -state "CLEAN"))
3ca0: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).
3cb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3cc0: 28 65 6c 73 65 20 23 66 29 29 29 0a 20 20 20 20 (else #f))).
3cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3ce0: 20 20 20 20 20 20 20 20 72 75 6e 2d 64 69 66 66 run-diff
3cf0: 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 65 )))). (e
3d00: 6d 61 69 6c 2d 73 75 62 6a 65 63 74 20 28 63 6f mail-subject (co
3d10: 6e 63 20 65 6d 61 69 6c 2d 73 75 62 6a 65 63 74 nc email-subject
3d20: 2d 70 72 65 66 69 78 20 22 20 22 20 73 72 63 2d -prefix " " src-
3d30: 74 61 72 67 65 74 20 22 2f 22 20 73 72 63 2d 72 target "/" src-r
3d40: 75 6e 2d 6e 61 6d 65 22 20 76 73 2e 20 22 64 65 un-name" vs. "de
3d50: 73 74 2d 74 61 72 67 65 74 22 2f 22 64 65 73 74 st-target"/"dest
3d60: 2d 72 75 6e 2d 6e 61 6d 65 29 29 0a 20 20 20 20 -run-name)).
3d70: 20 20 20 20 20 28 68 74 6d 6c 2d 62 6f 64 79 20 (html-body
3d80: 20 20 20 20 28 64 69 66 66 3a 73 74 6d 6c 2d 3e (diff:stml->
3d90: 73 74 72 69 6e 67 20 28 73 3a 62 6f 64 79 0a 20 string (s:body.
3da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3db0: 20 20 28 64 69 66 66 3a 6d 65 67 61 74 65 73 74 (diff:megatest
3dc0: 2d 68 74 6d 6c 2d 64 69 66 66 2d 6c 6f 67 6f 29 -html-diff-logo)
3dd0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
3de0: 20 20 20 20 28 73 3a 68 32 20 22 53 75 6d 6d 61 (s:h2 "Summa
3df0: 72 79 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 ry").
3e00: 20 20 20 20 20 20 20 20 28 73 3a 74 61 62 6c 65 (s:table
3e10: 20 27 62 6f 72 64 65 72 20 22 30 22 0a 20 20 20 'border "0".
3e20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3e30: 20 20 20 20 20 20 20 20 20 28 73 3a 74 72 0a 20 (s:tr.
3e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3e50: 20 20 20 20 20 20 20 20 20 20 20 20 28 73 3a 74 (s:t
3e60: 64 20 22 44 69 66 66 20 63 61 6c 63 75 6c 61 74 d "Diff calculat
3e70: 65 64 20 61 74 22 29 0a 20 20 20 20 20 20 20 20 ed at").
3e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3e90: 20 20 20 20 20 28 73 3a 74 64 20 28 63 6f 6e 63 (s:td (conc
3ea0: 20 28 73 65 63 6f 6e 64 73 2d 3e 73 74 72 69 6e (seconds->strin
3eb0: 67 29 20 22 20 22 20 28 6c 6f 63 61 6c 2d 74 69 g) " " (local-ti
3ec0: 6d 65 7a 6f 6e 65 2d 61 62 62 72 65 76 69 61 74 mezone-abbreviat
3ed0: 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 ion)))).
3ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3ef0: 20 20 20 20 28 73 3a 74 72 0a 20 20 20 20 20 20 (s:tr.
3f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3f10: 20 20 20 20 20 20 20 28 73 3a 74 64 20 22 4d 54 (s:td "MT
3f20: 5f 52 55 4e 5f 41 52 45 41 5f 48 4f 4d 45 22 20 _RUN_AREA_HOME"
3f30: 29 20 28 73 3a 74 64 20 2a 74 6f 70 70 61 74 68 ) (s:td *toppath
3f40: 2a 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 *)).
3f50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3f60: 28 73 3a 74 72 20 27 76 61 6c 69 67 6e 20 22 54 (s:tr 'valign "T
3f70: 4f 50 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 OP".
3f80: 20 20 20 20 20 20 20 20 20 28 73 3a 74 64 20 73 (s:td s
3f90: 75 6d 6d 61 72 79 2d 74 61 62 6c 65 29 0a 20 20 ummary-table).
3fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3fb0: 20 20 20 28 73 3a 74 64 20 6d 65 74 61 2d 74 61 (s:td meta-ta
3fc0: 62 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 ble))).
3fd0: 20 20 20 20 20 20 20 20 20 20 28 73 3a 68 32 20 (s:h2
3fe0: 22 44 69 66 66 73 20 2b 20 63 6f 6e 73 69 73 74 "Diffs + consist
3ff0: 65 6e 74 6c 79 20 66 61 69 6c 69 6e 67 20 74 65 ently failing te
4000: 73 74 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 sts").
4010: 20 20 20 20 20 20 20 20 20 6d 61 69 6e 2d 74 61 main-ta
4020: 62 6c 65 29 29 29 0a 0a 20 20 20 20 20 20 20 20 ble)))..
4030: 20 29 0a 20 20 20 20 28 69 66 20 68 74 6d 6c 2d ). (if html-
4040: 6f 75 74 70 75 74 2d 66 69 6c 65 0a 20 20 20 20 output-file.
4050: 20 20 20 20 28 77 69 74 68 2d 6f 75 74 70 75 74 (with-output
4060: 2d 74 6f 2d 66 69 6c 65 20 68 74 6d 6c 2d 6f 75 -to-file html-ou
4070: 74 70 75 74 2d 66 69 6c 65 20 28 6c 61 6d 62 64 tput-file (lambd
4080: 61 20 28 29 20 28 70 72 69 6e 74 20 68 74 6d 6c a () (print html
4090: 2d 62 6f 64 79 29 29 29 29 0a 20 20 20 20 28 77 -body)))). (w
40a0: 68 65 6e 20 28 61 6e 64 20 65 6d 61 69 6c 2d 72 hen (and email-r
40b0: 65 63 69 70 69 65 6e 74 73 2d 6c 69 73 74 20 28 ecipients-list (
40c0: 3e 20 28 6c 65 6e 67 74 68 20 65 6d 61 69 6c 2d > (length email-
40d0: 72 65 63 69 70 69 65 6e 74 73 2d 6c 69 73 74 29 recipients-list)
40e0: 20 30 29 29 0a 20 20 20 20 20 20 28 73 65 6e 64 0)). (send
40f0: 6d 61 69 6c 20 28 73 74 72 69 6e 67 2d 6a 6f 69 mail (string-joi
4100: 6e 20 65 6d 61 69 6c 2d 72 65 63 69 70 69 65 6e n email-recipien
4110: 74 73 2d 6c 69 73 74 20 22 2c 22 29 20 65 6d 61 ts-list ",") ema
4120: 69 6c 2d 73 75 62 6a 65 63 74 20 68 74 6d 6c 2d il-subject html-
4130: 62 6f 64 79 20 75 73 65 5f 68 74 6d 6c 3a 20 23 body use_html: #
4140: 74 29 29 0a 20 20 20 20 68 74 6d 6c 2d 62 6f 64 t)). html-bod
4150: 79 29 29 0a 20 20 20 20 20 20 0a 0a 20 20 0a 0a y)). .. ..
4160: 0a 3b 3b 20 28 6c 65 74 2a 20 28 28 73 72 63 2d .;; (let* ((src-
4170: 72 75 6e 2d 6e 61 6d 65 20 22 61 6c 6c 35 37 22 run-name "all57"
4180: 29 0a 3b 3b 20 20 20 20 20 20 20 20 28 64 65 73 ).;; (des
4190: 74 2d 72 75 6e 2d 6e 61 6d 65 20 22 61 6c 6c 36 t-run-name "all6
41a0: 30 22 29 0a 3b 3b 20 20 20 20 20 20 20 20 28 73 0").;; (s
41b0: 72 63 2d 72 75 6e 2d 69 64 20 28 64 69 66 66 3a rc-run-id (diff:
41c0: 72 75 6e 2d 6e 61 6d 65 2d 3e 72 75 6e 2d 69 64 run-name->run-id
41d0: 20 73 72 63 2d 72 75 6e 2d 6e 61 6d 65 29 29 0a src-run-name)).
41e0: 3b 3b 20 20 20 20 20 20 20 20 28 64 65 73 74 2d ;; (dest-
41f0: 72 75 6e 2d 69 64 20 28 64 69 66 66 3a 72 75 6e run-id (diff:run
4200: 2d 6e 61 6d 65 2d 3e 72 75 6e 2d 69 64 20 64 65 -name->run-id de
4210: 73 74 2d 72 75 6e 2d 6e 61 6d 65 29 29 0a 3b 3b st-run-name)).;;
4220: 20 20 20 20 20 20 20 20 28 74 6f 2d 6c 69 73 74 (to-list
4230: 20 28 6c 69 73 74 20 22 62 6a 62 61 72 63 6c 61 (list "bjbarcla
4240: 22 29 29 29 0a 3b 3b 20 20 20 28 64 69 66 66 3a "))).;; (diff:
4250: 64 65 6c 69 76 65 72 2d 64 69 66 66 2d 72 65 70 deliver-diff-rep
4260: 6f 72 74 20 73 72 63 2d 72 75 6e 2d 69 64 20 64 ort src-run-id d
4270: 65 73 74 2d 72 75 6e 2d 69 64 20 65 6d 61 69 6c est-run-id email
4280: 2d 72 65 63 69 70 69 65 6e 74 73 2d 6c 69 73 74 -recipients-list
4290: 3a 20 74 6f 2d 6c 69 73 74 20 68 74 6d 6c 2d 6f : to-list html-o
42a0: 75 74 70 75 74 2d 66 69 6c 65 3a 20 22 2f 74 6d utput-file: "/tm
42b0: 70 2f 62 6a 62 61 72 63 6c 61 2f 7a 69 70 70 79 p/bjbarcla/zippy
42c0: 2e 68 74 6d 6c 22 29 0a 3b 3b 20 20 20 29 0a 0a .html").;; )..
42d0: 28 64 65 66 69 6e 65 20 28 64 6f 2d 64 69 66 66 (define (do-diff
42e0: 2d 72 65 70 6f 72 74 20 73 72 63 2d 74 61 72 67 -report src-targ
42f0: 65 74 20 73 72 63 2d 72 75 6e 6e 61 6d 65 20 64 et src-runname d
4300: 65 73 74 2d 74 61 72 67 65 74 20 64 65 73 74 2d est-target dest-
4310: 72 75 6e 6e 61 6d 65 20 68 74 6d 6c 2d 66 69 6c runname html-fil
4320: 65 20 74 6f 2d 6c 69 73 74 2d 72 61 77 29 0a 20 e to-list-raw).
4330: 20 28 6c 65 74 2a 20 28 3b 3b 28 73 72 63 2d 74 (let* (;;(src-t
4340: 61 72 67 65 74 20 22 6e 6f 70 65 25 22 29 0a 20 arget "nope%").
4350: 20 20 20 20 20 20 20 20 3b 3b 28 73 72 63 2d 72 ;;(src-r
4360: 75 6e 6e 61 6d 65 20 22 61 6c 6c 35 37 22 29 0a unname "all57").
4370: 20 20 20 20 20 20 20 20 20 3b 3b 28 64 65 73 74 ;;(dest
4380: 2d 74 61 72 67 65 74 20 22 25 22 29 0a 20 20 20 -target "%").
4390: 20 20 20 20 20 20 3b 3b 28 64 65 73 74 2d 72 75 ;;(dest-ru
43a0: 6e 6e 61 6d 65 20 22 61 6c 6c 36 30 22 29 0a 20 nname "all60").
43b0: 20 20 20 20 20 20 20 20 28 73 72 63 2d 72 75 6e (src-run
43c0: 2d 69 64 20 28 64 69 66 66 3a 74 61 72 67 65 74 -id (diff:target
43d0: 2b 72 75 6e 2d 6e 61 6d 65 2d 3e 72 75 6e 2d 69 +run-name->run-i
43e0: 64 20 73 72 63 2d 74 61 72 67 65 74 20 73 72 63 d src-target src
43f0: 2d 72 75 6e 6e 61 6d 65 29 29 0a 20 20 20 20 20 -runname)).
4400: 20 20 20 20 28 64 65 73 74 2d 72 75 6e 2d 69 64 (dest-run-id
4410: 20 28 64 69 66 66 3a 74 61 72 67 65 74 2b 72 75 (diff:target+ru
4420: 6e 2d 6e 61 6d 65 2d 3e 72 75 6e 2d 69 64 20 64 n-name->run-id d
4430: 65 73 74 2d 74 61 72 67 65 74 20 64 65 73 74 2d est-target dest-
4440: 72 75 6e 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 runname)).
4450: 20 20 20 3b 28 68 74 6d 6c 2d 66 69 6c 65 20 22 ;(html-file "
4460: 2f 74 6d 70 2f 62 6a 62 61 72 63 6c 61 2f 7a 69 /tmp/bjbarcla/zi
4470: 70 70 79 2e 68 74 6d 6c 22 29 0a 20 20 20 20 20 ppy.html").
4480: 20 20 20 20 28 74 6f 2d 6c 69 73 74 20 28 69 66 (to-list (if
4490: 20 28 73 74 72 69 6e 67 3f 20 74 6f 2d 6c 69 73 (string? to-lis
44a0: 74 2d 72 61 77 29 20 28 73 74 72 69 6e 67 2d 73 t-raw) (string-s
44b0: 70 6c 69 74 20 74 6f 2d 6c 69 73 74 2d 72 61 77 plit to-list-raw
44c0: 20 22 2c 3a 22 29 20 23 66 29 29 0a 20 20 20 20 ",:") #f)).
44d0: 20 20 20 20 20 29 0a 20 20 20 20 0a 20 20 20 20 ). .
44e0: 28 63 6f 6e 64 0a 20 20 20 20 20 28 28 6e 6f 74 (cond. ((not
44f0: 20 73 72 63 2d 72 75 6e 2d 69 64 29 0a 20 20 20 src-run-id).
4500: 20 20 20 28 70 72 69 6e 74 20 22 4e 6f 20 6d 61 (print "No ma
4510: 74 63 68 20 66 6f 72 20 73 6f 75 72 63 65 20 74 tch for source t
4520: 61 72 67 65 74 2f 72 75 6e 6e 61 6d 65 3d 22 73 arget/runname="s
4530: 72 63 2d 74 61 72 67 65 74 22 2f 22 73 72 63 2d rc-target"/"src-
4540: 72 75 6e 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 runname). (
4550: 70 72 69 6e 74 20 22 43 61 6e 6e 6f 74 20 70 72 print "Cannot pr
4560: 6f 63 65 65 64 2e 22 29 0a 20 20 20 20 20 20 23 oceed."). #
4570: 66 29 0a 20 20 20 20 20 28 28 6e 6f 74 20 64 65 f). ((not de
4580: 73 74 2d 72 75 6e 2d 69 64 29 0a 20 20 20 20 20 st-run-id).
4590: 20 28 70 72 69 6e 74 20 22 4e 6f 20 6d 61 74 63 (print "No matc
45a0: 68 20 66 6f 72 20 73 6f 75 72 63 65 20 74 61 72 h for source tar
45b0: 67 65 74 2f 72 75 6e 6e 61 6d 65 3d 22 64 65 73 get/runname="des
45c0: 74 2d 74 61 72 67 65 74 22 2f 22 64 65 73 74 2d t-target"/"dest-
45d0: 72 75 6e 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 runname). (
45e0: 70 72 69 6e 74 20 22 43 61 6e 6e 6f 74 20 70 72 print "Cannot pr
45f0: 6f 63 65 65 64 2e 22 29 0a 20 20 20 20 20 20 23 oceed."). #
4600: 66 29 0a 20 20 20 20 20 28 65 6c 73 65 0a 20 20 f). (else.
4610: 20 20 20 20 28 64 69 66 66 3a 64 65 6c 69 76 65 (diff:delive
4620: 72 2d 64 69 66 66 2d 72 65 70 6f 72 74 20 73 72 r-diff-report sr
4630: 63 2d 72 75 6e 2d 69 64 20 64 65 73 74 2d 72 75 c-run-id dest-ru
4640: 6e 2d 69 64 20 65 6d 61 69 6c 2d 72 65 63 69 70 n-id email-recip
4650: 69 65 6e 74 73 2d 6c 69 73 74 3a 20 74 6f 2d 6c ients-list: to-l
4660: 69 73 74 20 68 74 6d 6c 2d 6f 75 74 70 75 74 2d ist html-output-
4670: 66 69 6c 65 3a 20 68 74 6d 6c 2d 66 69 6c 65 29 file: html-file)
4680: 29 29 29 29 0a 0a 20 20 0a )))).. .