From 9446a6d68e4cea3554ecbbacb673b1be9dc89919 Mon Sep 17 00:00:00 2001
From: wenji <wenji>
Date: Fri, 28 Sep 2007 08:01:00 +0000
Subject: 2007-09-28  Wenji Huang <wenji.huang@oracle.com>

        * lib/systemtap.exp: New proc get_system_info.
        * lib/stap_run.exp: New proc print_system_info.
---
 testsuite/lib/stap_run.exp | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'testsuite/lib/stap_run.exp')

diff --git a/testsuite/lib/stap_run.exp b/testsuite/lib/stap_run.exp
index ff93ed8a..c9131562 100644
--- a/testsuite/lib/stap_run.exp
+++ b/testsuite/lib/stap_run.exp
@@ -86,5 +86,16 @@ proc no_load {} {
     return 0
 }
 
+proc print_system_info {} {
+	global Host Snapshot Distro
+
+	clone_output "\nHost: $Host"
+	if {[string compare $Snapshot "unknown"]!=0} {
+		clone_output "Snapshot: $Snapshot"
+	}
+	clone_output "Distro: $Distro\n"
+}
+
+print_system_info
 # tests better all be true
 set all_pass_string "(systemtap test success\r\n)+$"
-- 
cgit