From b705c7744a0d4605084116e6be5081cdbe60b62c Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@shlomifish.org>
Date: Wed, 19 Sep 2012 16:33:22 +0300
Subject: [perl5db] Add test for dieLevel option.

---
 lib/perl5db/t/test-dieLevel-option-1 | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 lib/perl5db/t/test-dieLevel-option-1

(limited to 'lib/perl5db')

diff --git a/lib/perl5db/t/test-dieLevel-option-1 b/lib/perl5db/t/test-dieLevel-option-1
new file mode 100644
index 0000000000..0849ae2a0d
--- /dev/null
+++ b/lib/perl5db/t/test-dieLevel-option-1
@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+
+sub foo
+{
+    print "In foo\n";
+    bar();
+}
+
+sub bar
+{
+    print "In baz\n";
+    baz();
+}
+
+sub baz
+{
+    die "This program dies.";
+}
+
+foo();
+
-- 
cgit v1.2.1