From c9dda984ad33afc1236d83bf6dbe507e7ece9136 Mon Sep 17 00:00:00 2001
From: Rocky Bernstein <rocky@cpan.org>
Date: Sun, 1 Jan 2012 06:41:19 -0500
Subject: [PATCH] Test stopping on a single.

---
 t/data/sig2.cmd   | 10 ++++++++++
 t/data/sig2.right | 16 ++++++++++++++++
 2 files changed, 26 insertions(+)
 create mode 100644 t/data/sig2.cmd
 create mode 100644 t/data/sig2.right

diff --git a/t/data/sig2.cmd b/t/data/sig2.cmd
new file mode 100644
index 0000000..e911830
--- /dev/null
+++ b/t/data/sig2.cmd
@@ -0,0 +1,10 @@
+# use with example/signal.pl
+# See that we can stop on a signal properly
+set autoeval on
+c 10
+handle HUP stop print
+c
+step
+step
+$leave_loop=1
+continue
diff --git a/t/data/sig2.right b/t/data/sig2.right
new file mode 100644
index 0000000..5fd180c
--- /dev/null
+++ b/t/data/sig2.right
@@ -0,0 +1,16 @@
+-- (signal.pl:9)
+$SIG{'HUP'} = \&hup_handler;
+set auto eval is on.
+x1 (signal.pl:10)
+my $tempfile;
+Signal        Stop	Print	Stack	Pass	Description
+HUP           Yes 	Yes 	No   	No  	Hangup
+
+Program received signal HUP.
+!! (signal.pl:21)
+    sleep 1;
+-- (signal.pl:21)
+    sleep 1;
+-- (signal.pl:21)
+    sleep 1;
+$DB::D[0] = 1