This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/threads.t: tests for RT #41121
authorDan Collins <dcollinsn@gmail.com>
Thu, 14 Jul 2016 20:23:52 +0000 (16:23 -0400)
committerYves Orton <demerphq@gmail.com>
Fri, 21 Oct 2016 07:09:44 +0000 (09:09 +0200)
t/op/threads.t

index 298db20..99e69bd 100644 (file)
@@ -9,7 +9,7 @@ BEGIN {
      skip_all_without_config('useithreads');
      skip_all_if_miniperl("no dynamic loading on miniperl, no threads");
 
-     plan(29);
+     plan(30);
 }
 
 use strict;
@@ -416,5 +416,11 @@ $List[3] = $v;
 printf "%s,%s", @List[(3)], $List[3];
 CODE
 
+fresh_perl_like(<<'CODE', qr/ok/, {}, 'RT #41121 binmode(STDOUT,":encoding(utf8) does not crash');
+use threads;
+binmode(STDOUT,":encoding(utf8)");
+threads->create(sub{});
+print "ok\n";
+CODE
 
 # EOF