From 741f88f95256a4a15afe1b98f6b2de834ebc3fe7 Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@shlomifish.org>
Date: Sat, 15 Sep 2012 15:35:07 +0300
Subject: [PATCH] [perl5db] Add a test for H -7.

---
 lib/perl5db.t | 34 +++++++++++++++++++++++++++++++++-
 1 file changed, 33 insertions(+), 1 deletion(-)

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 66cee89..3c69fa8 100644
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -28,7 +28,7 @@ BEGIN {
     }
 }
 
-plan(81);
+plan(82);
 
 my $rc_filename = '.perldb';
 
@@ -1960,6 +1960,38 @@ sub _calc_trace_wrapper
     );
 }
 
+# Test the 'H -number' command.
+{
+    my $wrapper = DebugWrap->new(
+        {
+            cmds =>
+            [
+                'l 1-10',
+                'l 5-10',
+                'x "Hello World"',
+                'l 1-5',
+                'b 3',
+                'x (20+4)',
+                'H -7',
+                'q',
+            ],
+            prog => '../lib/perl5db/t/disable-breakpoints-1',
+        }
+    );
+
+    $wrapper->contents_like(qr#
+        ^\d+:\s+H\ -7\n
+        \d+:\s+x\ \(20\+4\)\n
+        \d+:\s+b\ 3\n
+        \d+:\s+l\ 1-5\n
+        \d+:\s+x\ "Hello\ World"\n
+        \d+:\s+l\ 5-10\n
+        \d+:\s+l\ 1-10\n
+        #msx,
+        'Test the source command (along with l)',
+    );
+}
+
 END {
     1 while unlink ($rc_filename, $out_fn);
 }
-- 
2.7.4