summaryrefslogtreecommitdiffstats
path: root/testsuite/systemtap.syscall/test-debug.tcl
diff options
context:
space:
mode:
authorDavid Smith <dsmith@redhat.com>2009-10-29 16:12:18 -0500
committerDavid Smith <dsmith@redhat.com>2009-10-29 16:12:18 -0500
commit49e20063710b1d5dbb4efeb53d751b684835413c (patch)
tree2e8f68e8f5a60bb765b1b535660ab362e85571d9 /testsuite/systemtap.syscall/test-debug.tcl
parentd855fc1db953a049b953d0c987f93a252232e6f2 (diff)
downloadsystemtap-steved-49e20063710b1d5dbb4efeb53d751b684835413c.tar.gz
systemtap-steved-49e20063710b1d5dbb4efeb53d751b684835413c.tar.xz
systemtap-steved-49e20063710b1d5dbb4efeb53d751b684835413c.zip
Fix syscall testsuite bugs.
* testsuite/systemtap.syscall/test.tcl: Substitute '[[[[' and ']]]]' for '(' and ')'. This allows us to get unquoted parens. * testsuite/systemtap.syscall/test-debug.tcl: Matches substitute logic of test.tcl. * testsuite/systemtap.syscall/README: Document '[[[[' and ']]]]'. * testsuite/systemtap.syscall/chmod.c: Handle optional O_LARGEFILE flag in open calls. * testsuite/systemtap.syscall/dir.c: Ditto. * testsuite/systemtap.syscall/mmap.c: Ditto. * testsuite/systemtap.syscall/openclose.c: Ditto. * testsuite/systemtap.syscall/readwrite.c: Ditto. * testsuite/systemtap.syscall/stat.c: Ditto.
Diffstat (limited to 'testsuite/systemtap.syscall/test-debug.tcl')
-rwxr-xr-xtestsuite/systemtap.syscall/test-debug.tcl11
1 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/systemtap.syscall/test-debug.tcl b/testsuite/systemtap.syscall/test-debug.tcl
index eb730459..3eb6bbf0 100755
--- a/testsuite/systemtap.syscall/test-debug.tcl
+++ b/testsuite/systemtap.syscall/test-debug.tcl
@@ -50,9 +50,20 @@ foreach line [split $output "\n"] {
if {[regsub {//} $line {} line]} {
set line "$testname: [string trimleft $line]"
+ # We need to quote all these metacharacters
regsub -all {\(} $line {\\(} line
regsub -all {\)} $line {\\)} line
regsub -all {\|} $line {\|} line
+ # + and * are metacharacters, but should always be used
+ # as metacharacters in the expressions, don't escape them.
+ #regsub -all {\+} $line {\\+} line
+ #regsub -all {\*} $line {\\*} line
+
+ # Turn '[[[[' and ']]]]' into '(' and ')' respectively.
+ # Because normally parens get quoted, this allows us to
+ # have non-quoted parens.
+ regsub -all {\[\[\[\[} $line {(} line
+ regsub -all {\]\]\]\]} $line {)} line
regsub -all NNNN $line {[\-0-9]+} line
regsub -all XXXX $line {[x0-9a-fA-F]+} line