From d00ba7c81cf5414791d56fee7b8ad10d568b7688 Mon Sep 17 00:00:00 2001
From: Josh Stone <jistone@redhat.com>
Date: Wed, 15 May 2013 13:04:48 -0700
Subject: [PATCH] PR14297: Test that hyphenated SDT normalizes to underscores

---
 testsuite/systemtap.base/list.exp | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/testsuite/systemtap.base/list.exp b/testsuite/systemtap.base/list.exp
index 3e3fe94f7..075b4d453 100644
--- a/testsuite/systemtap.base/list.exp
+++ b/testsuite/systemtap.base/list.exp
@@ -46,6 +46,16 @@ expect {
 }
 catch { close }; catch { wait }
 
+set test mark-non-glob2
+spawn stap -l {process("stap").mark("pass5-end")}
+expect {
+    -re {process."stap"..mark."pass5__end".\r\n} { pass $test }
+    -re {^[^\r\n]*\r\n} { exp_continue }
+    timeout { fail $test }
+    eof { fail $test }
+}
+catch { close }; catch { wait }
+
 set test mark-glob
 spawn stap -l {process("stap").mark("pass[12345678]__end")}
 expect {
-- 
2.43.5