Megatest

Hex Artifact Content
Login

Artifact edca99e35ea22969bf14fa7281959823a64efaa9:


0000: 23 20 41 64 64 20 61 64 64 69 74 69 6f 6e 61 6c  # Add additional
0010: 20 73 74 65 70 73 20 68 65 72 65 2e 20 46 6f 72   steps here. For
0020: 6d 61 74 20 69 73 20 22 73 74 65 70 6e 61 6d 65  mat is "stepname
0030: 20 73 63 72 69 70 74 22 0a 5b 76 61 72 73 5d 0a   script".[vars].
0040: 73 74 65 70 31 76 61 72 20 73 74 65 70 31 2e 73  step1var step1.s
0050: 68 0a 0a 5b 65 7a 73 74 65 70 73 5d 0a 73 74 65  h..[ezsteps].ste
0060: 70 31 20 23 7b 67 65 74 20 76 61 72 73 20 73 74  p1 #{get vars st
0070: 65 70 31 76 61 72 7d 0a 0a 23 20 54 65 73 74 20  ep1var}..# Test 
0080: 72 65 71 75 69 72 65 6d 65 6e 74 73 20 61 72 65  requirements are
0090: 20 73 70 65 63 69 66 69 65 64 20 68 65 72 65 0a   specified here.
00a0: 5b 72 65 71 75 69 72 65 6d 65 6e 74 73 5d 0a 23  [requirements].#
00b0: 20 77 61 69 74 6f 6e 20 73 65 74 75 70 0a 70 72   waiton setup.pr
00c0: 69 6f 72 69 74 79 20 30 0a 0a 23 20 49 74 65 72  iority 0..# Iter
00d0: 61 74 69 6f 6e 20 66 6f 72 20 79 6f 75 72 20 74  ation for your t
00e0: 65 73 74 73 20 61 72 65 20 63 6f 6e 74 72 6f 6c  ests are control
00f0: 6c 65 64 20 62 79 20 74 68 65 20 69 74 65 6d 73  led by the items
0100: 20 73 65 63 74 69 6f 6e 0a 5b 69 74 65 6d 73 5d   section.[items]
0110: 0a 4e 55 4d 42 45 52 20 23 7b 73 63 68 65 6d 65  .NUMBER #{scheme
0120: 20 28 73 74 72 69 6e 67 2d 69 6e 74 65 72 73 70   (string-intersp
0130: 65 72 73 65 20 28 6d 61 70 20 6e 75 6d 62 65 72  erse (map number
0140: 2d 3e 73 74 72 69 6e 67 20 28 73 6f 72 74 20 28  ->string (sort (
0150: 6c 65 74 20 6c 6f 6f 70 20 28 28 61 20 30 29 28  let loop ((a 0)(
0160: 72 65 73 20 27 28 29 29 29 28 69 66 20 28 3c 3d  res '()))(if (<=
0170: 20 61 20 28 6f 72 20 28 61 6e 79 2d 3e 6e 75 6d   a (or (any->num
0180: 62 65 72 20 28 67 65 74 2d 65 6e 76 69 72 6f 6e  ber (get-environ
0190: 6d 65 6e 74 2d 76 61 72 69 61 62 6c 65 20 22 4e  ment-variable "N
01a0: 55 4d 54 45 53 54 53 22 29 29 20 32 35 30 30 29  UMTESTS")) 2500)
01b0: 29 28 6c 6f 6f 70 20 28 2b 20 61 20 31 29 28 63  )(loop (+ a 1)(c
01c0: 6f 6e 73 20 61 20 72 65 73 29 29 20 72 65 73 29  ons a res)) res)
01d0: 29 20 3c 29 29 20 22 20 22 29 7d 0a 0a 23 20 74  ) <)) " ")}..# t
01e0: 65 73 74 5f 6d 65 74 61 20 69 73 20 61 20 73 65  est_meta is a se
01f0: 63 74 69 6f 6e 20 66 6f 72 20 73 74 6f 72 69 6e  ction for storin
0200: 67 20 61 64 64 69 74 69 6f 6e 61 6c 20 64 61 74  g additional dat
0210: 61 20 6f 6e 20 79 6f 75 72 20 74 65 73 74 0a 5b  a on your test.[
0220: 74 65 73 74 5f 6d 65 74 61 5d 0a 61 75 74 68 6f  test_meta].autho
0230: 72 20 6d 61 74 74 0a 6f 77 6e 65 72 20 20 6d 61  r matt.owner  ma
0240: 74 74 0a 64 65 73 63 72 69 70 74 69 6f 6e 20 41  tt.description A
0250: 6e 20 65 78 61 6d 70 6c 65 20 74 65 73 74 0a 74  n example test.t
0260: 61 67 73 20 74 61 67 6f 6e 65 2c 74 61 67 74 77  ags tagone,tagtw
0270: 6f 0a 72 65 76 69 65 77 65 64 20 6e 65 76 65 72  o.reviewed never
0280: 0a                                               .