print_systemtap_version
get_system_info
+# PR11798: die if kernel-devel is not sufficient to build any modules
+if {[catch {exec stap -p4 -e {probe begin {exit()}}} result options]} {
+ puts "\n\n\n**** failed systemtap kernel-devel smoke test:\n"
+ puts $result
+# puts "****\n"
+# puts $options
+ puts "\n**** aborting testing.\n"
+ exit 1
+}
+
+# PR11798: die also if kernel-debuginfo is not available
+# NB: if one introduced a [kernel_debuginfo_p] proc like the
+# ones for uprobes/utrace above, and sprinkled it throughout,
+# then this wouldn't have to be a failing condition.
+if {[catch {exec stap -p4 -e {probe syscall.open {println (argstr)}}} result options]} {
+ puts "\n\n\n**** failed systemtap kernel-debuginfo smoke test:\n"
+ puts $result
+# puts "****\n"
+# puts $options
+ puts "\n**** aborting testing.\n"
+ exit 1
+}
+
+
proc systemtap_init {args} {}
proc systemtap_version {} {}