2 files changed, 34 insertions, 0 deletions
diff --git a/testsuite/systemtap.stress/conversions.exp b/testsuite/systemtap.stress/conversions.exp
new file mode 100644
index 00000000..a7fd5e88
--- /dev/null
+++ b/testsuite/systemtap.stress/conversions.exp
@@ -0,0 +1,19 @@
+
+set file $srcdir/$subdir/conversions.stp
+foreach value {0 0xffffffff 0xffffffffffffffff} {
+    set test "conversions.stp $value"
+    if {![installtest_p]} { untested $test; continue }
+    spawn stap -DMAXERRORS=40 $file $value
+    set errs 0
+    verbose -log "exp $test $errs"
+    expect {
+        -re {ERROR[^\r\n]*\r\n} { incr errs; exp_continue }
+        -re {WARNING[^\r\n]*\r\n} { incr errs; exp_continue }
+        eof { }
+        timeout { }
+    }
+    verbose -log "done exp $test $errs"
+    wait
+    if {$errs == 8} { pass $test } else { fail "$test ($errs)" }
+    verbose -log "done $test $errs"
+}
diff --git a/testsuite/systemtap.stress/conversions.stp b/testsuite/systemtap.stress/conversions.stp
new file mode 100644
index 00000000..797626ab
--- /dev/null
+++ b/testsuite/systemtap.stress/conversions.stp
@@ -0,0 +1,15 @@
+#! stap
+# Usage: set $1 to supply test address; -DMAXERRORS=<many>
+
+probe begin(-1) { print ("\n") }
+probe begin { print (kernel_string ($1)) }
+probe begin { print (kernel_long ($1)) }
+probe begin { print (kernel_int ($1)) }
+probe begin { print (kernel_short ($1)) }
+probe begin { print (kernel_char ($1)) }
+probe begin { print (kernel_int ($1)) }
+probe begin { print (user_string ($1)) }
+probe begin { print (user_string2 ($1,"<only suspected, not known>")) }
+probe begin { print (user_string_warn ($1)) }
+probe begin { print (user_string_quoted ($1)) }
+probe begin(1) { print ("\n") exit () }