Add a test for the frame option.

1 files changed, 26 insertions, 0 deletions

diff --git a/lib/perl5db/t/test-frame-option-1 b/lib/perl5db/t/test-frame-option-1
new file mode 100644
index 0000000000..a6b4dd8c4f
--- /dev/null
+++ b/lib/perl5db/t/test-frame-option-1
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+sub my_func
+{
+    my ($num1, $num2) = @_;
+
+    print $num1+$num2, "\n";
+
+    my_other_func ($num1*3, $num2*24);
+
+    return $num1*$num2;
+}
+
+sub my_other_func
+{
+    my ($num1, $num2) = @_;
+
+    print "my_other_func: n1=<$num1> n2=<$num2>\n";
+
+    return $num1 * $num2;
+}
+
+my_func(1, 50);