Fossil SCM
Fix the test/valgrind-www.tcl script so that it works on Ubuntu 13.10.
Commit
fcfe117b5a90223730e1298ecc864892d230747a
Parent
492cb995673dffe…
1 file changed
+3
-1
+3
-1
| --- test/valgrind-www.tcl | ||
| +++ test/valgrind-www.tcl | ||
| @@ -12,11 +12,13 @@ | ||
| 12 | 12 | # |
| 13 | 13 | proc run_query {url} { |
| 14 | 14 | set fd [open q.txt w] |
| 15 | 15 | puts $fd "GET $url HTTP/1.0\r\n\r" |
| 16 | 16 | close $fd |
| 17 | - return [exec valgrind ./fossil test-http <q.txt 2>@ stderr] | |
| 17 | + set msg {} | |
| 18 | + catch {exec valgrind ./fossil test-http <q.txt 2>@ stderr} msg | |
| 19 | + return $msg | |
| 18 | 20 | } |
| 19 | 21 | set todo {} |
| 20 | 22 | foreach url { |
| 21 | 23 | /home |
| 22 | 24 | /timeline |
| 23 | 25 |
| --- test/valgrind-www.tcl | |
| +++ test/valgrind-www.tcl | |
| @@ -12,11 +12,13 @@ | |
| 12 | # |
| 13 | proc run_query {url} { |
| 14 | set fd [open q.txt w] |
| 15 | puts $fd "GET $url HTTP/1.0\r\n\r" |
| 16 | close $fd |
| 17 | return [exec valgrind ./fossil test-http <q.txt 2>@ stderr] |
| 18 | } |
| 19 | set todo {} |
| 20 | foreach url { |
| 21 | /home |
| 22 | /timeline |
| 23 |
| --- test/valgrind-www.tcl | |
| +++ test/valgrind-www.tcl | |
| @@ -12,11 +12,13 @@ | |
| 12 | # |
| 13 | proc run_query {url} { |
| 14 | set fd [open q.txt w] |
| 15 | puts $fd "GET $url HTTP/1.0\r\n\r" |
| 16 | close $fd |
| 17 | set msg {} |
| 18 | catch {exec valgrind ./fossil test-http <q.txt 2>@ stderr} msg |
| 19 | return $msg |
| 20 | } |
| 21 | set todo {} |
| 22 | foreach url { |
| 23 | /home |
| 24 | /timeline |
| 25 |