Artifact
311e4428aeb7921e3c5fc675b317c7d7e8767c0e22edc721592a28b34b52a520:
0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20 74 #!/usr/bin/env t
0010: 63 6c 73 68 0a 23 0a 23 20 4e 61 6d 65 3a 09 09 clsh.#.# Name:..
0020: 4d 61 6b 65 20 54 65 73 74 20 46 69 6c 65 73 20 Make Test Files
0030: 46 72 6f 6d 20 43 53 56 20 46 69 6c 65 73 0a 23 From CSV Files.#
0040: 20 56 65 72 73 69 6f 6e 3a 09 30 2e 33 0a 23 20 Version:.0.3.#
0050: 44 61 74 65 3a 09 09 4d 61 72 63 68 20 39 2c 20 Date:..March 9,
0060: 32 30 32 34 0a 23 20 41 75 74 68 6f 72 3a 09 42 2024.# Author:.B
0070: 72 69 61 6e 20 4f 27 48 61 67 61 6e 0a 23 20 45 rian O'Hagan.# E
0080: 6d 61 69 6c 3a 09 62 72 69 61 6e 31 39 39 40 63 mail:.brian199@c
0090: 6f 6d 63 61 73 74 2e 6e 65 74 0a 23 20 4c 65 67 omcast.net.# Leg
00a0: 61 6c 20 4e 6f 74 69 63 65 3a 09 28 63 29 20 43 al Notice:.(c) C
00b0: 6f 70 79 72 69 67 68 74 20 32 30 32 30 20 62 79 opyright 2020 by
00c0: 20 42 72 69 61 6e 20 4f 27 48 61 67 61 6e 0a 23 Brian O'Hagan.#
00d0: 09 09 52 65 6c 65 61 73 65 64 20 75 6e 64 65 72 ..Released under
00e0: 20 74 68 65 20 41 70 61 63 68 65 20 76 32 2e 30 the Apache v2.0
00f0: 20 6c 69 63 65 6e 73 65 2e 20 49 20 77 6f 75 6c license. I woul
0100: 64 20 61 70 70 72 65 63 69 61 74 65 20 61 20 63 d appreciate a c
0110: 6f 70 79 20 6f 66 20 61 6e 79 20 6d 6f 64 69 66 opy of any modif
0120: 69 63 61 74 69 6f 6e 73 0a 23 09 09 6d 61 64 65 ications.#..made
0130: 20 74 6f 20 74 68 69 73 20 70 61 63 6b 61 67 65 to this package
0140: 20 66 6f 72 20 70 6f 73 73 69 62 6c 65 20 69 6e for possible in
0150: 63 6f 72 70 6f 72 61 74 69 6f 6e 20 69 6e 20 61 corporation in a
0160: 20 66 75 74 75 72 65 20 72 65 6c 65 61 73 65 2e future release.
0170: 0a 23 0a 0a 23 0a 23 20 50 61 72 73 65 20 43 53 .#..#.# Parse CS
0180: 56 20 6c 69 6e 65 0a 23 0a 70 72 6f 63 20 70 61 V line.#.proc pa
0190: 72 73 65 5f 63 73 76 20 7b 63 68 20 64 61 74 61 rse_csv {ch data
01a0: 7d 20 7b 0a 20 20 20 20 73 65 74 20 62 75 66 66 } {. set buff
01b0: 65 72 20 22 22 0a 20 20 20 20 73 65 74 20 72 65 er "". set re
01c0: 73 75 6c 74 20 5b 6c 69 73 74 5d 0a 20 20 20 20 sult [list].
01d0: 73 65 74 20 73 74 61 72 74 20 30 0a 20 20 20 20 set start 0.
01e0: 73 65 74 20 65 6e 64 20 5b 73 74 72 69 6e 67 20 set end [string
01f0: 6c 65 6e 67 74 68 20 24 64 61 74 61 5d 0a 0a 20 length $data]..
0200: 20 20 20 77 68 69 6c 65 20 7b 24 73 74 61 72 74 while {$start
0210: 20 3c 20 24 65 6e 64 7d 20 7b 0a 09 69 66 20 7b < $end} {..if {
0220: 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 64 [string index $d
0230: 61 74 61 20 24 73 74 61 72 74 5d 20 65 71 20 22 ata $start] eq "
0240: 5c 22 22 7d 20 7b 0a 09 20 20 20 20 23 20 51 75 \""} {.. # Qu
0250: 6f 74 65 64 0a 09 20 20 20 20 69 66 20 7b 5b 73 oted.. if {[s
0260: 65 74 20 69 6e 64 65 78 20 5b 73 74 72 69 6e 67 et index [string
0270: 20 66 69 72 73 74 20 22 5c 22 22 20 24 64 61 74 first "\"" $dat
0280: 61 20 5b 69 6e 63 72 20 73 74 61 72 74 5d 5d 5d a [incr start]]]
0290: 20 3e 20 2d 31 7d 20 7b 0a 09 09 73 65 74 20 6e > -1} {...set n
02a0: 65 78 74 20 5b 73 74 72 69 6e 67 20 69 6e 64 65 ext [string inde
02b0: 78 20 24 64 61 74 61 20 5b 65 78 70 72 20 7b 24 x $data [expr {$
02c0: 69 6e 64 65 78 20 2b 20 31 7d 5d 5d 0a 09 09 69 index + 1}]]...i
02d0: 66 20 7b 24 6e 65 78 74 20 65 71 20 22 5c 22 22 f {$next eq "\""
02e0: 7d 20 7b 0a 09 09 20 20 20 20 23 20 51 75 6f 74 } {... # Quot
02f0: 65 0a 09 09 20 20 20 20 61 70 70 65 6e 64 20 62 e... append b
0300: 75 66 66 65 72 20 5b 73 74 72 69 6e 67 20 72 61 uffer [string ra
0310: 6e 67 65 20 24 64 61 74 61 20 24 73 74 61 72 74 nge $data $start
0320: 20 24 69 6e 64 65 78 5d 0a 09 09 20 20 20 20 73 $index]... s
0330: 65 74 20 73 74 61 72 74 20 5b 69 6e 63 72 20 69 et start [incr i
0340: 6e 64 65 78 5d 0a 0a 09 09 7d 20 65 6c 73 65 20 ndex]....} else
0350: 7b 0a 09 09 20 20 20 20 23 20 45 6e 64 20 6f 66 {... # End of
0360: 20 71 75 6f 74 65 64 20 64 61 74 61 0a 09 09 20 quoted data...
0370: 20 20 20 61 70 70 65 6e 64 20 62 75 66 66 65 72 append buffer
0380: 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 [string range $
0390: 64 61 74 61 20 24 73 74 61 72 74 20 5b 69 6e 63 data $start [inc
03a0: 72 20 69 6e 64 65 78 20 2d 31 5d 5d 0a 09 09 20 r index -1]]...
03b0: 20 20 20 73 65 74 20 73 74 61 72 74 20 5b 69 6e set start [in
03c0: 63 72 20 69 6e 64 65 78 20 33 5d 0a 09 09 20 20 cr index 3]...
03d0: 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 lappend result
03e0: 20 24 62 75 66 66 65 72 0a 09 09 20 20 20 20 73 $buffer... s
03f0: 65 74 20 62 75 66 66 65 72 20 22 22 0a 09 09 7d et buffer ""...}
0400: 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ... } else {.
0410: 09 09 23 20 4d 75 6c 74 69 2d 6c 69 6e 65 0a 09 ..# Multi-line..
0420: 09 61 70 70 65 6e 64 20 62 75 66 66 65 72 20 5b .append buffer [
0430: 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 64 61 string range $da
0440: 74 61 20 24 73 74 61 72 74 20 65 6e 64 5d 20 22 ta $start end] "
0450: 5c 6e 22 0a 09 09 67 65 74 73 20 24 63 68 20 6e \n"...gets $ch n
0460: 65 77 0a 09 09 73 65 74 20 64 61 74 61 20 22 5c ew...set data "\
0470: 22 22 0a 09 09 61 70 70 65 6e 64 20 64 61 74 61 ""...append data
0480: 20 24 6e 65 77 0a 09 09 73 65 74 20 73 74 61 72 $new...set star
0490: 74 20 30 0a 09 09 73 65 74 20 65 6e 64 20 5b 73 t 0...set end [s
04a0: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 64 61 tring length $da
04b0: 74 61 5d 0a 09 20 20 20 20 7d 0a 0a 09 7d 20 65 ta].. }...} e
04c0: 6c 73 65 20 7b 0a 09 20 20 20 20 23 20 4e 6f 74 lse {.. # Not
04d0: 20 71 75 6f 74 65 64 2c 20 73 6f 20 6e 6f 20 65 quoted, so no e
04e0: 6d 62 65 64 64 65 64 20 4e 4c 2c 20 71 75 6f 74 mbedded NL, quot
04f0: 65 73 2c 20 6f 72 20 63 6f 6d 6d 61 73 0a 09 20 es, or commas..
0500: 20 20 20 73 65 74 20 69 6e 64 65 78 20 5b 73 74 set index [st
0510: 72 69 6e 67 20 66 69 72 73 74 20 22 2c 22 20 24 ring first "," $
0520: 64 61 74 61 20 24 73 74 61 72 74 5d 0a 09 20 20 data $start]..
0530: 20 20 69 66 20 7b 24 69 6e 64 65 78 20 3e 20 2d if {$index > -
0540: 31 7d 20 7b 0a 09 09 6c 61 70 70 65 6e 64 20 72 1} {...lappend r
0550: 65 73 75 6c 74 20 5b 73 74 72 69 6e 67 20 72 61 esult [string ra
0560: 6e 67 65 20 24 64 61 74 61 20 24 73 74 61 72 74 nge $data $start
0570: 20 5b 69 6e 63 72 20 69 6e 64 65 78 20 2d 31 5d [incr index -1]
0580: 5d 0a 09 09 73 65 74 20 73 74 61 72 74 20 5b 69 ]...set start [i
0590: 6e 63 72 20 69 6e 64 65 78 20 32 5d 0a 09 20 20 ncr index 2]..
05a0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 6c 61 70 } else {...lap
05b0: 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 73 74 72 pend result [str
05c0: 69 6e 67 20 72 61 6e 67 65 20 24 64 61 74 61 20 ing range $data
05d0: 24 73 74 61 72 74 20 65 6e 64 5d 0a 09 09 73 65 $start end]...se
05e0: 74 20 73 74 61 72 74 20 5b 73 74 72 69 6e 67 20 t start [string
05f0: 6c 65 6e 67 74 68 20 24 64 61 74 61 5d 0a 09 20 length $data]..
0600: 20 20 20 7d 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 }..}. }.
0610: 20 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 return $result
0620: 0a 7d 0a 0a 23 0a 23 20 43 6f 6e 76 65 72 74 20 .}..#.# Convert
0630: 74 65 73 74 20 63 61 73 65 20 66 69 6c 65 20 69 test case file i
0640: 6e 74 6f 20 74 65 73 74 20 66 69 6c 65 73 0a 23 nto test files.#
0650: 0a 70 72 6f 63 20 70 72 6f 63 65 73 73 5f 63 6f .proc process_co
0660: 6e 66 69 67 5f 66 69 6c 65 20 7b 66 69 6c 65 6e nfig_file {filen
0670: 61 6d 65 7d 20 7b 0a 20 20 20 20 73 65 74 20 70 ame} {. set p
0680: 72 65 76 20 22 22 0a 20 20 20 20 73 65 74 20 74 rev "". set t
0690: 65 73 74 20 30 0a 0a 20 20 20 20 23 20 4f 70 65 est 0.. # Ope
06a0: 6e 20 66 69 6c 65 20 77 69 74 68 20 74 65 73 74 n file with test
06b0: 20 63 61 73 65 20 69 6e 64 6f 0a 20 20 20 20 73 case indo. s
06c0: 65 74 20 69 6e 20 5b 6f 70 65 6e 20 24 66 69 6c et in [open $fil
06d0: 65 6e 61 6d 65 20 72 5d 0a 20 20 20 20 61 72 72 ename r]. arr
06e0: 61 79 20 73 65 74 20 63 61 73 65 73 20 5b 6c 69 ay set cases [li
06f0: 73 74 5d 0a 0a 20 20 20 20 23 20 4f 70 65 6e 20 st].. # Open
0700: 6f 75 74 70 75 74 20 74 65 73 74 20 66 69 6c 65 output test file
0710: 0a 20 20 20 20 73 65 74 20 6f 75 74 20 5b 6f 70 . set out [op
0720: 65 6e 20 5b 66 6f 72 6d 61 74 20 25 73 2e 74 65 en [format %s.te
0730: 73 74 20 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 6d st [file rootnam
0740: 65 20 24 66 69 6c 65 6e 61 6d 65 5d 5d 20 77 5d e $filename]] w]
0750: 0a 20 20 20 20 66 63 6f 6e 66 69 67 75 72 65 20 . fconfigure
0760: 24 6f 75 74 20 2d 65 6e 63 6f 64 69 6e 67 20 75 $out -encoding u
0770: 74 66 2d 38 20 2d 74 72 61 6e 73 6c 61 74 69 6f tf-8 -translatio
0780: 6e 20 7b 61 75 74 6f 20 6c 66 7d 0a 20 20 20 20 n {auto lf}.
0790: 61 72 72 61 79 20 73 65 74 20 63 61 73 65 73 20 array set cases
07a0: 5b 6c 69 73 74 5d 0a 0a 20 20 20 20 23 20 41 64 [list].. # Ad
07b0: 64 20 73 65 74 75 70 20 63 6f 6d 6d 61 6e 64 73 d setup commands
07c0: 20 74 6f 20 74 65 73 74 20 66 69 6c 65 0a 20 20 to test file.
07d0: 20 20 70 75 74 73 20 24 6f 75 74 20 5b 66 6f 72 puts $out [for
07e0: 6d 61 74 20 22 23 20 41 75 74 6f 20 67 65 6e 65 mat "# Auto gene
07f0: 72 61 74 65 64 20 74 65 73 74 20 63 61 73 65 73 rated test cases
0800: 20 66 6f 72 20 25 73 22 20 5b 66 69 6c 65 20 74 for %s" [file t
0810: 61 69 6c 20 24 66 69 6c 65 6e 61 6d 65 5d 5d 0a ail $filename]].
0820: 20 20 20 20 23 70 75 74 73 20 24 6f 75 74 20 5b #puts $out [
0830: 66 6f 72 6d 61 74 20 22 23 20 41 75 74 6f 20 67 format "# Auto g
0840: 65 6e 65 72 61 74 65 64 20 74 65 73 74 20 63 61 enerated test ca
0850: 73 65 73 20 66 6f 72 20 25 73 20 63 72 65 61 74 ses for %s creat
0860: 65 64 20 6f 6e 20 25 73 22 20 5b 66 69 6c 65 20 ed on %s" [file
0870: 74 61 69 6c 20 24 66 69 6c 65 6e 61 6d 65 5d 20 tail $filename]
0880: 5b 63 6c 6f 63 6b 20 66 6f 72 6d 61 74 20 5b 63 [clock format [c
0890: 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d 5d 5d 0a lock seconds]]].
08a0: 0a 20 20 20 20 23 20 50 61 63 6b 61 67 65 20 72 . # Package r
08b0: 65 71 75 69 72 65 73 0a 20 20 20 20 70 75 74 73 equires. puts
08c0: 20 24 6f 75 74 20 22 5c 6e 23 20 4c 6f 61 64 20 $out "\n# Load
08d0: 54 63 6c 20 54 65 73 74 20 70 61 63 6b 61 67 65 Tcl Test package
08e0: 22 0a 20 20 20 20 70 75 74 73 20 24 6f 75 74 20 ". puts $out
08f0: 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e [subst -nocomman
0900: 64 73 20 7b 69 66 20 7b 5b 6c 73 65 61 72 63 68 ds {if {[lsearch
0910: 20 5b 6e 61 6d 65 73 70 61 63 65 20 63 68 69 6c [namespace chil
0920: 64 72 65 6e 5d 20 3a 3a 74 63 6c 74 65 73 74 5d dren] ::tcltest]
0930: 20 3c 20 30 7d 20 7b 5c 6e 5c 74 70 61 63 6b 61 < 0} {\n\tpacka
0940: 67 65 20 72 65 71 75 69 72 65 20 74 63 6c 74 65 ge require tclte
0950: 73 74 5c 6e 5c 74 6e 61 6d 65 73 70 61 63 65 20 st\n\tnamespace
0960: 69 6d 70 6f 72 74 20 3a 3a 74 63 6c 74 65 73 74 import ::tcltest
0970: 3a 3a 2a 5c 6e 7d 5c 6e 7d 5d 0a 20 20 20 20 70 ::*\n}\n}]. p
0980: 75 74 73 20 24 6f 75 74 20 7b 73 65 74 20 3a 3a uts $out {set ::
0990: 61 75 74 6f 5f 70 61 74 68 20 5b 63 6f 6e 63 61 auto_path [conca
09a0: 74 20 5b 6c 69 73 74 20 5b 66 69 6c 65 20 64 69 t [list [file di
09b0: 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e rname [file dirn
09c0: 61 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 ame [info script
09d0: 5d 5d 5d 5d 20 24 3a 3a 61 75 74 6f 5f 70 61 74 ]]]] $::auto_pat
09e0: 68 5d 7d 0a 20 20 20 20 70 75 74 73 20 24 6f 75 h]}. puts $ou
09f0: 74 20 22 22 0a 0a 20 20 20 20 23 20 47 65 6e 65 t "".. # Gene
0a00: 72 61 74 65 20 74 65 73 74 20 63 61 73 65 73 20 rate test cases
0a10: 61 6e 64 20 61 64 64 20 74 6f 20 74 65 73 74 20 and add to test
0a20: 66 69 6c 65 0a 20 20 20 20 77 68 69 6c 65 20 7b file. while {
0a30: 5b 67 65 74 73 20 24 69 6e 20 64 61 74 61 5d 20 [gets $in data]
0a40: 3e 20 2d 31 7d 20 7b 0a 09 23 20 53 6b 69 70 20 > -1} {..# Skip
0a50: 63 6f 6d 6d 65 6e 74 73 0a 09 73 65 74 20 64 61 comments..set da
0a60: 74 61 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 ta [string trim
0a70: 24 64 61 74 61 5d 0a 09 69 66 20 7b 5b 73 74 72 $data]..if {[str
0a80: 69 6e 67 20 6d 61 74 63 68 20 22 23 2a 22 20 24 ing match "#*" $
0a90: 64 61 74 61 5d 20 7c 7c 20 5b 73 74 72 69 6e 67 data] || [string
0aa0: 20 6d 61 74 63 68 20 22 5c 22 23 2a 22 20 24 64 match "\"#*" $d
0ab0: 61 74 61 5d 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 ata]} continue..
0ac0: 23 20 53 70 6c 69 74 20 63 6f 6d 6d 61 20 73 65 # Split comma se
0ad0: 70 61 72 61 74 65 64 20 66 69 65 6c 64 73 20 77 parated fields w
0ae0: 69 74 68 20 71 75 6f 74 65 73 0a 09 73 65 74 20 ith quotes..set
0af0: 6c 69 73 74 20 5b 70 61 72 73 65 5f 63 73 76 20 list [parse_csv
0b00: 24 69 6e 20 24 64 61 74 61 5d 0a 0a 09 23 20 47 $in $data]...# G
0b10: 65 74 20 63 6f 6d 6d 61 6e 64 20 6f 72 20 74 65 et command or te
0b20: 73 74 20 63 61 73 65 0a 09 66 6f 72 65 61 63 68 st case..foreach
0b30: 20 7b 67 72 6f 75 70 20 6e 61 6d 65 20 63 6f 6e {group name con
0b40: 73 74 72 61 69 6e 74 73 20 73 65 74 75 70 20 62 straints setup b
0b50: 6f 64 79 20 63 6c 65 61 6e 75 70 20 6d 61 74 63 ody cleanup matc
0b60: 68 20 72 65 73 75 6c 74 20 6f 75 74 70 75 74 20 h result output
0b70: 65 72 72 6f 72 4f 75 74 70 75 74 20 72 65 74 75 errorOutput retu
0b80: 72 6e 43 6f 64 65 73 7d 20 24 6c 69 73 74 20 7b rnCodes} $list {
0b90: 0a 09 20 20 20 20 69 66 20 7b 24 67 72 6f 75 70 .. if {$group
0ba0: 20 65 71 20 22 63 6f 6d 6d 61 6e 64 22 7d 20 7b eq "command"} {
0bb0: 0a 09 09 70 75 74 73 20 24 6f 75 74 20 24 6e 61 ...puts $out $na
0bc0: 6d 65 0a 0a 09 20 20 20 20 7d 20 65 6c 73 65 69 me... } elsei
0bd0: 66 20 7b 24 67 72 6f 75 70 20 6e 65 20 22 22 20 f {$group ne ""
0be0: 26 26 20 24 62 6f 64 79 20 6e 65 20 22 22 7d 20 && $body ne ""}
0bf0: 7b 0a 09 09 23 20 52 65 6d 6f 76 65 20 69 6c 6c {...# Remove ill
0c00: 65 67 61 6c 20 63 68 61 72 61 63 74 65 72 73 0a egal characters.
0c10: 09 09 73 65 74 20 67 72 6f 75 70 20 5b 73 74 72 ..set group [str
0c20: 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74 20 22 20 ing map [list "
0c30: 22 20 22 5f 22 20 22 2d 22 20 22 5f 22 5d 20 24 " "_" "-" "_"] $
0c40: 67 72 6f 75 70 5d 0a 09 09 73 65 74 20 6e 61 6d group]...set nam
0c50: 65 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c e [string map [l
0c60: 69 73 74 20 22 2d 22 20 22 5f 22 5d 20 24 6e 61 ist "-" "_"] $na
0c70: 6d 65 5d 0a 0a 09 09 23 20 44 65 66 69 6e 65 20 me]....# Define
0c80: 74 65 73 74 20 6e 75 6d 62 65 72 0a 09 09 69 66 test number...if
0c90: 20 7b 24 67 72 6f 75 70 20 6e 65 20 24 70 72 65 {$group ne $pre
0ca0: 76 7d 20 7b 0a 09 09 20 20 20 20 69 6e 63 72 20 v} {... incr
0cb0: 74 65 73 74 0a 09 09 20 20 20 20 73 65 74 20 70 test... set p
0cc0: 72 65 76 20 24 67 72 6f 75 70 0a 09 09 20 20 20 rev $group...
0cd0: 20 70 75 74 73 20 24 6f 75 74 20 22 22 0a 09 09 puts $out ""...
0ce0: 7d 0a 0a 09 09 23 20 43 72 65 61 74 65 20 74 65 }....# Create te
0cf0: 73 74 20 63 61 73 65 0a 09 09 69 66 20 7b 5b 73 st case...if {[s
0d00: 74 72 69 6e 67 20 69 6e 64 65 78 20 24 6e 61 6d tring index $nam
0d10: 65 20 30 5d 20 6e 65 20 7b 24 7d 7d 20 7b 0a 09 e 0] ne {$}} {..
0d20: 09 20 20 20 20 73 65 74 20 62 75 66 66 65 72 20 . set buffer
0d30: 5b 66 6f 72 6d 61 74 20 22 5c 6e 74 65 73 74 20 [format "\ntest
0d40: 25 73 2d 25 64 2e 25 64 20 7b 25 73 7d 22 20 24 %s-%d.%d {%s}" $
0d50: 67 72 6f 75 70 20 24 74 65 73 74 20 5b 69 6e 63 group $test [inc
0d60: 72 20 63 61 73 65 73 28 24 67 72 6f 75 70 29 5d r cases($group)]
0d70: 20 24 6e 61 6d 65 5d 0a 09 09 7d 20 65 6c 73 65 $name]...} else
0d80: 20 7b 0a 09 09 20 20 20 20 73 65 74 20 62 75 66 {... set buf
0d90: 66 65 72 20 5b 66 6f 72 6d 61 74 20 22 5c 6e 74 fer [format "\nt
0da0: 65 73 74 20 25 73 2d 25 64 2e 25 64 20 25 73 22 est %s-%d.%d %s"
0db0: 20 24 67 72 6f 75 70 20 24 74 65 73 74 20 5b 69 $group $test [i
0dc0: 6e 63 72 20 63 61 73 65 73 28 24 67 72 6f 75 70 ncr cases($group
0dd0: 29 5d 20 24 6e 61 6d 65 5d 0a 09 09 7d 0a 0a 09 )] $name]...}...
0de0: 09 23 20 41 64 64 20 74 65 73 74 20 63 61 73 65 .# Add test case
0df0: 20 61 72 67 75 6d 65 6e 74 73 0a 09 09 66 6f 72 arguments...for
0e00: 65 61 63 68 20 6f 70 74 20 5b 6c 69 73 74 20 2d each opt [list -
0e10: 63 6f 6e 73 74 72 61 69 6e 74 73 20 2d 73 65 74 constraints -set
0e20: 75 70 20 2d 62 6f 64 79 20 2d 63 6c 65 61 6e 75 up -body -cleanu
0e30: 70 20 2d 6d 61 74 63 68 20 2d 72 65 73 75 6c 74 p -match -result
0e40: 20 2d 6f 75 74 70 75 74 20 2d 65 72 72 6f 72 4f -output -errorO
0e50: 75 74 70 75 74 20 2d 72 65 74 75 72 6e 43 6f 64 utput -returnCod
0e60: 65 73 5d 20 7b 0a 09 09 20 20 20 20 73 65 74 20 es] {... set
0e70: 63 6d 64 20 5b 73 74 72 69 6e 67 20 74 72 69 6d cmd [string trim
0e80: 20 5b 73 65 74 20 5b 73 74 72 69 6e 67 20 74 72 [set [string tr
0e90: 69 6d 6c 65 66 74 20 24 6f 70 74 20 22 2d 22 5d imleft $opt "-"]
0ea0: 5d 5d 0a 09 09 20 20 20 20 69 66 20 7b 24 63 6d ]]... if {$cm
0eb0: 64 20 6e 65 20 22 22 7d 20 7b 0a 09 09 09 69 66 d ne ""} {....if
0ec0: 20 7b 24 6f 70 74 20 69 6e 20 5b 6c 69 73 74 20 {$opt in [list
0ed0: 2d 73 65 74 75 70 20 2d 62 6f 64 79 20 2d 63 6c -setup -body -cl
0ee0: 65 61 6e 75 70 5d 7d 20 7b 0a 09 09 09 20 20 20 eanup]} {....
0ef0: 20 61 70 70 65 6e 64 20 62 75 66 66 65 72 20 22 append buffer "
0f00: 20 22 20 24 6f 70 74 20 22 20 5c 7b 5c 6e 22 0a " $opt " \{\n".
0f10: 09 09 09 20 20 20 20 66 6f 72 65 61 63 68 20 6c ... foreach l
0f20: 69 6e 65 20 5b 73 70 6c 69 74 20 24 63 6d 64 20 ine [split $cmd
0f30: 22 3b 22 5d 20 7b 0a 09 09 09 09 61 70 70 65 6e ";"] {.....appen
0f40: 64 20 62 75 66 66 65 72 20 5c 74 20 5b 73 74 72 d buffer \t [str
0f50: 69 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65 5d 20 ing trim $line]
0f60: 5c 6e 0a 09 09 09 20 20 20 20 7d 0a 09 09 09 20 \n.... }....
0f70: 20 20 20 61 70 70 65 6e 64 20 62 75 66 66 65 72 append buffer
0f80: 20 22 20 20 20 20 5c 7d 22 0a 09 09 09 7d 20 65 " \}"....} e
0f90: 6c 73 65 69 66 20 7b 24 6f 70 74 20 69 6e 20 5b lseif {$opt in [
0fa0: 6c 69 73 74 20 2d 6f 75 74 70 75 74 20 2d 65 72 list -output -er
0fb0: 72 6f 72 4f 75 74 70 75 74 5d 7d 20 7b 0a 09 09 rorOutput]} {...
0fc0: 09 20 20 20 20 61 70 70 65 6e 64 20 62 75 66 66 . append buff
0fd0: 65 72 20 22 20 22 20 24 6f 70 74 20 22 20 7b 22 er " " $opt " {"
0fe0: 20 24 63 6d 64 20 5c 6e 20 22 7d 22 0a 09 09 09 $cmd \n "}"....
0ff0: 7d 20 65 6c 73 65 69 66 20 7b 24 6f 70 74 20 69 } elseif {$opt i
1000: 6e 20 5b 6c 69 73 74 20 2d 72 65 73 75 6c 74 5d n [list -result]
1010: 7d 20 7b 0a 09 09 09 20 20 20 20 69 66 20 7b 5b } {.... if {[
1020: 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 63 6d string index $cm
1030: 64 20 30 5d 20 69 6e 20 5b 6c 69 73 74 20 5c 5b d 0] in [list \[
1040: 20 5c 22 20 5c 7b 20 5c 24 5d 7d 20 7b 0a 09 09 \" \{ \$]} {...
1050: 09 09 61 70 70 65 6e 64 20 62 75 66 66 65 72 20 ..append buffer
1060: 22 20 22 20 24 6f 70 74 20 22 20 22 20 24 63 6d " " $opt " " $cm
1070: 64 0a 09 09 09 20 20 20 20 7d 20 65 6c 73 65 69 d.... } elsei
1080: 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 f {[string match
1090: 20 7b 2a 5b 5c 5c 24 5d 2a 7d 20 24 63 6d 64 5d {*[\\$]*} $cmd]
10a0: 7d 20 7b 0a 09 09 09 09 61 70 70 65 6e 64 20 62 } {.....append b
10b0: 75 66 66 65 72 20 22 20 22 20 24 6f 70 74 20 22 uffer " " $opt "
10c0: 20 5c 22 22 20 5b 73 74 72 69 6e 67 20 6d 61 70 \"" [string map
10d0: 20 5b 6c 69 73 74 20 5c 5c 5c 5c 5c 22 20 5c 5c [list \\\\\" \\
10e0: 5c 22 5d 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 \"] [string map
10f0: 5b 6c 69 73 74 20 5c 22 20 5c 5c 5c 22 20 5d 20 [list \" \\\" ]
1100: 24 63 6d 64 5d 5d 20 22 5c 22 22 0a 09 09 09 20 $cmd]] "\""....
1110: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 } else {.....
1120: 61 70 70 65 6e 64 20 62 75 66 66 65 72 20 22 20 append buffer "
1130: 22 20 24 6f 70 74 20 22 20 7b 22 20 24 63 6d 64 " $opt " {" $cmd
1140: 20 22 7d 22 0a 09 09 09 20 20 20 20 7d 0a 09 09 "}".... }...
1150: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 20 20 20 .} else {....
1160: 20 61 70 70 65 6e 64 20 62 75 66 66 65 72 20 22 append buffer "
1170: 20 22 20 24 6f 70 74 20 22 20 7b 22 20 24 63 6d " $opt " {" $cm
1180: 64 20 22 7d 22 0a 09 09 09 7d 0a 09 09 20 20 20 d "}"....}...
1190: 20 7d 0a 09 09 7d 0a 09 09 70 75 74 73 20 24 6f }...}...puts $o
11a0: 75 74 20 24 62 75 66 66 65 72 0a 0a 09 20 20 20 ut $buffer...
11b0: 20 7d 20 65 6c 73 65 20 7b 0a 09 09 23 20 45 6d } else {...# Em
11c0: 70 74 79 20 6c 69 6e 65 0a 09 09 70 75 74 73 20 pty line...puts
11d0: 24 6f 75 74 20 22 22 0a 09 20 20 20 20 7d 0a 09 $out "".. }..
11e0: 20 20 20 20 62 72 65 61 6b 0a 09 7d 0a 20 20 20 break..}.
11f0: 20 7d 0a 0a 20 20 20 20 23 20 4f 75 74 70 75 74 }.. # Output
1200: 20 63 6c 65 61 6e 2d 75 70 20 63 6f 6d 6d 61 6e clean-up comman
1210: 64 73 0a 20 20 20 20 70 75 74 73 20 24 6f 75 74 ds. puts $out
1220: 20 22 5c 6e 23 20 43 6c 65 61 6e 75 70 5c 6e 3a "\n# Cleanup\n:
1230: 3a 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 :tcltest::cleanu
1240: 70 54 65 73 74 73 5c 6e 72 65 74 75 72 6e 22 0a pTests\nreturn".
1250: 20 20 20 20 63 6c 6f 73 65 20 24 6f 75 74 0a 20 close $out.
1260: 20 20 20 63 6c 6f 73 65 20 24 69 6e 0a 7d 0a 0a close $in.}..
1270: 23 0a 23 20 43 61 6c 6c 20 73 63 72 69 70 74 0a #.# Call script.
1280: 23 0a 66 6f 72 65 61 63 68 20 66 69 6c 65 20 5b #.foreach file [
1290: 67 6c 6f 62 20 2a 2e 63 73 76 5d 20 7b 0a 70 75 glob *.csv] {.pu
12a0: 74 73 20 24 66 69 6c 65 0a 20 20 20 20 70 72 6f ts $file. pro
12b0: 63 65 73 73 5f 63 6f 6e 66 69 67 5f 66 69 6c 65 cess_config_file
12c0: 20 24 66 69 6c 65 0a 7d 0a 65 78 69 74 0a $file.}.exit.