Convert another test to DebugWrap.

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 9e40776..017e54f 100644 (file)
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -83,12 +83,6 @@ EOF
     );
 }
 
-{
-    local $ENV{PERLDB_OPTS} = "ReadLine=0 NonStop=1";
-    my $output = runperl(switches => [ '-d' ], progfile => '../lib/perl5db/t/symbol-table-bug');
-    like($output, qr/Undefined symbols 0/, 'there are no undefined values in the symbol table');
-}
-
 SKIP: {
     if ( $Config{usethreads} ) {
         skip('This perl has threads, skipping non-threaded debugger tests');
@@ -458,6 +452,19 @@ sub calc_new_var_wrapper
          );
 }
 
+{
+    calc_new_var_wrapper(
+        {
+            prog =>  '../lib/perl5db/t/symbol-table-bug',
+            extra_opts => "NonStop=1",
+            stderr => undef(),
+        }
+    )->output_like(
+        qr/Undefined symbols 0/,
+        'there are no undefined values in the symbol table',
+    );
+}
+
 # Testing that we can set a line in the middle of the file.
 {
     my $wrapper = DebugWrap->new(