testsuite/systemtap.base/preprocessor.exp

   1
   2 set kvr [exec uname -r]
   3 set kv [exec uname -r | cut -f1 -d-]
   4 # a pattern bound to match
   5 set kr {[23]?[0-9]*}
   6 # a pattern bound to mismatch
   7 set krx {?noSuchKernel*}
   8
   9 set arch [exec uname -i]
  10 # normalize arch; PR4186
  11 set arch [normalize_arch $arch]
  12 set ar "?[string range $arch 1 end-1]?"
  13 set arx {?noSuchArch?}
  14
  15 # This test works so that if all the preprocessor conditionals
  16 # work as expected, stap will indicate no error.
  17
  18 set test "preprocessor basic ops"
  19 spawn stap -p2 -e "probe never {}
  20 %( kernel_v == \"$kv\"   %? %: ERROR %)
  21 %( kernel_v == \"$kr\"   %? %: ERROR %)
  22 %( kernel_v == \"$krx\"   %? ERROR %: %)
  23 %( kernel_v != \"$kv\"   %? ERROR %: %)
  24 %( kernel_v != \"$kr\"   %? ERROR %: %)
  25 %( kernel_v != \"$krx\"   %? %: ERROR %)
  26 %( kernel_v < \"9.9999\"  %? %: ERROR %)
  27 %( kernel_v <= \"9.9999\" %? %: ERROR %)
  28 %( kernel_v > \"9.9999\"  %? ERROR %: %)
  29 %( kernel_v >= \"9.9999\" %? ERROR %: %)
  30 %( kernel_vr == \"$kvr\"  %? %: ERROR %)
  31 %( kernel_vr == \"$kr\"  %? %: ERROR %)
  32 %( kernel_vr == \"$krx\"  %? ERROR %: %)
  33 %( kernel_vr != \"$kvr\"  %? ERROR %: %)
  34 %( kernel_vr != \"$kr\"   %? ERROR %: %)
  35 %( kernel_vr != \"$krx\"   %? %: ERROR %)
  36 %( kernel_vr < \"9.9999\"  %? %: ERROR %)
  37 %( kernel_vr <= \"9.9999\" %? %: ERROR %)
  38 %( kernel_vr > \"9.9999\"  %? ERROR %: %)
  39 %( kernel_vr >= \"9.9999\" %? ERROR %: %)
  40 %( arch == \"$arch\"      %? %: ERROR %)
  41 %( arch == \"$ar\"        %? %: ERROR %)
  42 %( arch == \"$arx\"        %? ERROR %: %)
  43 %( arch != \"$arch\"      %? ERROR %: %)
  44 %( arch != \"$ar\"        %? ERROR %: %)
  45 %( arch != \"$arx\"        %? %: ERROR %)
  46 "
  47 set ok 0
  48 expect {
  49     "never" { incr ok }
  50     eof { }
  51     timeout { }
  52 }
  53 catch {close; wait}
  54 if {$ok == 1} { pass $test } { fail $test }