1 files changed, 29 insertions, 0 deletions
diff --git a/lib/perl5db/t/test-warnLevel-option-1 b/lib/perl5db/t/test-warnLevel-option-1
new file mode 100644
index 0000000000..04b71f9913
--- /dev/null
+++ b/lib/perl5db/t/test-warnLevel-option-1
@@ -0,0 +1,29 @@
+use strict;
+use warnings;
+
+sub foo
+{
+    print "In foo\n";
+    bar();
+}
+
+sub bar
+{
+    print "In baz\n";
+    baz();
+}
+
+sub baz
+{
+    warn "This is not a warning.";
+
+    return;
+}
+
+sub myfunc
+{
+    bar();
+}
+
+myfunc();
+