From f73d5cad4e9aa5baa0a763a76cf4516721d29b2a Mon Sep 17 00:00:00 2001 From: Dave Brolley Date: Wed, 13 Jan 2010 15:07:52 -0500 Subject: [PATCH] Test newline characters as part of fuzzing argument strings. --- testsuite/systemtap.server/server_args.exp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/testsuite/systemtap.server/server_args.exp b/testsuite/systemtap.server/server_args.exp index 015026e7f..f30b8b5fb 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" -- 2.43.5