Convert a test to DebugWrap.

[perl5.git] / lib / perl5db.t

diff --git a/lib/perl5db.t b/lib/perl5db.t
index b48b191..94a923e 100644 (file)
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -65,10 +65,7 @@ sub _out_contents
     return _slurp($out_fn);
 }
 
     return _slurp($out_fn);
 }
 

-

 {
 {

-    my $target = '../lib/perl5db/t/eval-line-bug';
-

     rc(
         <<"EOF",
     &parse_options("NonStop=0 TTY=db.out LineInfo=db.out");
     rc(
         <<"EOF",
     &parse_options("NonStop=0 TTY=db.out LineInfo=db.out");


@@ -84,17 +81,8 @@ sub _out_contents
     }
 EOF
     );
     }
 EOF
     );

-
-    {
-        local $ENV{PERLDB_OPTS} = "ReadLine=0";
-        runperl(switches => [ '-d' ], progfile => $target);
-    }

 }
 
 }
 

-like(_out_contents(), qr/new_var = <Foo>/,
-    "no strict 'vars' in evaluated lines.",
-);
-

 {
     local $ENV{PERLDB_OPTS} = "ReadLine=0";
     my $output = runperl(switches => [ '-d' ], progfile => '../lib/perl5db/t/lvalue-bug');
 {
     local $ENV{PERLDB_OPTS} = "ReadLine=0";
     my $output = runperl(switches => [ '-d' ], progfile => '../lib/perl5db/t/lvalue-bug');


@@ -405,6 +393,27 @@ package main;
     );
 }
 
     );
 }
 

+{
+    local $ENV{PERLDB_OPTS} = "ReadLine=0";
+    my $target = '../lib/perl5db/t/eval-line-bug';
+    my $wrapper = DebugWrap->new(
+        {
+            cmds =>
+            [
+                'b 23',
+                'n',
+                '$new_var = "Foo"',
+                'x "new_var = <$new_var>\\n"',
+                'q',
+            ],
+            prog => $target,
+        }
+    );
+
+    $wrapper->contents_like( qr/new_var = <Foo>/,
+        "no strict 'vars' in evaluated lines.",
+    );
+}

 # Testing that we can set a line in the middle of the file.
 {
     my $wrapper = DebugWrap->new(
 # Testing that we can set a line in the middle of the file.
 {
     my $wrapper = DebugWrap->new(