Test stopping on a single.

rocky · Jan 1, 2012 · c9dda98 · c9dda98
1 parent 74f5f85
commit c9dda98
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 0 deletions.
diff --git a/t/data/sig2.cmd 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
@@ -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