Invalid casess can be tested for 'make check'.

diff --git a/testsuite/systemtap.server/client_args.exp b/testsuite/systemtap.server/client_args.exp
index 35d418eee3458a45dffdd3e0fa7741297202b496..1ba1e9008d4b5fd68600f4f502f2fcd33cf3d33f 100644 (file)
--- a/testsuite/systemtap.server/client_args.exp
+++ b/testsuite/systemtap.server/client_args.exp
@@ -1,12 +1,57 @@
-set test "Server Client Arguments"
-
-# stap_run_exact only works for 'make installcheck'
-if {[info procs installtest_p] != "" && ![installtest_p]} { untested $test; return }
+set test "Valid Server Client Arguments"
 
 # Test that stap on the server side will correctly accept/reject certain
 # arguments in unprivileged mode.
 set test_file $srcdir/systemtap.server/test.stp
 
+# Test invalid combinations.
+set error_regexp ".*You can't specify (-\[aBDImRr\], )*-\[aBDImRr\] when --unprivileged is specified.*"
+
+set invalid_options [list \
+  "--unprivileged --client-options -a i386" \
+  "--unprivileged --client-options -B X=Y" \
+  "--unprivileged --client-options -D X=Y" \
+  "--unprivileged --client-options -I /tmp" \
+  "--unprivileged --client-options -m test" \
+  "--unprivileged --client-options -R /tmp" \
+  "--unprivileged --client-options -r [exec uname -r]" \
+  "--unprivileged --client-options -a i386 -B X=Y -D X=Y -I /tmp -m test -R /tmp -r [exec uname -r]" \
+  "--client-options --unprivileged -a i386" \
+  "--client-options --unprivileged -B X=Y" \
+  "--client-options --unprivileged -D X=Y" \
+  "--client-options --unprivileged -I /tmp" \
+  "--client-options --unprivileged -m test" \
+  "--client-options --unprivileged -R /tmp" \
+  "--client-options --unprivileged -r [exec uname -r]" \
+  "--client-options --unprivileged -a i386 -B X=Y -D X=Y -I /tmp -m test -R /tmp -r [exec uname -r]" \
+  "--client-options -a i386 --unprivileged" \
+  "--client-options -B X=Y --unprivileged" \
+  "--client-options -D X=Y --unprivileged" \
+  "--client-options -I /tmp --unprivileged" \
+  "--client-options -m test --unprivileged" \
+  "--client-options -R /tmp --unprivileged" \
+  "--client-options -r [exec uname -r] --unprivileged" \
+  "--client-options -a i386 -B X=Y -D X=Y -I /tmp -m test -R /tmp -r [exec uname -r] --unprivileged" \
+]
+
+foreach options $invalid_options {
+    verbose -log "eval exec stap $options"
+    catch {eval exec stap $test_file -p1 $options} res_stap
+    verbose -log $res_stap
+
+    if {[regexp $error_regexp $res_stap]} {
+       pass "$test: $options"
+    } else {
+       fail "$test: $options"
+    }
+}
+
+# Test valid combinations
+# stap_run_exact (used below) only works for 'make installcheck'
+if {[info procs installtest_p] != "" && ![installtest_p]} { untested $test; return }
+
+set test "Valid Server Client Arguments"
+
 set no_error_result "# parse tree dump
 # file $test_file
 probe begin{
@@ -15,7 +60,6 @@ exit()
 
 "
 
-# First test valid combinations
 set valid_options [list \
   "-a i386" \
   "-B X=Y" \
@@ -58,45 +102,3 @@ set ::result_string "$no_error_result"
 foreach options $valid_options {
     eval stap_run_exact {"$test: $options"} $test_file -p1 $options
 }
-
-# Now test invalid combinations.
-set error_regexp ".*You can't specify (-\[aBDImRr\], )*-\[aBDImRr\] when --unprivileged is specified.*"
-
-set invalid_options [list \
-  "--unprivileged --client-options -a i386" \
-  "--unprivileged --client-options -B X=Y" \
-  "--unprivileged --client-options -D X=Y" \
-  "--unprivileged --client-options -I /tmp" \
-  "--unprivileged --client-options -m test" \
-  "--unprivileged --client-options -R /tmp" \
-  "--unprivileged --client-options -r [exec uname -r]" \
-  "--unprivileged --client-options -a i386 -B X=Y -D X=Y -I /tmp -m test -R /tmp -r [exec uname -r]" \
-  "--client-options --unprivileged -a i386" \
-  "--client-options --unprivileged -B X=Y" \
-  "--client-options --unprivileged -D X=Y" \
-  "--client-options --unprivileged -I /tmp" \
-  "--client-options --unprivileged -m test" \
-  "--client-options --unprivileged -R /tmp" \
-  "--client-options --unprivileged -r [exec uname -r]" \
-  "--client-options --unprivileged -a i386 -B X=Y -D X=Y -I /tmp -m test -R /tmp -r [exec uname -r]" \
-  "--client-options -a i386 --unprivileged" \
-  "--client-options -B X=Y --unprivileged" \
-  "--client-options -D X=Y --unprivileged" \
-  "--client-options -I /tmp --unprivileged" \
-  "--client-options -m test --unprivileged" \
-  "--client-options -R /tmp --unprivileged" \
-  "--client-options -r [exec uname -r] --unprivileged" \
-  "--client-options -a i386 -B X=Y -D X=Y -I /tmp -m test -R /tmp -r [exec uname -r] --unprivileged" \
-]
-
-foreach options $invalid_options {
-    verbose -log "eval exec stap $options"
-    catch {eval exec stap -p1 $options} res_stap
-    verbose -log $res_stap
-
-    if {[regexp $error_regexp $res_stap]} {
-       pass "$test: $options"
-    } else {
-       fail "$test: $options"
-    }
-}