2007-10-25 Martin Hunt <hunt@redhat.com>

	* systemtap.printf/print_char.*: New test.
	* systemtap.printf/print.*: New test.
	* systemtap.printf/println.*: New test.

	* systemtap.maps/elision.*: New tests.

	* config/unix.exp: Added stap_run_exact.
	* lib/stap_run_exact.exp: New. Like stap_run2 but
	takes a seperate test name.

6 files changed, 141 insertions, 0 deletions

diff --git a/testsuite/systemtap.printf/print.exp b/testsuite/systemtap.printf/print.exp
new file mode 100644
index 00000000..3a4de529
--- /dev/null
+++ b/testsuite/systemtap.printf/print.exp
@@ -0,0 +1,18 @@
+set test "print"
+set ::result_string {hello world
+777
+hello world
+hello world
+foo
+foobar
+foobar
+foobar
+foo99
+99foo
+777
+888
+123456789
+hello999
+999hello
+}
+stap_run2 $srcdir/$subdir/$test.stp
diff --git a/testsuite/systemtap.printf/print.stp b/testsuite/systemtap.printf/print.stp
new file mode 100644
index 00000000..ae770935
--- /dev/null
+++ b/testsuite/systemtap.printf/print.stp
@@ -0,0 +1,47 @@
+# test the print function with string and integers,
+# variables and constants.
+
+probe begin {
+	a = "hello"
+	b = " "
+	c = "world"
+	d = 777
+
+	# print variables
+	print(a)
+	print(b)
+	print(c)
+	print("\n")
+
+	print(d)
+	print("\n")
+	
+	print(a,b,c,"\n")
+	print(a.b.c."\n")
+
+	# print literals
+	print("foo")
+	print("\n")
+
+	print("foo")
+	print("bar")
+	print("\n")
+
+	print("foo","bar","\n")
+	print("foo"."bar"."\n")
+
+	print("foo",99,"\n")
+	print(99, "foo","\n")
+	
+	print(777)
+	print("\n")
+	print(888,"\n")
+
+	print(123,456,789,"\n")
+
+	# mixed
+	print(a,999,"\n")
+	print(999,a,"\n")
+
+	exit()
+}
diff --git a/testsuite/systemtap.printf/print_char.exp b/testsuite/systemtap.printf/print_char.exp
new file mode 100644
index 00000000..bab056dd
--- /dev/null
+++ b/testsuite/systemtap.printf/print_char.exp
@@ -0,0 +1,5 @@
+set test "print_char"
+set ::result_string {ABC
+ABCDEFGHIJKLMNOPQRSTUVWXYZ
+}
+stap_run2 $srcdir/$subdir/$test.stp
diff --git a/testsuite/systemtap.printf/print_char.stp b/testsuite/systemtap.printf/print_char.stp
new file mode 100644
index 00000000..0900fe1d
--- /dev/null
+++ b/testsuite/systemtap.printf/print_char.stp
@@ -0,0 +1,16 @@
+# test the print_char function
+
+probe begin {
+	endl = 10
+	print_char(65)
+	print_char(66)
+	print_char(67)
+	print_char(endl)
+
+	for (i = 65; i < 91; i++)
+		print_char(i)
+	print_char(endl)
+
+	
+	exit()
+}
diff --git a/testsuite/systemtap.printf/println.exp b/testsuite/systemtap.printf/println.exp
new file mode 100644
index 00000000..8deba53f
--- /dev/null
+++ b/testsuite/systemtap.printf/println.exp
@@ -0,0 +1,18 @@
+set test "println"
+set ::result_string {hello
+ 
+world
+777
+hello world
+hello world
+foo
+foobar
+foobar
+777
+foo99
+99foo
+123456789
+hello999
+999hello
+}
+stap_run2 $srcdir/$subdir/$test.stp
diff --git a/testsuite/systemtap.printf/println.stp b/testsuite/systemtap.printf/println.stp
new file mode 100644
index 00000000..0b02f0ac
--- /dev/null
+++ b/testsuite/systemtap.printf/println.stp
@@ -0,0 +1,37 @@
+# test the println function with string and integers,
+# variables and constants.
+
+probe begin {
+	a = "hello"
+	b = " "
+	c = "world"
+	d = 777
+
+	# println variables
+	println(a)
+	println(b)
+	println(c)
+
+	println(d)
+	
+	println(a,b,c)
+	println(a.b.c)
+
+	# println literals
+	println("foo")
+
+	println("foo","bar")
+	println("foo"."bar")
+
+	println(777)
+	println("foo",99)
+	println(99, "foo")
+	
+	println(123,456,789)
+
+	# mixed
+	println(a,999)
+	println(999,a)
+
+	exit()
+}