diff options
| author | Dave Brolley <brolley@redhat.com> | 2010-01-13 15:07:52 -0500 |
|---|---|---|
| committer | Dave Brolley <brolley@redhat.com> | 2010-01-13 15:07:52 -0500 |
| commit | f73d5cad4e9aa5baa0a763a76cf4516721d29b2a (patch) | |
| tree | c2e3a5fa50034c7d76316906f682b8ac44989e92 | |
| parent | c74bc9e5e177f947cdac9788d0272fa4d66780b9 (diff) | |
| download | systemtap-steved-f73d5cad4e9aa5baa0a763a76cf4516721d29b2a.tar.gz systemtap-steved-f73d5cad4e9aa5baa0a763a76cf4516721d29b2a.tar.xz systemtap-steved-f73d5cad4e9aa5baa0a763a76cf4516721d29b2a.zip | |
Test newline characters as part of fuzzing argument strings.
| -rw-r--r-- | testsuite/systemtap.server/server_args.exp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/testsuite/systemtap.server/server_args.exp b/testsuite/systemtap.server/server_args.exp index 015026e7..f30b8b5f 100644 --- a/testsuite/systemtap.server/server_args.exp +++ b/testsuite/systemtap.server/server_args.exp @@ -20,6 +20,7 @@ proc stap_direct_and_with_client {stap stap_client options} { # recursively passes it to the tcl interpreter. Special # characters need to be quoted. regsub -all "\[\"\\\\;\]" $options {\\\0} options + regsub -all "\[\n\]" $options {\\n} options verbose -log "eval exec $stap $options" catch {eval exec $stap $options} res_stap @@ -140,7 +141,7 @@ foreach options $previously_fixed { # Check that running systemtap with the client/server generates output # comparable to running stap directly. set dangerous_options [list "-I" "-R" "-e" "-B" "-D" "-c"] -set argchars "0123456789;*'=-\\\" abcdefghijklmnopqrstuvwxyz" +set argchars "0123456789;*'=-\\\"\n abcdefghijklmnopqrstuvwxyz" for {set i 0} {$i < $iterations} {incr i} { verbose -log "Iteration $i" |