Move threads from ext/ to dist/
[perl.git] / dist / threads / t / stack_env.t
1 use strict;
2 use warnings;
3
4 BEGIN {
5     use Config;
6     if (! $Config{'useithreads'}) {
7         print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
8         exit(0);
9     }
10 }
11
12 use ExtUtils::testlib;
13
14 sub ok {
15     my ($id, $ok, $name) = @_;
16
17     # You have to do it this way or VMS will get confused.
18     if ($ok) {
19         print("ok $id - $name\n");
20     } else {
21         print("not ok $id - $name\n");
22         printf("# Failed test at line %d\n", (caller)[2]);
23     }
24
25     return ($ok);
26 }
27
28 BEGIN {
29     $| = 1;
30     print("1..4\n");   ### Number of tests that will be run ###
31
32     $ENV{'PERL5_ITHREADS_STACK_SIZE'} = 128*4096;
33 };
34
35 use threads;
36 ok(1, 1, 'Loaded');
37
38 ### Start of Testing ###
39
40 ok(2, threads->get_stack_size() == 128*4096,
41         '$ENV{PERL5_ITHREADS_STACK_SIZE}');
42 ok(3, threads->set_stack_size(144*4096) == 128*4096,
43         'Set returns previous value');
44 ok(4, threads->get_stack_size() == 144*4096,
45         'Get stack size');
46
47 exit(0);
48
49 # EOF