Test newline characters as part of fuzzing argument strings.

diff --git a/testsuite/systemtap.server/server_args.exp b/testsuite/systemtap.server/server_args.exp
index 015026e7f80805b7b5d17e21d5cddad0f14a402a..f30b8b5fb52e43a93dd34d6354c8ca647f5e5c4d 100644 (file)
--- 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"