This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate mainline
[perl5.git] / ext / threads / t / end.t
1
2 BEGIN {
3     chdir 't' if -d 't';
4     @INC = '../lib';
5     require Config; import Config;
6     unless ($Config{'useithreads'}) {
7         print "1..0 # Skip: no useithreads\n";
8         exit 0;
9     }
10 }
11
12 use ExtUtils::testlib;
13 use strict;
14 BEGIN { print "1..6\n" };
15 use threads;
16 use threads::shared;
17
18 my $test_id = 1;
19 share($test_id);
20 use Devel::Peek qw(Dump);
21
22 sub ok {
23     my ($ok, $name) = @_;
24
25     # You have to do it this way or VMS will get confused.
26     print $ok ? "ok $test_id - $name\n" : "not ok $test_id - $name\n";
27
28     printf "# Failed test at line %d\n", (caller)[2] unless $ok;
29     $test_id++;
30     return $ok;
31 }
32 ok(1);
33 END { ok(1,"End block run once") }
34 threads->create(sub { eval "END { ok(1,'') }"})->join();
35 threads->create(sub { eval "END { ok(1,'') }"})->join();
36 threads->create(\&thread)->join();
37
38 sub thread {
39         eval "END { ok(1,'') }";
40         threads->create(sub { eval "END { ok(1,'') }"})->join();
41 }