This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make the new sigtrap.t test more tolerant of OS differences
[perl5.git] / lib / sigtrap.t
index 0469a9a..30f5339 100644 (file)
@@ -57,13 +57,13 @@ $SIG{FAKE} = 'IGNORE';
 sigtrap->import('untrapped', 'FAKE');
 is( $SIG{FAKE}, 'IGNORE', 'respect existing handler set to IGNORE' );
 
 sigtrap->import('untrapped', 'FAKE');
 is( $SIG{FAKE}, 'IGNORE', 'respect existing handler set to IGNORE' );
 
-fresh_perl_like
-  '
-    use sigtrap "INT";
-    sub { kill "INT", $$ } -> (3)
-  ',
-   qr/\$ = main::__ANON__\(3\) called/,
-  { stderr => 1 },
+unlike
+   runperl(
+    switches => [ '-Msigtrap=INT' ],
+    prog => 'sub { kill q-INT-, $$ } -> (3)',
+    stderr => 1
+   ),
+   qr/Modification of a read-only value/,
   "stack-trace does not try to modify read-only arguments"
 ;
 
   "stack-trace does not try to modify read-only arguments"
 ;