Convert another test to DebugWrap.

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 6efb74e..33fe9bb 100644 (file)
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -83,17 +83,6 @@ EOF
     );
 }
 
-SKIP: {
-    if ( $Config{usethreads} ) {
-        local $ENV{PERLDB_OPTS} = "ReadLine=0 NonStop=1";
-        my $output = runperl(switches => [ '-dt' ], progfile => '../lib/perl5db/t/symbol-table-bug');
-        like($output, qr/Undefined symbols 0/, 'there are no undefined values in the symbol table when running with thread support');
-    } else {
-        skip("This perl is not threaded, skipping threaded debugger tests");
-    }
-}
-
-
 # Test [perl #61222]
 {
     local $ENV{PERLDB_OPTS};
@@ -493,6 +482,25 @@ SKIP:
     }
 }
 
+SKIP:
+{
+    if ( $Config{usethreads} ) {
+        calc_new_var_wrapper(
+            {
+                prog =>  '../lib/perl5db/t/symbol-table-bug',
+                switches => [ '-dt', ],
+                stderr => 1,
+            }
+        )->output_like(
+            qr/Undefined symbols 0/,
+            'there are no undefined values in the symbol table when running with thread support',
+        );
+    }
+    else {
+        skip("This perl is not threaded, skipping threaded debugger tests");
+    }
+}
+
 # Testing that we can set a line in the middle of the file.
 {
     my $wrapper = DebugWrap->new(