This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove regex postive super-linear cache code
[perl5.git] / ext / POSIX / t / sysconf.t
CommitLineData
6e32c255
AT
1#!perl -T
2
3BEGIN {
4 if ($ENV{PERL_CORE}) {
5 chdir 't';
6 @INC = '../lib';
7 }
8
9 use Config;
10 use Test::More;
11 plan skip_all => "POSIX is unavailable" if $Config{'extensions'} !~ m!\bPOSIX\b!;
12}
13
14use strict;
15use File::Spec;
16use POSIX;
17use Scalar::Util qw(looks_like_number);
18
60e845e3
YO
19sub check(@) {
20 grep { eval "&$_;1" or $@!~/vendor has not defined POSIX macro/ } @_
21}
22
23my @path_consts = check qw(
220f811a
JH
24 _PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_NAME_MAX
25 _PC_NO_TRUNC _PC_PATH_MAX
26);
27
60e845e3 28my @path_consts_terminal = check qw(
220f811a
JH
29 _PC_MAX_CANON _PC_MAX_INPUT _PC_VDISABLE
30);
31
60e845e3 32my @path_consts_fifo = check qw(
220f811a 33 _PC_PIPE_BUF
6e32c255
AT
34);
35
60e845e3 36my @sys_consts = check qw(
6e32c255
AT
37 _SC_ARG_MAX _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL
38 _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS
39 _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION
40);
c6f58167
JH
41
42my $tests = 2 * 3 * @path_consts +
43 2 * 3 * @path_consts_terminal +
44 2 * 3 * @path_consts_fifo +
45 3 * @sys_consts;
60e845e3
YO
46plan $tests
47 ? (tests => $tests)
48 : (skip_all => "No tests to run on this OS")
49;
220f811a
JH
50
51my $curdir = File::Spec->curdir;
6e32c255
AT
52
53my $r;
54
220f811a 55# testing fpathconf() on a non-terminal file
6e32c255 56SKIP: {
220f811a
JH
57 my $fd = POSIX::open($curdir, O_RDONLY)
58 or skip "could not open current directory ($!)", 3 * @path_consts;
6e32c255
AT
59
60 for my $constant (@path_consts) {
220f811a
JH
61 $r = eval { fpathconf( $fd, eval "$constant()" ) };
62 is( $@, '', "calling fpathconf($fd, $constant) " );
6e32c255
AT
63 ok( defined $r, "\tchecking that the returned value is defined: $r" );
64 ok( looks_like_number($r), "\tchecking that the returned value looks like a number" );
65 }
220f811a
JH
66
67 POSIX::close($fd);
6e32c255
AT
68}
69
220f811a 70# testing pathconf() on a non-terminal file
6e32c255 71for my $constant (@path_consts) {
220f811a
JH
72 $r = eval { pathconf( $curdir, eval "$constant()" ) };
73 is( $@, '', qq[calling pathconf("$curdir", $constant)] );
6e32c255
AT
74 ok( defined $r, "\tchecking that the returned value is defined: $r" );
75 ok( looks_like_number($r), "\tchecking that the returned value looks like a number" );
76}
77
220f811a 78SKIP: {
c6f58167
JH
79 my $TTY = "/dev/tty";
80
81 my $n = 2 * 3 * @path_consts_terminal;
82
83 -c $TTY
84 or skip("$TTY not a character file", $n);
85 open(TTY, $TTY)
86 or skip("failed to open $TTY: $!", $n);
87 -t TTY
88 or skip("TTY ($TTY) not a terminal file", $n);
220f811a 89
c6f58167
JH
90 my $fd = fileno(TTY);
91
92 # testing fpathconf() on a terminal file
93 for my $constant (@path_consts_terminal) {
94 $r = eval { fpathconf( $fd, eval "$constant()" ) };
95 is( $@, '', qq[calling fpathconf($fd, $constant) ($TTY)] );
96 ok( defined $r, "\tchecking that the returned value is defined: $r" );
97 ok( looks_like_number($r), "\tchecking that the returned value looks like a number" );
98 }
99
100 close($fd);
220f811a
JH
101 # testing pathconf() on a terminal file
102 for my $constant (@path_consts_terminal) {
c6f58167
JH
103 $r = eval { pathconf( $TTY, eval "$constant()" ) };
104 is( $@, '', qq[calling pathconf($TTY, $constant)] );
220f811a
JH
105 ok( defined $r, "\tchecking that the returned value is defined: $r" );
106 ok( looks_like_number($r), "\tchecking that the returned value looks like a number" );
107 }
108}
109
110my $fifo = "fifo$$";
111
112SKIP: {
60e845e3 113 eval { mkfifo($fifo, 0666) }
220f811a
JH
114 or skip("could not create fifo $fifo ($!)", 2 * 3 * @path_consts_fifo);
115
116 SKIP: {
117 my $fd = POSIX::open($fifo, O_RDWR)
118 or skip("could not open $fifo ($!)", 3 * @path_consts_fifo);
119
120 for my $constant (@path_consts_fifo) {
121 $r = eval { fpathconf( $fd, eval "$constant()" ) };
c6f58167 122 is( $@, '', "calling fpathconf($fd, $constant) ($fifo)" );
220f811a
JH
123 ok( defined $r, "\tchecking that the returned value is defined: $r" );
124 ok( looks_like_number($r), "\tchecking that the returned value looks like a number" );
125 }
126
127 POSIX::close($fd);
128 }
129
130 SKIP: {
131 # testing pathconf() on a fifo file
132 for my $constant (@path_consts_fifo) {
133 $r = eval { pathconf( $fifo, eval "$constant()" ) };
134 is( $@, '', qq[calling pathconf($fifo, $constant)] );
135 ok( defined $r, "\tchecking that the returned value is defined: $r" );
136 ok( looks_like_number($r), "\tchecking that the returned value looks like a number" );
137 }
138 }
139}
140
c6f58167
JH
141END {
142 1 while unlink($fifo);
143}
220f811a 144
6e32c255
AT
145# testing sysconf()
146for my $constant (@sys_consts) {
2abaefe1
DD
147 SKIP: {
148 skip "Saved IDs broken on Mac OS X (Perl #24122)", 3
149 if $^O eq 'darwin' && $constant eq '_SC_SAVED_IDS';
150 $r = eval { sysconf( eval "$constant()" ) };
151 is( $@, '', "calling sysconf($constant)" );
152 ok( defined $r, "\tchecking that the returned value is defined: $r" );
153 ok( looks_like_number($r), "\tchecking that the returned value looks like a number" );
154 }
6e32c255
AT
155}
156