From 68642a15584f9e4fbf8cfc5765a3cfaeac0a5bbb Mon Sep 17 00:00:00 2001
From: hunt <hunt>
Date: Thu, 9 Mar 2006 08:48:06 +0000
Subject: 2006-03-09  Martin Hunt  <hunt@redhat.com>

	* bench2: New directory containing a benchmark framework.
---
 runtime/bench2/stap_bench | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 runtime/bench2/stap_bench

(limited to 'runtime/bench2/stap_bench')

diff --git a/runtime/bench2/stap_bench b/runtime/bench2/stap_bench
new file mode 100755
index 00000000..b3b450d8
--- /dev/null
+++ b/runtime/bench2/stap_bench
@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+load './bench.rb'
+
+# run tests on all the files ending in ".st"
+# These must be systemtap scripts.
+# First line of scripts must be a comment with the test description.
+
+Dir["*.st"].each do |file|
+  File.open(file,"r") do |f|
+    desc = f.gets.sub(/^#/,'').strip
+    test = Stapbench.new(desc)
+    test.file = file
+    test.run
+    test.print
+  end
+end
-- 
cgit