OLD | NEW |
1 | 1 |
2 | 2 |
3 | 3 |
4 proc bc_find_binaries {zCaption} { | 4 proc bc_find_binaries {zCaption} { |
5 # Search for binaries to test against. Any executable files that match | 5 # Search for binaries to test against. Any executable files that match |
6 # our naming convention are assumed to be testfixture binaries to test | 6 # our naming convention are assumed to be testfixture binaries to test |
7 # against. | 7 # against. |
8 # | 8 # |
9 set binaries [list] | 9 set binaries [list] |
10 set pattern "[file tail [info nameofexec]]?*" | 10 set pattern "[file tail [info nameofexec]]?*" |
(...skipping 52 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
63 catch { code1 { db close } } | 63 catch { code1 { db close } } |
64 catch { code2 { db close } } | 64 catch { code2 { db close } } |
65 catch { close $::bc_chan } | 65 catch { close $::bc_chan } |
66 } | 66 } |
67 | 67 |
68 proc do_all_bc_test {script} { | 68 proc do_all_bc_test {script} { |
69 foreach bin $::BC(binaries) { | 69 foreach bin $::BC(binaries) { |
70 uplevel [list do_bc_test $bin $script] | 70 uplevel [list do_bc_test $bin $script] |
71 } | 71 } |
72 } | 72 } |
OLD | NEW |