diff options
author | Shlomi Fish <shlomif@shlomifish.org> | 2012-09-20 17:28:39 +0300 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2012-11-12 09:18:24 -0500 |
commit | ca3d93988b101a7212b5cae53d15cbf5d85be6a7 (patch) | |
tree | 3312a74f0200d7a6381d6977468f3be580475100 /lib/perl5db | |
parent | b705c7744a0d4605084116e6be5081cdbe60b62c (diff) | |
download | perl-ca3d93988b101a7212b5cae53d15cbf5d85be6a7.tar.gz |
[perl5db] Add a test for warnLevel=1.
Diffstat (limited to 'lib/perl5db')
-rw-r--r-- | lib/perl5db/t/test-warnLevel-option-1 | 29 |
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(); + |