This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add a test for the < and > commands together.
[perl5.git] / lib / perl5db.t
index 10b87ad..51b1cf0 100644 (file)
@@ -28,7 +28,7 @@ BEGIN {
     }
 }
 
     }
 }
 
-plan(73);
+plan(74);
 
 my $rc_filename = '.perldb';
 
 
 my $rc_filename = '.perldb';
 
@@ -1644,6 +1644,32 @@ package main;
     );
 }
 
     );
 }
 
+# Test the < and > commands together
+{
+    my $wrapper = DebugWrap->new(
+        {
+            cmds =>
+            [
+                q/$::lorem = 0;/,
+                q/< $::lorem += 10;/,
+                q/> print "\nLOREM=<$::lorem>\n"/,
+                q/b 7/,
+                q/b 5/,
+                'c',
+                'c',
+                'q',
+            ],
+            prog => '../lib/perl5db/t/disable-breakpoints-1',
+        }
+    );
+
+    $wrapper->output_like(qr#
+        ^LOREM=<10>\n
+        #msx,
+        q#Test < and > commands. #,
+    );
+}
+
 END {
     1 while unlink ($rc_filename, $out_fn);
 }
 END {
     1 while unlink ($rc_filename, $out_fn);
 }