Artifact
2e51ccf32963403448a93ff8e094afe450da85af:
0000: 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .;;=============
0010: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 20 41 20 =========.;; A
0050: 4c 20 4c 20 2d 20 52 20 4d 20 54 20 0a 3b 3b 3d L L - R M T .;;=
0060: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0070: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0080: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0090: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
00a0: 3d 3d 3d 3d 3d 0a 0a 3b 3b 20 20 43 6f 70 79 72 =====..;; Copyr
00b0: 69 67 68 74 20 32 30 30 36 2d 32 30 31 37 2c 20 ight 2006-2017,
00c0: 4d 61 74 74 68 65 77 20 57 65 6c 6c 61 6e 64 2e Matthew Welland.
00d0: 0a 3b 3b 20 0a 3b 3b 20 54 68 69 73 20 66 69 6c .;; .;; This fil
00e0: 65 20 69 73 20 70 61 72 74 20 6f 66 20 4d 65 67 e is part of Meg
00f0: 61 74 65 73 74 2e 0a 3b 3b 20 0a 3b 3b 20 20 20 atest..;; .;;
0100: 20 20 4d 65 67 61 74 65 73 74 20 69 73 20 66 72 Megatest is fr
0110: 65 65 20 73 6f 66 74 77 61 72 65 3a 20 79 6f 75 ee software: you
0120: 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 can redistribut
0130: 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 e it and/or modi
0140: 66 79 0a 3b 3b 20 20 20 20 20 69 74 20 75 6e 64 fy.;; it und
0150: 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 er the terms of
0160: 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 the GNU General
0170: 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 Public License a
0180: 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b s published by.;
0190: 3b 20 20 20 20 20 74 68 65 20 46 72 65 65 20 53 ; the Free S
01a0: 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 oftware Foundati
01b0: 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 on, either versi
01c0: 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 65 on 3 of the Lice
01d0: 6e 73 65 2c 20 6f 72 0a 3b 3b 20 20 20 20 20 28 nse, or.;; (
01e0: 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 at your option)
01f0: 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f any later versio
0200: 6e 2e 0a 3b 3b 20 0a 3b 3b 20 20 20 20 20 4d 65 n..;; .;; Me
0210: 67 61 74 65 73 74 20 69 73 20 64 69 73 74 72 69 gatest is distri
0220: 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 buted in the hop
0230: 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 e that it will b
0240: 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 20 20 20 e useful,.;;
0250: 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 but WITHOUT ANY
0260: 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f WARRANTY; witho
0270: 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c ut even the impl
0280: 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a ied warranty of.
0290: 3b 3b 20 20 20 20 20 4d 45 52 43 48 41 4e 54 41 ;; MERCHANTA
02a0: 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 BILITY or FITNES
02b0: 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c S FOR A PARTICUL
02c0: 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 AR PURPOSE. See
02d0: 20 74 68 65 0a 3b 3b 20 20 20 20 20 47 4e 55 20 the.;; GNU
02e0: 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c General Public L
02f0: 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 icense for more
0300: 64 65 74 61 69 6c 73 2e 0a 3b 3b 20 0a 3b 3b 20 details..;; .;;
0310: 20 20 20 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 You should h
0320: 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 ave received a c
0330: 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 opy of the GNU G
0340: 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 eneral Public Li
0350: 63 65 6e 73 65 0a 3b 3b 20 20 20 20 20 61 6c 6f cense.;; alo
0360: 6e 67 20 77 69 74 68 20 4d 65 67 61 74 65 73 74 ng with Megatest
0370: 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c . If not, see <
0380: 68 74 74 70 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f http://www.gnu.o
0390: 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a rg/licenses/>...
03a0: 0a 3b 3b 20 52 75 6e 20 6c 69 6b 65 20 74 68 69 .;; Run like thi
03b0: 73 3a 0a 3b 3b 0a 3b 3b 20 20 2e 2f 72 75 6e 75 s:.;;.;; ./runu
03c0: 6e 69 74 74 65 73 74 2e 73 68 20 61 6c 6c 2d 72 nittest.sh all-r
03d0: 6d 74 20 31 0a 0a 3b 3b 20 44 65 66 69 6e 69 74 mt 1..;; Definit
03e0: 69 6f 6e 73 3a 0a 3b 3b 20 20 20 4e 54 4e 20 2d ions:.;; NTN -
03f0: 20 6e 6f 20 74 65 73 74 20 6e 65 65 64 65 64 0a no test needed.
0400: 3b 3b 20 20 20 44 45 50 20 2d 20 66 75 6e 63 74 ;; DEP - funct
0410: 69 6f 6e 20 69 73 20 64 65 70 72 65 63 61 74 65 ion is deprecate
0420: 64 2c 20 6e 6f 20 70 6f 69 6e 74 20 69 6e 20 74 d, no point in t
0430: 65 73 74 69 6e 67 0a 3b 3b 20 20 20 4e 45 44 20 esting.;; NED
0440: 2d 20 66 75 6e 63 74 69 6f 6e 20 6e 65 73 74 65 - function neste
0450: 64 20 75 6e 64 65 72 20 6f 74 68 65 72 73 2c 20 d under others,
0460: 6e 6f 20 74 65 73 74 20 6e 65 65 64 65 64 2e 0a no test needed..
0470: 3b 3b 20 20 20 44 45 46 20 2d 20 64 65 66 65 72 ;; DEF - defer
0480: 72 65 64 0a 0a 28 70 72 69 6e 74 20 22 73 74 61 red..(print "sta
0490: 72 74 20 64 69 72 3a 20 22 20 28 63 75 72 72 65 rt dir: " (curre
04a0: 6e 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 nt-directory)).
04b0: 20 20 20 20 20 20 0a 28 64 65 66 69 6e 65 20 74 .(define t
04c0: 6f 70 70 61 74 68 20 28 63 75 72 72 65 6e 74 2d oppath (current-
04d0: 64 69 72 65 63 74 6f 72 79 29 29 0a 0a 28 74 65 directory))..(te
04e0: 73 74 20 23 66 20 23 66 20 28 73 65 72 76 65 72 st #f #f (server
04f0: 3a 63 68 65 63 6b 2d 69 66 2d 72 75 6e 6e 69 6e :check-if-runnin
0500: 67 20 74 6f 70 70 61 74 68 29 29 20 20 20 20 20 g toppath))
0510: 20 20 20 20 20 20 3b 3b 20 74 68 65 73 65 20 61 ;; these a
0520: 72 65 20 75 73 65 64 20 62 79 20 73 65 72 76 65 re used by serve
0530: 72 3a 73 74 61 72 74 2d 61 6e 64 2d 77 61 69 74 r:start-and-wait
0540: 0a 28 74 65 73 74 20 23 66 20 23 74 20 28 6c 69 .(test #f #t (li
0550: 73 74 3f 20 28 73 65 72 76 65 72 3a 67 65 74 2d st? (server:get-
0560: 6c 69 73 74 20 74 6f 70 70 61 74 68 29 29 29 0a list toppath))).
0570: 28 74 65 73 74 20 23 66 20 27 28 29 20 28 73 65 (test #f '() (se
0580: 72 76 65 72 3a 67 65 74 2d 62 65 73 74 20 27 28 rver:get-best '(
0590: 29 29 29 0a 28 74 65 73 74 20 23 66 20 23 74 20 ))).(test #f #t
05a0: 28 63 6f 6d 6d 6f 6e 3a 73 69 6d 70 6c 65 2d 66 (common:simple-f
05b0: 69 6c 65 2d 6c 6f 63 6b 2d 61 6e 64 2d 77 61 69 ile-lock-and-wai
05c0: 74 20 22 74 65 73 74 2e 6c 6f 63 6b 22 20 65 78 t "test.lock" ex
05d0: 70 69 72 65 2d 74 69 6d 65 3a 20 31 35 29 29 0a pire-time: 15)).
05e0: 28 74 65 73 74 20 23 66 20 22 74 65 73 74 2e 6c (test #f "test.l
05f0: 6f 63 6b 22 20 28 63 6f 6d 6d 6f 6e 3a 73 69 6d ock" (common:sim
0600: 70 6c 65 2d 66 69 6c 65 2d 72 65 6c 65 61 73 65 ple-file-release
0610: 2d 6c 6f 63 6b 20 22 74 65 73 74 2e 6c 6f 63 6b -lock "test.lock
0620: 22 29 29 0a 28 74 65 73 74 20 23 66 20 23 74 20 ")).(test #f #t
0630: 28 73 74 72 69 6e 67 3f 20 28 73 65 72 76 65 72 (string? (server
0640: 3a 67 65 74 2d 62 65 73 74 2d 67 75 65 73 73 2d :get-best-guess-
0650: 61 64 64 72 65 73 73 20 28 67 65 74 2d 68 6f 73 address (get-hos
0660: 74 2d 6e 61 6d 65 29 29 29 29 0a 28 74 65 73 74 t-name)))).(test
0670: 20 23 66 20 23 74 20 28 73 74 72 69 6e 67 3f 20 #f #t (string?
0680: 28 63 61 72 20 28 63 6f 6d 6d 6f 6e 3a 67 65 74 (car (common:get
0690: 2d 68 6f 6d 65 68 6f 73 74 29 29 29 29 0a 0a 3b -homehost))))..;
06a0: 3b 20 63 6c 65 61 6e 20 6f 75 74 20 61 6e 79 20 ; clean out any
06b0: 6f 6c 64 20 72 75 6e 6e 69 6e 67 20 73 65 72 76 old running serv
06c0: 65 72 73 0a 3b 3b 0a 28 6c 65 74 20 28 28 73 65 ers.;;.(let ((se
06d0: 72 76 65 72 73 20 28 73 65 72 76 65 72 3a 67 65 rvers (server:ge
06e0: 74 2d 6c 69 73 74 20 74 6f 70 70 61 74 68 29 29 t-list toppath))
06f0: 29 0a 20 20 28 70 72 69 6e 74 20 22 4b 6e 6f 77 ). (print "Know
0700: 6e 20 73 65 72 76 65 72 73 3a 20 22 20 20 73 65 n servers: " se
0710: 72 76 65 72 73 29 0a 20 20 28 69 66 20 28 6e 6f rvers). (if (no
0720: 74 20 28 6e 75 6c 6c 3f 20 73 65 72 76 65 72 73 t (null? servers
0730: 29 29 0a 20 20 20 20 20 20 28 62 65 67 69 6e 0a )). (begin.
0740: 09 28 66 6f 72 2d 65 61 63 68 0a 09 20 28 6c 61 .(for-each.. (la
0750: 6d 62 64 61 20 28 73 65 72 76 65 72 29 0a 09 20 mbda (server)..
0760: 20 20 28 6c 65 74 20 28 28 70 69 64 20 28 6c 69 (let ((pid (li
0770: 73 74 2d 72 65 66 20 73 65 72 76 65 72 20 34 29 st-ref server 4)
0780: 29 29 0a 09 20 20 20 20 20 28 74 68 72 65 61 64 )).. (thread
0790: 2d 73 74 61 72 74 21 0a 09 20 20 20 20 20 20 28 -start!.. (
07a0: 6d 61 6b 65 2d 74 68 72 65 61 64 0a 09 20 20 20 make-thread..
07b0: 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 09 (lambda ()..
07c0: 09 20 28 70 72 69 6e 74 20 22 41 74 74 65 6d 70 . (print "Attemp
07d0: 74 69 6e 67 20 74 6f 20 6b 69 6c 6c 20 73 65 72 ting to kill ser
07e0: 76 65 72 3a 20 22 20 73 65 72 76 65 72 29 0a 09 ver: " server)..
07f0: 09 20 28 70 72 69 6e 74 20 22 41 74 74 65 6d 70 . (print "Attemp
0800: 74 69 6e 67 20 74 6f 20 6b 69 6c 6c 20 70 69 64 ting to kill pid
0810: 20 22 20 70 69 64 29 0a 09 09 20 28 73 79 73 74 " pid)... (syst
0820: 65 6d 20 28 63 6f 6e 63 20 22 6b 69 6c 6c 20 22 em (conc "kill "
0830: 20 70 69 64 29 29 0a 09 09 20 28 74 68 72 65 61 pid))... (threa
0840: 64 2d 73 6c 65 65 70 21 20 32 29 0a 09 09 20 28 d-sleep! 2)... (
0850: 73 79 73 74 65 6d 20 28 63 6f 6e 63 20 22 6b 69 system (conc "ki
0860: 6c 6c 20 2d 39 20 22 20 70 69 64 29 29 29 0a 09 ll -9 " pid)))..
0870: 20 20 20 20 20 20 20 28 63 6f 6e 63 20 70 69 64 (conc pid
0880: 29 29 29 29 29 0a 09 20 73 65 72 76 65 72 73 29 ))))).. servers)
0890: 0a 09 28 74 68 72 65 61 64 2d 73 6c 65 65 70 21 ..(thread-sleep!
08a0: 20 32 29 29 29 29 0a 3b 3b 20 6c 65 74 27 73 20 2)))).;; let's
08b0: 73 74 61 72 74 20 75 70 20 61 20 73 65 72 76 65 start up a serve
08c0: 72 20 74 68 65 20 6d 65 63 68 61 6e 69 63 61 6c r the mechanical
08d0: 20 77 61 79 0a 28 73 79 73 74 65 6d 20 22 6e 62 way.(system "nb
08e0: 66 61 6b 65 20 6d 65 67 61 74 65 73 74 20 2d 73 fake megatest -s
08f0: 65 72 76 65 72 20 2d 22 29 0a 28 74 68 72 65 61 erver -").(threa
0900: 64 2d 73 6c 65 65 70 21 20 32 29 0a 3b 3b 20 28 d-sleep! 2).;; (
0910: 74 65 73 74 20 23 66 20 23 74 20 28 73 74 72 69 test #f #t (stri
0920: 6e 67 3f 20 28 73 65 72 76 65 72 3a 73 74 61 72 ng? (server:star
0930: 74 2d 61 6e 64 2d 77 61 69 74 20 2a 74 6f 70 70 t-and-wait *topp
0940: 61 74 68 2a 29 29 29 0a 0a 28 74 65 73 74 20 22 ath*)))..(test "
0950: 73 65 74 75 70 20 66 6f 72 20 72 75 6e 22 20 23 setup for run" #
0960: 74 20 28 62 65 67 69 6e 20 28 6c 61 75 6e 63 68 t (begin (launch
0970: 3a 73 65 74 75 70 29 0a 20 09 09 09 09 28 73 74 :setup). ....(st
0980: 72 69 6e 67 3f 20 28 67 65 74 65 6e 76 20 22 4d ring? (getenv "M
0990: 54 5f 52 55 4e 5f 41 52 45 41 5f 48 4f 4d 45 22 T_RUN_AREA_HOME"
09a0: 29 29 29 29 0a 28 74 65 73 74 20 23 66 20 23 74 )))).(test #f #t
09b0: 20 28 76 65 63 74 6f 72 3f 20 28 63 6c 69 65 6e (vector? (clien
09c0: 74 3a 73 65 74 75 70 2d 68 74 74 70 20 74 6f 70 t:setup-http top
09d0: 70 61 74 68 29 29 29 0a 28 74 65 73 74 20 23 66 path))).(test #f
09e0: 20 23 74 20 28 76 65 63 74 6f 72 3f 20 28 63 6c #t (vector? (cl
09f0: 69 65 6e 74 3a 73 65 74 75 70 20 74 6f 70 70 61 ient:setup toppa
0a00: 74 68 29 29 29 0a 0a 28 74 65 73 74 20 23 66 20 th)))..(test #f
0a10: 23 74 20 28 76 65 63 74 6f 72 3f 20 28 72 6d 74 #t (vector? (rmt
0a20: 3a 67 65 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d :get-connection-
0a30: 69 6e 66 6f 20 74 6f 70 70 61 74 68 29 29 29 20 info toppath)))
0a40: 3b 3b 20 54 4f 44 4f 3a 20 70 75 73 68 20 61 72 ;; TODO: push ar
0a50: 65 61 70 61 74 68 20 64 6f 77 6e 2e 0a 28 74 65 eapath down..(te
0a60: 73 74 20 23 66 20 23 74 20 28 73 74 72 69 6e 67 st #f #t (string
0a70: 3f 20 28 73 65 72 76 65 72 3a 63 68 65 63 6b 2d ? (server:check-
0a80: 69 66 2d 72 75 6e 6e 69 6e 67 20 22 2e 22 29 29 if-running "."))
0a90: 29 0a 3b 3b 20 44 45 46 20 28 74 65 73 74 20 23 ).;; DEF (test #
0aa0: 66 20 23 66 20 28 72 6d 74 3a 73 65 6e 64 2d 72 f #f (rmt:send-r
0ab0: 65 63 65 69 76 65 2d 6e 6f 2d 61 75 74 6f 2d 63 eceive-no-auto-c
0ac0: 6c 69 65 6e 74 2d 73 65 74 75 70 20 2a 72 75 6e lient-setup *run
0ad0: 72 65 6d 6f 74 65 2a 20 27 67 65 74 2d 6b 65 79 remote* 'get-key
0ae0: 73 20 23 66 20 27 28 29 29 29 0a 3b 3b 20 44 45 s #f '())).;; DE
0af0: 46 20 28 72 6d 74 3a 6b 69 6c 6c 2d 73 65 72 76 F (rmt:kill-serv
0b00: 65 72 20 72 75 6e 2d 69 64 29 0a 3b 3b 20 44 45 er run-id).;; DE
0b10: 46 20 28 72 6d 74 3a 73 74 61 72 74 2d 73 65 72 F (rmt:start-ser
0b20: 76 65 72 20 72 75 6e 2d 69 64 29 0a 28 74 65 73 ver run-id).(tes
0b30: 74 20 23 66 20 27 28 23 74 20 22 73 75 63 63 65 t #f '(#t "succe
0b40: 73 73 66 75 6c 20 6c 6f 67 69 6e 22 29 28 72 6d ssful login")(rm
0b50: 74 3a 6c 6f 67 69 6e 20 23 66 29 29 0a 3b 3b 20 t:login #f)).;;
0b60: 44 45 46 20 28 72 6d 74 3a 6c 6f 67 69 6e 2d 6e DEF (rmt:login-n
0b70: 6f 2d 61 75 74 6f 2d 63 6c 69 65 6e 74 2d 73 65 o-auto-client-se
0b80: 74 75 70 20 63 6f 6e 6e 65 63 74 69 6f 6e 2d 69 tup connection-i
0b90: 6e 66 6f 29 0a 28 74 65 73 74 20 23 66 20 23 74 nfo).(test #f #t
0ba0: 20 28 70 61 69 72 3f 20 28 72 6d 74 3a 67 65 74 (pair? (rmt:get
0bb0: 2d 6c 61 74 65 73 74 2d 68 6f 73 74 2d 6c 6f 61 -latest-host-loa
0bc0: 64 20 28 67 65 74 2d 68 6f 73 74 2d 6e 61 6d 65 d (get-host-name
0bd0: 29 29 29 29 0a 0a 3b 3b 20 67 65 74 2d 6c 61 74 ))))..;; get-lat
0be0: 65 73 74 2d 68 6f 73 74 2d 6c 6f 61 64 20 64 6f est-host-load do
0bf0: 65 73 20 61 20 6c 6f 6f 6b 75 70 20 69 6e 20 74 es a lookup in t
0c00: 68 65 20 64 62 2c 20 69 74 20 77 6f 6e 27 74 20 he db, it won't
0c10: 72 65 74 75 72 6e 20 61 20 75 73 65 66 75 6c 20 return a useful
0c20: 76 61 6c 75 65 20 75 6e 6c 65 73 73 0a 3b 3b 20 value unless.;;
0c30: 61 20 74 65 73 74 20 72 61 6e 20 72 65 63 65 6e a test ran recen
0c40: 74 6c 79 20 6f 6e 20 68 6f 73 74 0a 28 74 65 73 tly on host.(tes
0c50: 74 2d 62 61 74 63 68 20 72 6d 74 3a 67 65 74 2d t-batch rmt:get-
0c60: 6c 61 74 65 73 74 2d 68 6f 73 74 2d 6c 6f 61 64 latest-host-load
0c70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 72 6d . "rm
0c80: 74 3a 67 65 74 2d 6c 61 74 65 73 74 2d 68 6f 73 t:get-latest-hos
0c90: 74 2d 6c 6f 61 64 22 0a 20 20 20 20 20 20 20 20 t-load".
0ca0: 20 20 20 20 28 6c 69 73 74 20 28 6c 69 73 74 20 (list (list
0cb0: 22 6c 6f 63 61 6c 68 6f 73 74 22 20 20 23 74 20 "localhost" #t
0cc0: 28 67 65 74 2d 68 6f 73 74 2d 6e 61 6d 65 29 29 (get-host-name))
0cd0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0ce0: 20 20 20 28 6c 69 73 74 20 22 6e 6f 74 2d 61 2d (list "not-a-
0cf0: 68 6f 73 74 22 20 23 74 20 22 6e 6f 74 2d 61 2d host" #t "not-a-
0d00: 68 6f 73 74 22 20 20 29 29 0a 20 20 20 20 20 20 host" )).
0d10: 20 20 20 20 20 20 70 6f 73 74 2d 70 72 6f 63 3a post-proc:
0d20: 20 70 61 69 72 3f 29 0a 20 20 20 20 20 20 20 20 pair?).
0d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0d40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0d50: 20 20 20 0a 28 74 65 73 74 20 23 66 20 23 74 20 .(test #f #t
0d60: 28 6c 69 73 74 3f 20 28 72 6d 74 3a 67 65 74 2d (list? (rmt:get-
0d70: 63 68 61 6e 67 65 64 2d 72 65 63 6f 72 64 2d 69 changed-record-i
0d80: 64 73 20 30 29 29 29 0a 0a 28 74 65 73 74 20 23 ds 0)))..(test #
0d90: 66 20 23 66 20 28 62 65 67 69 6e 20 28 72 75 6e f #f (begin (run
0da0: 73 3a 75 70 64 61 74 65 2d 61 6c 6c 2d 74 65 73 s:update-all-tes
0db0: 74 5f 6d 65 74 61 20 23 66 29 20 23 66 29 29 0a t_meta #f) #f)).
0dc0: 0a 28 74 65 73 74 20 23 66 20 27 28 22 74 65 73 .(test #f '("tes
0dd0: 74 31 22 20 22 74 65 73 74 32 22 29 28 73 6f 72 t1" "test2")(sor
0de0: 74 20 28 61 6c 69 73 74 2d 72 65 66 20 22 74 61 t (alist-ref "ta
0df0: 67 74 77 6f 22 20 28 72 6d 74 3a 67 65 74 2d 74 gtwo" (rmt:get-t
0e00: 65 73 74 73 2d 74 61 67 73 29 20 65 71 75 61 6c ests-tags) equal
0e10: 3f 29 20 73 74 72 69 6e 67 3c 3d 29 29 0a 28 74 ?) string<=)).(t
0e20: 65 73 74 20 23 66 20 27 28 29 20 28 72 6d 74 3a est #f '() (rmt:
0e30: 67 65 74 2d 6b 65 79 2d 76 61 6c 2d 70 61 69 72 get-key-val-pair
0e40: 73 20 30 29 29 0a 28 74 65 73 74 20 23 66 20 27 s 0)).(test #f '
0e50: 28 22 53 59 53 54 45 4d 22 20 22 52 45 4c 45 41 ("SYSTEM" "RELEA
0e60: 53 45 22 29 20 28 72 6d 74 3a 67 65 74 2d 6b 65 SE") (rmt:get-ke
0e70: 79 73 29 29 0a 28 74 65 73 74 20 23 66 20 27 28 ys)).(test #f '(
0e80: 22 53 59 53 54 45 4d 22 20 22 52 45 4c 45 41 53 "SYSTEM" "RELEAS
0e90: 45 22 29 20 28 72 6d 74 3a 67 65 74 2d 6b 65 79 E") (rmt:get-key
0ea0: 73 2d 77 72 69 74 65 29 29 20 3b 3b 20 64 75 6d s-write)) ;; dum
0eb0: 6d 79 20 71 75 65 72 79 20 74 6f 20 66 6f 72 63 my query to forc
0ec0: 65 20 73 65 72 76 65 72 20 73 74 61 72 74 0a 28 e server start.(
0ed0: 74 65 73 74 20 23 66 20 27 28 29 20 28 72 6d 74 test #f '() (rmt
0ee0: 3a 67 65 74 2d 6b 65 79 2d 76 61 6c 73 20 31 29 :get-key-vals 1)
0ef0: 29 0a 28 74 65 73 74 20 23 66 20 28 76 65 63 74 ).(test #f (vect
0f00: 6f 72 20 27 28 22 53 59 53 54 45 4d 22 20 22 52 or '("SYSTEM" "R
0f10: 45 4c 45 41 53 45 22 29 20 27 28 29 29 20 28 72 ELEASE") '()) (r
0f20: 6d 74 3a 67 65 74 2d 74 61 72 67 65 74 73 29 29 mt:get-targets))
0f30: 0a 28 74 65 73 74 20 23 66 20 22 22 20 28 72 6d .(test #f "" (rm
0f40: 74 3a 67 65 74 2d 74 61 72 67 65 74 20 31 29 29 t:get-target 1))
0f50: 0a 28 74 65 73 74 20 23 66 20 23 74 20 28 72 6d .(test #f #t (rm
0f60: 74 3a 72 65 67 69 73 74 65 72 2d 74 65 73 74 20 t:register-test
0f70: 31 20 22 66 6f 6f 22 20 22 22 29 29 0a 28 74 65 1 "foo" "")).(te
0f80: 73 74 20 23 66 20 31 20 20 28 72 6d 74 3a 67 65 st #f 1 (rmt:ge
0f90: 74 2d 74 65 73 74 2d 69 64 20 31 20 22 66 6f 6f t-test-id 1 "foo
0fa0: 22 20 22 22 29 29 0a 28 74 65 73 74 20 23 66 20 " "")).(test #f
0fb0: 22 66 6f 6f 22 20 28 76 65 63 74 6f 72 2d 72 65 "foo" (vector-re
0fc0: 66 20 28 72 6d 74 3a 67 65 74 2d 74 65 73 74 2d f (rmt:get-test-
0fd0: 69 6e 66 6f 2d 62 79 2d 69 64 20 31 20 31 29 20 info-by-id 1 1)
0fe0: 32 29 29 0a 28 74 65 73 74 20 23 66 20 22 2f 74 2)).(test #f "/t
0ff0: 6d 70 2f 62 61 64 6e 61 6d 65 22 20 28 72 6d 74 mp/badname" (rmt
1000: 3a 74 65 73 74 2d 67 65 74 2d 72 75 6e 64 69 72 :test-get-rundir
1010: 2d 66 72 6f 6d 2d 74 65 73 74 2d 69 64 20 31 20 -from-test-id 1
1020: 31 29 29 0a 3b 3b 20 28 74 65 73 74 20 23 66 20 1)).;; (test #f
1030: 27 28 31 29 20 28 64 62 3a 73 65 74 2d 74 65 73 '(1) (db:set-tes
1040: 74 73 2d 73 74 61 74 65 2d 73 74 61 74 75 73 20 ts-state-status
1050: 2a 64 62 2a 20 31 20 27 28 22 66 6f 6f 22 29 20 *db* 1 '("foo")
1060: 20 22 43 4f 4d 50 4c 45 54 45 44 22 20 22 50 41 "COMPLETED" "PA
1070: 53 53 22 20 22 4e 4f 54 5f 53 54 41 52 54 45 44 SS" "NOT_STARTED
1080: 22 20 22 50 41 53 53 22 29 29 20 3b 3b 20 74 72 " "PASS")) ;; tr
1090: 75 73 74 20 74 68 61 74 20 74 68 69 73 20 77 61 ust that this wa
10a0: 73 20 74 65 73 74 65 64 20 69 6e 20 61 6c 6c 2d s tested in all-
10b0: 61 70 69 0a 28 74 65 73 74 20 23 66 20 27 28 31 api.(test #f '(1
10c0: 29 20 28 72 6d 74 3a 73 65 74 2d 74 65 73 74 73 ) (rmt:set-tests
10d0: 2d 73 74 61 74 65 2d 73 74 61 74 75 73 20 31 20 -state-status 1
10e0: 27 28 22 66 6f 6f 22 29 20 22 43 4f 4d 50 4c 45 '("foo") "COMPLE
10f0: 54 45 44 22 20 22 50 41 53 53 22 20 22 4e 4f 54 TED" "PASS" "NOT
1100: 5f 53 54 41 52 54 45 44 22 20 22 50 41 53 53 22 _STARTED" "PASS"
1110: 29 29 0a 28 74 65 73 74 20 23 66 20 23 74 20 28 )).(test #f #t (
1120: 6d 74 3a 74 65 73 74 2d 73 65 74 2d 73 74 61 74 mt:test-set-stat
1130: 65 2d 73 74 61 74 75 73 2d 62 79 2d 69 64 20 31 e-status-by-id 1
1140: 20 31 20 22 43 4f 4d 50 4c 45 54 45 44 22 20 22 1 "COMPLETED" "
1150: 50 41 53 53 22 20 22 4a 75 73 74 20 74 65 73 74 PASS" "Just test
1160: 69 6e 67 21 22 29 29 0a 28 74 65 73 74 20 23 66 ing!")).(test #f
1170: 20 23 74 20 28 6c 69 73 74 3f 20 28 72 6d 74 3a #t (list? (rmt:
1180: 67 65 74 2d 74 65 73 74 73 2d 66 6f 72 2d 72 75 get-tests-for-ru
1190: 6e 20 31 20 22 25 22 20 27 28 29 20 27 28 29 20 n 1 "%" '() '()
11a0: 23 66 20 23 66 20 23 66 20 23 66 20 23 66 20 23 #f #f #f #f #f #
11b0: 66 20 30 20 23 66 29 29 29 0a 28 74 65 73 74 20 f 0 #f))).(test
11c0: 23 66 20 23 74 20 28 6c 69 73 74 3f 20 28 72 6d #f #t (list? (rm
11d0: 74 3a 67 65 74 2d 74 65 73 74 73 2d 66 6f 72 2d t:get-tests-for-
11e0: 72 75 6e 73 2d 6d 69 6e 64 61 74 61 20 27 28 31 runs-mindata '(1
11f0: 29 20 22 25 22 20 27 28 29 20 27 28 29 20 23 66 ) "%" '() '() #f
1200: 29 29 29 0a 28 74 65 73 74 20 23 66 20 23 66 20 ))).(test #f #f
1210: 28 62 65 67 69 6e 20 28 72 6d 74 3a 64 65 6c 65 (begin (rmt:dele
1220: 74 65 2d 74 65 73 74 2d 72 65 63 6f 72 64 73 20 te-test-records
1230: 31 20 32 29 20 23 66 29 29 0a 28 74 65 73 74 20 1 2) #f)).(test
1240: 23 66 20 23 74 20 28 62 65 67 69 6e 20 28 72 6d #f #t (begin (rm
1250: 74 3a 74 65 73 74 2d 73 65 74 2d 73 74 61 74 65 t:test-set-state
1260: 2d 73 74 61 74 75 73 20 31 20 31 20 22 43 4f 4d -status 1 1 "COM
1270: 50 4c 45 54 45 44 22 20 22 46 41 49 4c 22 20 22 PLETED" "FAIL" "
1280: 41 6e 6f 74 68 65 72 20 6d 65 73 73 61 67 65 22 Another message"
1290: 29 20 23 74 29 29 0a 28 74 65 73 74 20 23 66 20 ) #t)).(test #f
12a0: 30 20 20 28 72 6d 74 3a 74 65 73 74 2d 74 6f 70 0 (rmt:test-top
12b0: 6c 65 76 65 6c 2d 6e 75 6d 2d 69 74 65 6d 73 20 level-num-items
12c0: 31 20 22 66 6f 6f 22 29 29 0a 28 74 65 73 74 20 1 "foo")).(test
12d0: 23 66 20 27 28 29 28 72 6d 74 3a 67 65 74 2d 6d #f '()(rmt:get-m
12e0: 61 74 63 68 69 6e 67 2d 70 72 65 76 69 6f 75 73 atching-previous
12f0: 2d 74 65 73 74 2d 72 75 6e 2d 72 65 63 6f 72 64 -test-run-record
1300: 73 20 31 20 22 66 6f 6f 22 20 22 22 29 29 0a 28 s 1 "foo" "")).(
1310: 74 65 73 74 20 23 66 20 27 28 22 2f 74 6d 70 2f test #f '("/tmp/
1320: 62 61 64 6e 61 6d 65 22 20 22 6c 6f 67 73 2f 66 badname" "logs/f
1330: 69 6e 61 6c 2e 6c 6f 67 22 29 20 28 72 6d 74 3a inal.log") (rmt:
1340: 74 65 73 74 2d 67 65 74 2d 6c 6f 67 66 69 6c 65 test-get-logfile
1350: 2d 69 6e 66 6f 20 31 20 22 66 6f 6f 22 29 29 0a -info 1 "foo")).
1360: 28 74 65 73 74 20 23 66 20 27 28 29 28 72 6d 74 (test #f '()(rmt
1370: 3a 74 65 73 74 2d 67 65 74 2d 72 65 63 6f 72 64 :test-get-record
1380: 73 2d 66 6f 72 2d 69 6e 64 65 78 2d 66 69 6c 65 s-for-index-file
1390: 20 31 20 22 66 6f 6f 22 29 29 0a 28 74 65 73 74 1 "foo")).(test
13a0: 20 23 66 20 23 74 20 28 76 65 63 74 6f 72 3f 20 #f #t (vector?
13b0: 28 72 6d 74 3a 67 65 74 2d 74 65 73 74 69 6e 66 (rmt:get-testinf
13c0: 6f 2d 73 74 61 74 65 2d 73 74 61 74 75 73 20 31 o-state-status 1
13d0: 20 31 29 29 29 0a 28 74 65 73 74 20 23 66 20 23 1))).(test #f #
13e0: 74 20 28 72 6d 74 3a 74 65 73 74 2d 73 65 74 2d t (rmt:test-set-
13f0: 6c 6f 67 21 20 31 20 31 20 22 2f 74 6d 70 2f 61 log! 1 1 "/tmp/a
1400: 6e 6f 74 68 65 72 2f 6c 6f 67 66 69 6c 65 2f 65 nother/logfile/e
1410: 68 22 29 29 0a 28 74 65 73 74 20 23 66 20 23 66 h")).(test #f #f
1420: 20 28 62 65 67 69 6e 20 28 72 6d 74 3a 74 65 73 (begin (rmt:tes
1430: 74 2d 73 65 74 2d 74 6f 70 2d 70 72 6f 63 65 73 t-set-top-proces
1440: 73 2d 70 69 64 20 31 20 31 20 31 32 33 29 20 23 s-pid 1 1 123) #
1450: 66 29 29 0a 28 74 65 73 74 20 23 66 20 31 32 33 f)).(test #f 123
1460: 20 20 28 72 6d 74 3a 74 65 73 74 2d 67 65 74 2d (rmt:test-get-
1470: 74 6f 70 2d 70 72 6f 63 65 73 73 2d 70 69 64 20 top-process-pid
1480: 31 20 31 29 29 0a 28 64 65 66 69 6e 65 20 6b 65 1 1)).(define ke
1490: 79 73 20 28 72 6d 74 3a 67 65 74 2d 6b 65 79 73 ys (rmt:get-keys
14a0: 29 29 0a 28 74 65 73 74 20 23 66 20 27 28 29 28 )).(test #f '()(
14b0: 72 6d 74 3a 67 65 74 2d 72 75 6e 2d 69 64 73 2d rmt:get-run-ids-
14c0: 6d 61 74 63 68 69 6e 67 2d 74 61 72 67 65 74 20 matching-target
14d0: 6b 65 79 73 20 22 25 2f 25 22 20 23 66 20 22 25 keys "%/%" #f "%
14e0: 22 20 22 25 22 20 22 25 22 20 22 25 22 29 29 0a " "%" "%" "%")).
14f0: 28 74 65 73 74 20 23 66 20 27 28 29 28 72 6d 74 (test #f '()(rmt
1500: 3a 74 65 73 74 2d 67 65 74 2d 70 61 74 68 73 2d :test-get-paths-
1510: 6d 61 74 63 68 69 6e 67 2d 6b 65 79 6e 61 6d 65 matching-keyname
1520: 73 2d 74 61 72 67 65 74 2d 6e 65 77 20 6b 65 79 s-target-new key
1530: 73 20 22 25 2f 25 22 20 23 66 20 22 25 22 20 22 s "%/%" #f "%" "
1540: 25 22 20 22 25 22 20 22 25 22 29 29 0a 28 74 65 %" "%" "%")).(te
1550: 73 74 20 23 66 20 27 28 29 28 72 6d 74 3a 67 65 st #f '()(rmt:ge
1560: 74 2d 70 72 65 72 65 71 73 2d 6e 6f 74 2d 6d 65 t-prereqs-not-me
1570: 74 20 31 20 27 28 29 20 22 66 6f 6f 22 20 22 22 t 1 '() "foo" ""
1580: 29 29 0a 28 74 65 73 74 20 23 66 20 30 20 28 72 )).(test #f 0 (r
1590: 6d 74 3a 67 65 74 2d 63 6f 75 6e 74 2d 74 65 73 mt:get-count-tes
15a0: 74 73 2d 72 75 6e 6e 69 6e 67 2d 66 6f 72 2d 72 ts-running-for-r
15b0: 75 6e 2d 69 64 20 31 29 29 0a 28 74 65 73 74 20 un-id 1)).(test
15c0: 23 66 20 30 20 28 72 6d 74 3a 67 65 74 2d 63 6f #f 0 (rmt:get-co
15d0: 75 6e 74 2d 74 65 73 74 73 2d 72 75 6e 6e 69 6e unt-tests-runnin
15e0: 67 20 31 29 29 0a 28 74 65 73 74 20 23 66 20 30 g 1)).(test #f 0
15f0: 20 28 72 6d 74 3a 67 65 74 2d 63 6f 75 6e 74 2d (rmt:get-count-
1600: 74 65 73 74 73 2d 72 75 6e 6e 69 6e 67 2d 66 6f tests-running-fo
1610: 72 2d 74 65 73 74 6e 61 6d 65 20 31 20 22 66 6f r-testname 1 "fo
1620: 6f 22 29 29 0a 28 74 65 73 74 20 23 66 20 30 20 o")).(test #f 0
1630: 28 72 6d 74 3a 67 65 74 2d 63 6f 75 6e 74 2d 74 (rmt:get-count-t
1640: 65 73 74 73 2d 72 75 6e 6e 69 6e 67 2d 69 6e 2d ests-running-in-
1650: 6a 6f 62 67 72 6f 75 70 20 31 20 22 6e 61 64 61 jobgroup 1 "nada
1660: 22 29 29 0a 28 74 65 73 74 20 23 66 20 23 66 20 ")).(test #f #f
1670: 28 62 65 67 69 6e 20 28 72 6d 74 3a 73 65 74 2d (begin (rmt:set-
1680: 73 74 61 74 65 2d 73 74 61 74 75 73 2d 61 6e 64 state-status-and
1690: 2d 72 6f 6c 6c 2d 75 70 2d 69 74 65 6d 73 20 31 -roll-up-items 1
16a0: 20 22 66 6f 6f 22 20 22 22 20 22 43 4f 4d 50 4c "foo" "" "COMPL
16b0: 45 54 45 44 22 20 22 46 41 49 4c 22 20 22 4a 75 ETED" "FAIL" "Ju
16c0: 73 74 20 79 65 74 20 61 6e 6f 74 68 65 72 20 6d st yet another m
16d0: 65 73 73 61 67 65 22 29 20 23 66 29 29 0a 28 74 essage") #f)).(t
16e0: 65 73 74 20 23 66 20 23 74 20 28 72 6d 74 3a 74 est #f #t (rmt:t
16f0: 6f 70 2d 74 65 73 74 2d 73 65 74 2d 70 65 72 2d op-test-set-per-
1700: 70 66 2d 63 6f 75 6e 74 73 20 31 20 22 66 6f 6f pf-counts 1 "foo
1710: 22 29 29 0a 28 74 65 73 74 20 23 66 20 27 28 29 ")).(test #f '()
1720: 20 28 72 6d 74 3a 67 65 74 2d 72 61 77 2d 72 75 (rmt:get-raw-ru
1730: 6e 2d 73 74 61 74 73 20 31 29 29 0a 28 74 65 73 n-stats 1)).(tes
1740: 74 20 23 66 20 23 74 20 28 76 65 63 74 6f 72 3f t #f #t (vector?
1750: 20 28 72 6d 74 3a 67 65 74 2d 72 75 6e 2d 69 6e (rmt:get-run-in
1760: 66 6f 20 31 29 29 29 0a 28 74 65 73 74 20 23 66 fo 1))).(test #f
1770: 20 30 20 28 72 6d 74 3a 67 65 74 2d 6e 75 6d 2d 0 (rmt:get-num-
1780: 72 75 6e 73 20 22 25 22 29 29 0a 28 64 65 66 69 runs "%")).(defi
1790: 6e 65 20 6b 65 79 70 61 74 74 73 20 27 28 28 22 ne keypatts '(("
17a0: 53 59 53 54 45 4d 22 20 22 75 62 75 6e 74 75 22 SYSTEM" "ubuntu"
17b0: 29 28 22 52 45 4c 45 41 53 45 22 20 22 76 31 2e )("RELEASE" "v1.
17c0: 32 33 34 22 29 29 20 29 0a 28 74 65 73 74 20 23 234")) ).(test #
17d0: 66 20 31 20 28 72 6d 74 3a 72 65 67 69 73 74 65 f 1 (rmt:registe
17e0: 72 2d 72 75 6e 20 27 28 28 22 53 59 53 54 45 4d r-run '(("SYSTEM
17f0: 22 20 22 75 62 75 6e 74 75 22 29 28 22 52 45 4c " "ubuntu")("REL
1800: 45 41 53 45 22 20 22 76 31 2e 32 33 34 22 29 29 EASE" "v1.234"))
1810: 20 22 62 61 72 22 20 22 4e 45 57 22 20 22 4a 55 "bar" "NEW" "JU
1820: 53 54 46 49 4e 45 22 20 22 62 6f 62 61 66 65 74 STFINE" "bobafet
1830: 74 22 20 22 71 75 69 63 6b 22 29 29 0a 28 74 65 t" "quick")).(te
1840: 73 74 20 23 66 20 22 62 61 72 22 20 28 72 6d 74 st #f "bar" (rmt
1850: 3a 67 65 74 2d 72 75 6e 2d 6e 61 6d 65 2d 66 72 :get-run-name-fr
1860: 6f 6d 2d 69 64 20 31 29 29 0a 28 74 65 73 74 20 om-id 1)).(test
1870: 23 66 20 23 74 20 28 62 65 67 69 6e 20 28 72 6d #f #t (begin (rm
1880: 74 3a 64 65 6c 65 74 65 2d 72 75 6e 20 32 29 20 t:delete-run 2)
1890: 23 74 29 29 20 3b 3b 20 64 65 6c 65 74 65 20 61 #t)) ;; delete a
18a0: 20 6e 6f 6e 2d 65 78 69 73 74 61 6e 74 20 72 75 non-existant ru
18b0: 6e 0a 28 74 65 73 74 20 23 66 20 23 74 20 28 62 n.(test #f #t (b
18c0: 65 67 69 6e 20 28 72 6d 74 3a 75 70 64 61 74 65 egin (rmt:update
18d0: 2d 72 75 6e 2d 73 74 61 74 73 20 31 20 27 28 29 -run-stats 1 '()
18e0: 29 20 23 74 29 29 0a 28 74 65 73 74 20 23 66 20 ) #t)).(test #f
18f0: 23 74 20 28 62 65 67 69 6e 20 28 72 6d 74 3a 64 #t (begin (rmt:d
1900: 65 6c 65 74 65 2d 6f 6c 64 2d 64 65 6c 65 74 65 elete-old-delete
1910: 64 2d 74 65 73 74 2d 72 65 63 6f 72 64 73 29 20 d-test-records)
1920: 23 74 29 29 0a 28 74 65 73 74 20 23 66 20 23 74 #t)).(test #f #t
1930: 20 28 76 65 63 74 6f 72 3f 20 28 72 6d 74 3a 67 (vector? (rmt:g
1940: 65 74 2d 72 75 6e 73 20 22 25 22 20 31 30 20 30 et-runs "%" 10 0
1950: 20 6b 65 79 70 61 74 74 73 29 29 29 0a 28 74 65 keypatts))).(te
1960: 73 74 20 23 66 20 27 28 31 29 28 72 6d 74 3a 67 st #f '(1)(rmt:g
1970: 65 74 2d 61 6c 6c 2d 72 75 6e 2d 69 64 73 29 29 et-all-run-ids))
1980: 0a 28 74 65 73 74 20 23 66 20 27 28 29 28 72 6d .(test #f '()(rm
1990: 74 3a 67 65 74 2d 70 72 65 76 2d 72 75 6e 2d 69 t:get-prev-run-i
19a0: 64 73 20 31 29 29 0a 28 74 65 73 74 20 23 66 20 ds 1)).(test #f
19b0: 23 74 20 28 62 65 67 69 6e 20 28 72 6d 74 3a 6c #t (begin (rmt:l
19c0: 6f 63 6b 2f 75 6e 6c 6f 63 6b 2d 72 75 6e 20 31 ock/unlock-run 1
19d0: 20 23 74 20 23 66 20 22 6d 69 6b 65 79 22 29 20 #t #f "mikey")
19e0: 23 74 29 29 0a 28 74 65 73 74 20 23 66 20 22 4a #t)).(test #f "J
19f0: 55 53 54 46 49 4e 45 22 20 28 72 6d 74 3a 67 65 USTFINE" (rmt:ge
1a00: 74 2d 72 75 6e 2d 73 74 61 74 75 73 20 31 29 29 t-run-status 1))
1a10: 0a 28 74 65 73 74 20 23 66 20 23 74 20 28 62 65 .(test #f #t (be
1a20: 67 69 6e 20 28 72 6d 74 3a 73 65 74 2d 72 75 6e gin (rmt:set-run
1a30: 2d 73 74 61 74 75 73 20 31 20 22 4e 4f 54 46 49 -status 1 "NOTFI
1a40: 4e 45 22 20 6d 73 67 3a 20 22 41 20 6d 65 73 73 NE" msg: "A mess
1a50: 61 67 65 22 29 20 23 74 29 29 0a 28 74 65 73 74 age") #t)).(test
1a60: 20 23 66 20 23 74 20 28 62 65 67 69 6e 20 28 72 #f #t (begin (r
1a70: 6d 74 3a 75 70 64 61 74 65 2d 72 75 6e 2d 65 76 mt:update-run-ev
1a80: 65 6e 74 5f 74 69 6d 65 20 31 29 20 23 74 29 29 ent_time 1) #t))
1a90: 0a 0a 3b 3b 20 28 72 6d 74 3a 67 65 74 2d 72 75 ..;; (rmt:get-ru
1aa0: 6e 73 2d 62 79 2d 70 61 74 74 20 20 6b 65 79 73 ns-by-patt keys
1ab0: 20 72 75 6e 6e 61 6d 65 70 61 74 74 20 74 61 72 runnamepatt tar
1ac0: 67 70 61 74 74 20 6f 66 66 73 65 74 20 6c 69 6d gpatt offset lim
1ad0: 69 74 20 66 69 65 6c 64 73 20 6c 61 73 74 2d 72 it fields last-r
1ae0: 75 6e 73 2d 75 70 64 61 74 65 29 20 3b 3b 20 66 uns-update) ;; f
1af0: 69 65 6c 64 73 20 6f 66 20 23 66 20 75 73 65 73 ields of #f uses
1b00: 20 64 65 66 61 75 6c 74 0a 3b 3b 0a 28 6c 65 74 default.;;.(let
1b10: 20 28 28 6b 65 79 73 20 28 72 6d 74 3a 67 65 74 ((keys (rmt:get
1b20: 2d 6b 65 79 73 29 29 0a 20 20 20 20 20 20 28 72 -keys)). (r
1b30: 6e 70 20 20 22 25 22 29 20 20 20 20 3b 3b 20 72 np "%") ;; r
1b40: 75 6e 20 6e 61 6d 65 20 70 61 74 74 0a 20 20 20 un name patt.
1b50: 20 20 20 28 74 70 74 20 20 22 25 2f 25 22 29 29 (tpt "%/%"))
1b60: 20 3b 3b 20 74 61 72 67 65 74 20 70 61 74 74 0a ;; target patt.
1b70: 20 20 28 74 65 73 74 2d 62 61 74 63 68 20 72 6d (test-batch rm
1b80: 74 3a 67 65 74 2d 72 75 6e 73 2d 62 79 2d 70 61 t:get-runs-by-pa
1b90: 74 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 tt.
1ba0: 20 22 72 6d 74 3a 67 65 74 2d 72 75 6e 73 2d 62 "rmt:get-runs-b
1bb0: 79 2d 70 61 74 74 22 0a 20 20 20 20 20 20 20 20 y-patt".
1bc0: 20 20 20 20 20 20 28 6c 69 73 74 20 28 6c 69 73 (list (lis
1bd0: 74 20 22 74 3d 30 22 20 23 74 20 6b 65 79 73 20 t "t=0" #t keys
1be0: 72 6e 70 20 74 70 74 20 23 66 20 23 66 20 23 66 rnp tpt #f #f #f
1bf0: 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 0).
1c00: 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 22 74 (list "t
1c10: 3d 63 75 72 72 65 6e 74 22 20 23 66 20 6b 65 79 =current" #f key
1c20: 73 20 72 6e 70 20 74 70 74 20 23 66 20 23 66 20 s rnp tpt #f #f
1c30: 23 66 20 28 2b 20 31 30 30 20 28 63 75 72 72 65 #f (+ 100 (curre
1c40: 6e 74 2d 73 65 63 6f 6e 64 73 29 29 29 20 3b 3b nt-seconds))) ;;
1c50: 20 73 68 6f 75 6c 64 20 62 65 20 6e 6f 20 72 65 should be no re
1c60: 63 6f 72 64 73 20 66 72 6f 6d 20 74 68 65 20 66 cords from the f
1c70: 75 74 75 72 65 0a 20 20 20 20 20 20 20 20 20 20 uture.
1c80: 20 20 20 20 20 20 20 20 20 20 29 0a 20 20 20 20 ).
1c90: 20 20 20 20 20 20 20 20 20 20 70 6f 73 74 2d 70 post-p
1ca0: 72 6f 63 3a 20 28 6c 61 6d 62 64 61 20 28 72 65 roc: (lambda (re
1cb0: 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 s).
1cc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b ;;
1cd0: 20 28 70 72 69 6e 74 20 22 72 6d 74 3a 67 65 74 (print "rmt:get
1ce0: 2d 72 75 6e 73 2d 62 79 2d 70 61 74 74 20 72 65 -runs-by-patt re
1cf0: 74 75 72 6e 65 64 3a 20 22 20 72 65 73 29 0a 20 turned: " res).
1d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1d10: 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 (and (
1d20: 76 65 63 74 6f 72 3f 20 72 65 73 29 0a 20 20 20 vector? res).
1d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1d40: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 (le
1d50: 74 20 28 28 72 6f 77 73 20 28 76 65 63 74 6f 72 t ((rows (vector
1d60: 2d 72 65 66 20 72 65 73 20 31 29 29 29 0a 20 20 -ref res 1))).
1d70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1d80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1d90: 28 3e 20 28 6c 65 6e 67 74 68 20 72 6f 77 73 29 (> (length rows)
1da0: 20 30 29 29 29 29 29 29 0a 0a 0a 28 74 65 73 74 0))))))...(test
1db0: 20 23 66 20 27 28 28 22 54 6f 74 61 6c 73 22 20 #f '(("Totals"
1dc0: 22 55 4e 4b 4e 4f 57 4e 22 20 31 29 20 28 22 62 "UNKNOWN" 1) ("b
1dd0: 61 72 22 20 22 55 4e 4b 4e 4f 57 4e 22 20 31 29 ar" "UNKNOWN" 1)
1de0: 29 20 28 62 65 67 69 6e 20 28 72 6d 74 3a 67 65 ) (begin (rmt:ge
1df0: 74 2d 72 75 6e 2d 73 74 61 74 73 29 29 29 0a 28 t-run-stats))).(
1e00: 74 65 73 74 20 23 66 20 23 74 20 28 62 65 67 69 test #f #t (begi
1e10: 6e 20 28 72 6d 74 3a 73 65 74 2d 72 75 6e 2d 73 n (rmt:set-run-s
1e20: 74 61 74 65 2d 73 74 61 74 75 73 20 31 20 22 43 tate-status 1 "C
1e30: 4f 4d 50 4c 45 54 45 22 20 22 50 41 53 53 22 29 OMPLETE" "PASS")
1e40: 20 23 74 29 29 0a 28 74 65 73 74 20 23 66 20 27 #t)).(test #f '
1e50: 22 43 4f 4d 50 4c 45 54 45 22 20 28 72 6d 74 3a "COMPLETE" (rmt:
1e60: 67 65 74 2d 72 75 6e 2d 73 74 61 74 65 20 31 29 get-run-state 1)
1e70: 29 0a 28 74 65 73 74 20 23 66 20 27 22 50 41 53 ).(test #f '"PAS
1e80: 53 22 20 28 72 6d 74 3a 67 65 74 2d 72 75 6e 2d S" (rmt:get-run-
1e90: 73 74 61 74 75 73 20 31 29 29 0a 28 74 65 73 74 status 1)).(test
1ea0: 20 23 66 20 23 74 20 28 62 65 67 69 6e 20 28 72 #f #t (begin (r
1eb0: 6d 74 3a 73 65 74 2d 76 61 72 20 22 66 6f 6f 22 mt:set-var "foo"
1ec0: 20 22 62 61 72 22 29 23 74 29 29 0a 28 74 65 73 "bar")#t)).(tes
1ed0: 74 20 23 66 20 22 62 61 72 22 20 28 72 6d 74 3a t #f "bar" (rmt:
1ee0: 67 65 74 2d 76 61 72 20 22 66 6f 6f 22 29 29 0a get-var "foo")).
1ef0: 28 74 65 73 74 20 23 66 20 23 74 20 28 62 65 67 (test #f #t (beg
1f00: 69 6e 20 28 72 6d 74 3a 70 72 69 6e 74 2d 64 62 in (rmt:print-db
1f10: 2d 73 74 61 74 73 29 20 23 74 29 29 0a 28 74 65 -stats) #t)).(te
1f20: 73 74 20 23 66 20 23 74 20 28 62 65 67 69 6e 20 st #f #t (begin
1f30: 28 72 6d 74 3a 64 65 6c 2d 76 61 72 20 22 66 6f (rmt:del-var "fo
1f40: 6f 22 29 20 23 74 29 29 0a 28 74 65 73 74 20 23 o") #t)).(test #
1f50: 66 20 23 66 20 28 72 6d 74 3a 67 65 74 2d 76 61 f #f (rmt:get-va
1f60: 72 20 22 66 6f 6f 22 29 29 0a 28 74 65 73 74 20 r "foo")).(test
1f70: 23 66 20 28 76 65 63 74 6f 72 20 23 66 20 23 66 #f (vector #f #f
1f80: 20 23 66 20 23 66 20 23 66 20 23 66 20 23 66 20 #f #f #f #f #f
1f90: 23 66 20 23 66 20 23 66 20 23 66 20 23 66 29 20 #f #f #f #f #f)
1fa0: 28 72 6d 74 3a 67 65 74 2d 64 61 74 61 2d 69 6e (rmt:get-data-in
1fb0: 66 6f 2d 62 79 2d 69 64 20 31 29 29 0a 28 74 65 fo-by-id 1)).(te
1fc0: 73 74 20 23 66 20 27 28 29 20 28 72 6d 74 3a 67 st #f '() (rmt:g
1fd0: 65 74 2d 6b 65 79 2d 76 61 6c 73 20 31 29 29 0a et-key-vals 1)).
1fe0: 28 74 65 73 74 20 23 66 20 22 75 62 75 6e 74 75 (test #f "ubuntu
1ff0: 2f 76 31 2e 32 33 34 22 20 28 72 6d 74 3a 67 65 /v1.234" (rmt:ge
2000: 74 2d 74 61 72 67 65 74 20 31 29 29 0a 28 70 72 t-target 1)).(pr
2010: 69 6e 74 20 28 72 6d 74 3a 67 65 74 2d 72 75 6e int (rmt:get-run
2020: 2d 69 6e 66 6f 20 31 29 29 0a 28 74 65 73 74 20 -info 1)).(test
2030: 23 66 20 27 28 28 72 75 6e 73 29 20 28 74 65 73 #f '((runs) (tes
2040: 74 73 29 20 28 74 65 73 74 5f 73 74 65 70 73 29 ts) (test_steps)
2050: 20 28 74 65 73 74 5f 64 61 74 61 29 29 20 28 72 (test_data)) (r
2060: 6d 74 3a 67 65 74 2d 72 75 6e 2d 72 65 63 6f 72 mt:get-run-recor
2070: 64 2d 69 64 73 20 22 75 62 75 6e 74 75 2f 76 31 d-ids "ubuntu/v1
2080: 2e 32 33 34 22 20 31 20 27 28 22 66 61 69 6c 5f .234" 1 '("fail_
2090: 63 6f 75 6e 74 22 29 20 22 62 61 72 22 29 29 0a count") "bar")).
20a0: 3b 3b 20 28 72 6d 74 3a 66 69 6e 64 2d 61 6e 64 ;; (rmt:find-and
20b0: 2d 6d 61 72 6b 2d 69 6e 63 6f 6d 70 6c 65 74 65 -mark-incomplete
20c0: 20 72 75 6e 2d 69 64 20 6f 76 72 2d 64 65 61 64 run-id ovr-dead
20d0: 74 69 6d 65 29 0a 3b 3b 20 28 72 6d 74 3a 67 65 time).;; (rmt:ge
20e0: 74 2d 6d 61 69 6e 2d 72 75 6e 2d 73 74 61 74 73 t-main-run-stats
20f0: 20 72 75 6e 2d 69 64 29 0a 3b 3b 20 28 72 6d 74 run-id).;; (rmt
2100: 3a 67 65 74 2d 76 61 72 20 76 61 72 6e 61 6d 65 :get-var varname
2110: 29 0a 3b 3b 20 28 72 6d 74 3a 73 65 74 2d 76 61 ).;; (rmt:set-va
2120: 72 20 76 61 72 6e 61 6d 65 20 76 61 6c 75 65 29 r varname value)
2130: 0a 3b 3b 20 28 72 6d 74 3a 66 69 6e 64 2d 61 6e .;; (rmt:find-an
2140: 64 2d 6d 61 72 6b 2d 69 6e 63 6f 6d 70 6c 65 74 d-mark-incomplet
2150: 65 2d 61 6c 6c 2d 72 75 6e 73 20 23 21 6b 65 79 e-all-runs #!key
2160: 20 28 6f 76 72 2d 64 65 61 64 74 69 6d 65 20 23 (ovr-deadtime #
2170: 66 29 29 0a 3b 3b 20 28 72 6d 74 3a 67 65 74 2d f)).;; (rmt:get-
2180: 70 72 65 76 69 6f 75 73 2d 74 65 73 74 2d 72 75 previous-test-ru
2190: 6e 2d 72 65 63 6f 72 64 20 72 75 6e 2d 69 64 20 n-record run-id
21a0: 74 65 73 74 2d 6e 61 6d 65 20 69 74 65 6d 2d 70 test-name item-p
21b0: 61 74 68 29 0a 3b 3b 20 28 72 6d 74 3a 67 65 74 ath).;; (rmt:get
21c0: 2d 72 75 6e 2d 73 74 61 74 73 29 0a 3b 3b 20 28 -run-stats).;; (
21d0: 72 6d 74 3a 74 65 73 74 73 74 65 70 2d 73 65 74 rmt:teststep-set
21e0: 2d 73 74 61 74 75 73 21 20 72 75 6e 2d 69 64 20 -status! run-id
21f0: 74 65 73 74 2d 69 64 20 74 65 73 74 73 74 65 70 test-id teststep
2200: 2d 6e 61 6d 65 20 73 74 61 74 65 2d 69 6e 20 73 -name state-in s
2210: 74 61 74 75 73 2d 69 6e 20 63 6f 6d 6d 65 6e 74 tatus-in comment
2220: 20 6c 6f 67 66 69 6c 65 29 0a 3b 3b 20 28 72 6d logfile).;; (rm
2230: 74 3a 67 65 74 2d 73 74 65 70 73 2d 66 6f 72 2d t:get-steps-for-
2240: 74 65 73 74 20 72 75 6e 2d 69 64 20 74 65 73 74 test run-id test
2250: 2d 69 64 29 0a 3b 3b 20 28 72 6d 74 3a 72 65 61 -id).;; (rmt:rea
2260: 64 2d 74 65 73 74 2d 64 61 74 61 20 72 75 6e 2d d-test-data run-
2270: 69 64 20 74 65 73 74 2d 69 64 20 63 61 74 65 67 id test-id categ
2280: 6f 72 79 70 61 74 74 20 23 21 6b 65 79 20 28 77 orypatt #!key (w
2290: 6f 72 6b 2d 61 72 65 61 20 23 66 29 29 20 0a 3b ork-area #f)) .;
22a0: 3b 20 28 72 6d 74 3a 74 65 73 74 6d 65 74 61 2d ; (rmt:testmeta-
22b0: 61 64 64 2d 72 65 63 6f 72 64 20 74 65 73 74 6e add-record testn
22c0: 61 6d 65 29 0a 3b 3b 20 28 72 6d 74 3a 74 65 73 ame).;; (rmt:tes
22d0: 74 6d 65 74 61 2d 67 65 74 2d 72 65 63 6f 72 64 tmeta-get-record
22e0: 20 74 65 73 74 6e 61 6d 65 29 0a 3b 3b 20 28 72 testname).;; (r
22f0: 6d 74 3a 74 65 73 74 6d 65 74 61 2d 75 70 64 61 mt:testmeta-upda
2300: 74 65 2d 66 69 65 6c 64 20 74 65 73 74 2d 6e 61 te-field test-na
2310: 6d 65 20 66 6c 64 20 76 61 6c 29 0a 3b 3b 20 28 me fld val).;; (
2320: 72 6d 74 3a 74 65 73 74 2d 64 61 74 61 2d 72 6f rmt:test-data-ro
2330: 6c 6c 75 70 20 72 75 6e 2d 69 64 20 74 65 73 74 llup run-id test
2340: 2d 69 64 20 73 74 61 74 75 73 29 0a 3b 3b 20 28 -id status).;; (
2350: 72 6d 74 3a 63 73 76 2d 3e 74 65 73 74 2d 64 61 rmt:csv->test-da
2360: 74 61 20 72 75 6e 2d 69 64 20 74 65 73 74 2d 69 ta run-id test-i
2370: 64 20 63 73 76 64 61 74 61 29 0a 3b 3b 20 28 72 d csvdata).;; (r
2380: 6d 74 3a 74 61 73 6b 73 2d 66 69 6e 64 2d 74 61 mt:tasks-find-ta
2390: 73 6b 2d 71 75 65 75 65 2d 72 65 63 6f 72 64 73 sk-queue-records
23a0: 20 74 61 72 67 65 74 20 72 75 6e 2d 6e 61 6d 65 target run-name
23b0: 20 74 65 73 74 2d 70 61 74 74 20 73 74 61 74 65 test-patt state
23c0: 2d 70 61 74 74 20 61 63 74 69 6f 6e 2d 70 61 74 -patt action-pat
23d0: 74 29 0a 3b 3b 20 28 72 6d 74 3a 74 61 73 6b 73 t).;; (rmt:tasks
23e0: 2d 61 64 64 20 61 63 74 69 6f 6e 20 6f 77 6e 65 -add action owne
23f0: 72 20 74 61 72 67 65 74 20 72 75 6e 6e 61 6d 65 r target runname
2400: 20 74 65 73 74 70 61 74 74 20 70 61 72 61 6d 73 testpatt params
2410: 29 0a 3b 3b 20 28 72 6d 74 3a 74 61 73 6b 73 2d ).;; (rmt:tasks-
2420: 73 65 74 2d 73 74 61 74 65 2d 67 69 76 65 6e 2d set-state-given-
2430: 70 61 72 61 6d 2d 6b 65 79 20 70 61 72 61 6d 2d param-key param-
2440: 6b 65 79 20 6e 65 77 2d 73 74 61 74 65 29 0a 3b key new-state).;
2450: 3b 20 28 72 6d 74 3a 74 61 73 6b 73 2d 67 65 74 ; (rmt:tasks-get
2460: 2d 6c 61 73 74 20 74 61 72 67 65 74 20 72 75 6e -last target run
2470: 6e 61 6d 65 29 0a 3b 3b 20 28 72 6d 74 3a 61 72 name).;; (rmt:ar
2480: 63 68 69 76 65 2d 67 65 74 2d 61 6c 6c 6f 63 61 chive-get-alloca
2490: 74 69 6f 6e 73 20 20 74 65 73 74 6e 61 6d 65 20 tions testname
24a0: 69 74 65 6d 70 61 74 68 20 64 6e 65 65 64 65 64 itempath dneeded
24b0: 29 0a 3b 3b 20 28 72 6d 74 3a 61 72 63 68 69 76 ).;; (rmt:archiv
24c0: 65 2d 72 65 67 69 73 74 65 72 2d 62 6c 6f 63 6b e-register-block
24d0: 2d 6e 61 6d 65 20 62 64 69 73 6b 2d 69 64 20 61 -name bdisk-id a
24e0: 72 63 68 69 76 65 2d 70 61 74 68 29 0a 3b 3b 20 rchive-path).;;
24f0: 28 72 6d 74 3a 61 72 63 68 69 76 65 2d 61 6c 6c (rmt:archive-all
2500: 6f 63 61 74 65 2d 74 65 73 74 73 75 69 74 65 2f ocate-testsuite/
2510: 61 72 65 61 2d 74 6f 2d 62 6c 6f 63 6b 20 62 6c area-to-block bl
2520: 6f 63 6b 2d 69 64 20 74 65 73 74 73 75 69 74 65 ock-id testsuite
2530: 2d 6e 61 6d 65 20 61 72 65 61 6b 65 79 29 0a 3b -name areakey).;
2540: 3b 20 28 72 6d 74 3a 61 72 63 68 69 76 65 2d 72 ; (rmt:archive-r
2550: 65 67 69 73 74 65 72 2d 64 69 73 6b 20 62 64 69 egister-disk bdi
2560: 73 6b 2d 6e 61 6d 65 20 62 64 69 73 6b 2d 70 61 sk-name bdisk-pa
2570: 74 68 20 64 66 29 0a 3b 3b 20 28 72 6d 74 3a 74 th df).;; (rmt:t
2580: 65 73 74 2d 73 65 74 2d 61 72 63 68 69 76 65 2d est-set-archive-
2590: 62 6c 6f 63 6b 2d 69 64 20 72 75 6e 2d 69 64 20 block-id run-id
25a0: 74 65 73 74 2d 69 64 20 61 72 63 68 69 76 65 2d test-id archive-
25b0: 62 6c 6f 63 6b 2d 69 64 29 0a 3b 3b 20 28 72 6d block-id).;; (rm
25c0: 74 3a 74 65 73 74 2d 67 65 74 2d 61 72 63 68 69 t:test-get-archi
25d0: 76 65 2d 62 6c 6f 63 6b 2d 69 6e 66 6f 20 61 72 ve-block-info ar
25e0: 63 68 69 76 65 2d 62 6c 6f 63 6b 2d 69 64 29 0a chive-block-id).
25f0: 3b 3b 20 4e 45 44 20 28 72 6d 74 3a 6f 70 65 6e ;; NED (rmt:open
2600: 2d 71 72 79 2d 63 6c 6f 73 65 2d 6c 6f 63 61 6c -qry-close-local
2610: 6c 79 20 63 6d 64 20 72 75 6e 2d 69 64 20 70 61 ly cmd run-id pa
2620: 72 61 6d 73 20 23 21 6b 65 79 20 28 72 65 6d 72 rams #!key (remr
2630: 65 74 72 69 65 73 20 35 29 29 0a 3b 3b 20 4e 45 etries 5)).;; NE
2640: 44 20 28 72 6d 74 3a 73 65 6e 64 2d 72 65 63 65 D (rmt:send-rece
2650: 69 76 65 20 63 6d 64 20 72 69 64 20 70 61 72 61 ive cmd rid para
2660: 6d 73 20 23 21 6b 65 79 20 28 61 74 74 65 6d 70 ms #!key (attemp
2670: 74 6e 75 6d 20 31 29 28 61 72 65 61 2d 64 61 74 tnum 1)(area-dat
2680: 20 23 66 29 29 20 3b 3b 20 73 74 61 72 74 20 61 #f)) ;; start a
2690: 74 74 65 6d 70 74 6e 75 6d 20 61 74 20 31 20 73 ttemptnum at 1 s
26a0: 6f 20 74 68 65 20 6d 6f 64 75 6c 6f 20 62 65 6c o the modulo bel
26b0: 6f 77 20 77 6f 72 6b 73 20 61 73 20 65 78 70 65 ow works as expe
26c0: 63 74 65 64 0a 3b 3b 20 44 45 46 20 28 74 65 73 cted.;; DEF (tes
26d0: 74 20 23 66 20 23 66 20 28 72 6d 74 3a 70 72 69 t #f #f (rmt:pri
26e0: 6e 74 2d 64 62 2d 73 74 61 74 73 29 29 0a 3b 3b nt-db-stats)).;;
26f0: 20 44 45 46 20 28 72 6d 74 3a 67 65 74 2d 6d 61 DEF (rmt:get-ma
2700: 78 2d 71 75 65 72 79 2d 61 76 65 72 61 67 65 20 x-query-average
2710: 72 75 6e 2d 69 64 29 0a 3b 3b 20 4e 45 44 20 28 run-id).;; NED (
2720: 72 6d 74 3a 67 65 6e 65 72 61 6c 2d 63 61 6c 6c rmt:general-call
2730: 20 73 74 6d 74 6e 61 6d 65 20 72 75 6e 2d 69 64 stmtname run-id
2740: 20 2e 20 70 61 72 61 6d 73 29 0a 3b 3b 20 44 45 . params).;; DE
2750: 50 20 28 72 6d 74 3a 73 64 62 2d 71 72 79 20 71 P (rmt:sdb-qry q
2760: 72 79 20 76 61 6c 20 72 75 6e 2d 69 64 29 0a 3b ry val run-id).;
2770: 3b 20 44 45 46 20 28 72 6d 74 3a 72 75 6e 74 65 ; DEF (rmt:runte
2780: 73 74 73 20 75 73 65 72 20 72 75 6e 2d 69 64 20 sts user run-id
2790: 74 65 73 74 70 61 74 74 20 70 61 72 61 6d 73 29 testpatt params)
27a0: 0a 3b 3b 20 44 45 50 20 28 72 6d 74 3a 6f 70 65 .;; DEP (rmt:ope
27b0: 6e 2d 74 65 73 74 2d 64 62 2d 62 79 2d 74 65 73 n-test-db-by-tes
27c0: 74 2d 69 64 20 72 75 6e 2d 69 64 20 74 65 73 74 t-id run-id test
27d0: 2d 69 64 20 23 21 6b 65 79 20 28 77 6f 72 6b 2d -id #!key (work-
27e0: 61 72 65 61 20 23 66 29 29 0a 3b 3b 20 44 45 50 area #f)).;; DEP
27f0: 20 28 72 6d 74 3a 73 79 6e 63 68 61 73 68 2d 67 (rmt:synchash-g
2800: 65 74 20 72 75 6e 2d 69 64 20 70 72 6f 63 20 73 et run-id proc s
2810: 79 6e 63 6b 65 79 20 6b 65 79 6e 75 6d 20 70 61 ynckey keynum pa
2820: 72 61 6d 73 29 0a 3b 3b 20 44 45 50 20 28 74 65 rams).;; DEP (te
2830: 73 74 20 23 66 20 23 66 20 28 72 6d 74 3a 75 70 st #f #f (rmt:up
2840: 64 61 74 65 2d 70 61 73 73 2d 66 61 69 6c 2d 63 date-pass-fail-c
2850: 6f 75 6e 74 73 20 31 20 22 66 6f 6f 22 29 29 0a ounts 1 "foo")).