diff options
| author | wenji <wenji> | 2007-09-28 08:01:00 +0000 |
|---|---|---|
| committer | wenji <wenji> | 2007-09-28 08:01:00 +0000 |
| commit | 9446a6d68e4cea3554ecbbacb673b1be9dc89919 (patch) | |
| tree | f586bb7d49b31d8a9ddb3e4823aae56615122933 /testsuite/lib/stap_run.exp | |
| parent | 3cd0e15acc565ac8b02f99e3750118c93fd6324c (diff) | |
| download | systemtap-steved-9446a6d68e4cea3554ecbbacb673b1be9dc89919.tar.gz systemtap-steved-9446a6d68e4cea3554ecbbacb673b1be9dc89919.tar.xz systemtap-steved-9446a6d68e4cea3554ecbbacb673b1be9dc89919.zip | |
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.
Diffstat (limited to 'testsuite/lib/stap_run.exp')
| -rw-r--r-- | testsuite/lib/stap_run.exp | 11 |
1 files changed, 11 insertions, 0 deletions
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)+$" |