testsuite/systemtap.examples :: add test_{,install}check_bpf tag to check.exp

diff --git a/testsuite/systemtap.examples/check.exp b/testsuite/systemtap.examples/check.exp
index dbdcbc7e9d58e65f02ad7d567e86db5d4bdc338b..984b4ce3e35c0365ef408839020f6db8aabce184 100644 (file)
--- a/testsuite/systemtap.examples/check.exp
+++ b/testsuite/systemtap.examples/check.exp
@@ -130,6 +130,33 @@ foreach file $meta_files {
          }
     }
 
+    # Now run the same thing but with BPF
+    if {[bpf_p]} {
+        set test_check_bpf [extract_tag "$meta_data" "test_check_bpf"]
+        set test_installcheck_bpf [extract_tag "$meta_data" "test_installcheck_bpf"]
+
+        set build_bpf_p 1
+        if { $test_check_bpf != "" } {
+            if { $supported_p == 1 } {
+                set command $test_check_bpf
+                set res [run_command "$test" "build_bpf" $command]
+                if { $res != 0 } { set build_bpf_p 0 }
+            } else {
+                untested "$test build_bpf"
+                continue
+            }
+        }
+        if {[info procs installtest_p] != "" && [installtest_p]
+            && $test_installcheck_bpf != "" } then {
+            if { $supported_p == 1 && $build_bpf_p == 1 } {
+                set command $test_installcheck
+                run_command "$test" "run_bpf" $command
+            } else {
+                untested "$test run_bpf"
+            }
+        }
+    }
+
     # NB: Don't try to clean up; too dangerous & can error-out
     # set output_type [extract_tag "$meta_data" "output"]
     # if {$output_type == "file"} {