This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Check each line of config_re output.
[perl5.git] / lib / Config.t
CommitLineData
a48f8c77
MS
1#!./perl
2
41aba5b7
JH
3BEGIN {
4 chdir 't' if -d 't';
5 @INC = '../lib';
6 require "./test.pl";
7}
8
8d871aab 9plan 'no_plan';
41aba5b7
JH
10
11use_ok('Config');
12
13# Some (safe?) bets.
14
484fdf61 15ok(keys %Config > 500, "Config has more than 500 entries");
41aba5b7
JH
16
17ok(each %Config);
18
19is($Config{PERL_REVISION}, 5, "PERL_REVISION is 5");
20
d10bb151
MS
21# Check that old config variable names are aliased to their new ones.
22my %grandfathers = ( PERL_VERSION => 'PATCHLEVEL',
23 PERL_SUBVERSION => 'SUBVERSION',
24 PERL_CONFIG_SH => 'CONFIG'
25 );
26while( my($new, $old) = each %grandfathers ) {
27 isnt($Config{$new}, undef, "$new is defined");
28 is($Config{$new}, $Config{$old}, "$new is aliased to $old");
29}
30
41aba5b7
JH
31ok( exists $Config{cc}, "has cc");
32
33ok( exists $Config{ccflags}, "has ccflags");
34
35ok(!exists $Config{python}, "has no python");
36
37ok( exists $Config{d_fork}, "has d_fork");
38
39ok(!exists $Config{d_bork}, "has no d_bork");
40
7956ade2
JH
41like($Config{ivsize}, qr/^(4|8)$/, "ivsize is 4 or 8 (it is $Config{ivsize})");
42
8d871aab 43# byteorder is virtual, but it has rules.
41aba5b7 44
7956ade2 45like($Config{byteorder}, qr/^(1234|4321|12345678|87654321)$/, "byteorder is 1234 or 4321 or 12345678 or 87654321 (it is $Config{byteorder})");
41aba5b7 46
7956ade2 47is(length $Config{byteorder}, $Config{ivsize}, "byteorder is as long as ivsize (which is $Config{ivsize})");
41aba5b7
JH
48
49# ccflags_nolargefiles is virtual, too.
50
51ok(exists $Config{ccflags_nolargefiles}, "has ccflags_nolargefiles");
52
53# Utility functions.
54
a48f8c77
MS
55{
56 # make sure we can export what we say we can export.
57 package Foo;
58 my @exports = qw(myconfig config_sh config_vars config_re);
59 Config->import(@exports);
60 foreach my $func (@exports) {
61 ::ok( __PACKAGE__->can($func), "$func exported" );
62 }
6664971e 63}
41aba5b7 64
9d60fda3
NC
65like(Config::myconfig(), qr/osname=\Q$Config{osname}\E/, "myconfig");
66like(Config::config_sh(), qr/osname='\Q$Config{osname}\E'/, "config_sh");
8d871aab
NC
67foreach my $line (Config::config_re('c.*')) {
68 like($line, qr/^c.*?=.*$/, 'config_re' );
69}
a48f8c77 70
41aba5b7
JH
71my $out = tie *STDOUT, 'FakeOut';
72
73Config::config_vars('cc');
74my $out1 = $$out;
75$out->clear;
76
77Config::config_vars('d_bork');
78my $out2 = $$out;
79$out->clear;
80
4a305f6a
JC
81Config::config_vars('PERL_API_.*');
82my $out3 = $$out;
83$out->clear;
84
85Config::config_vars(':PERL_API_.*:');
86my $out4 = $$out;
87$out->clear;
41aba5b7 88
4a305f6a
JC
89Config::config_vars(':PERL_API_REVISION:');
90my $out5 = $$out;
91$out->clear;
92
0c6e7072
RB
93Config::config_vars('?flags');
94my $out6 = $$out;
95$out->clear;
96
4a305f6a 97untie *STDOUT;
9d60fda3 98like($out1, qr/^cc='\Q$Config{cc}\E';/, "config_vars cc");
41aba5b7
JH
99like($out2, qr/^d_bork='UNKNOWN';/, "config_vars d_bork is UNKNOWN");
100
4a305f6a
JC
101is(3, scalar split(/\n/, $out3), "3 PERL_API vars found");
102my @api = $out3 =~ /^PERL_API_(\w+)=(.*);/mg;
103is("'5'", $api[1], "1st is 5");
104is("'9'", $api[5], "2nd is 9");
105is("'1'", $api[3], "3rd is 1");
106@api = split(/ /, $out4);
107is(3, @api, "trailing colon puts 3 terms on same line");
108unlike($out4, qr/=/, "leading colon suppresses param names");
109is("'5'", $api[0], "revision is 5");
110is("'9'", $api[2], "version is 9");
111is("'1'", $api[1], "subversion is 1");
112
113is("'5' ", $out5, "leading and trailing colons return just the value");
0c6e7072
RB
114
115like($out6, qr/\bnot\s+found\b/, "config_vars with invalid regexp");
116
41aba5b7
JH
117# Read-only.
118
7956ade2 119undef $@;
41aba5b7
JH
120eval { $Config{d_bork} = 'borkbork' };
121like($@, qr/Config is read-only/, "no STORE");
122
7956ade2
JH
123ok(!exists $Config{d_bork}, "still no d_bork");
124
125undef $@;
41aba5b7
JH
126eval { delete $Config{d_fork} };
127like($@, qr/Config is read-only/, "no DELETE");
128
7956ade2
JH
129ok( exists $Config{d_fork}, "still d_fork");
130
131undef $@;
41aba5b7
JH
132eval { %Config = () };
133like($@, qr/Config is read-only/, "no CLEAR");
134
7956ade2
JH
135ok( exists $Config{d_fork}, "still d_fork");
136
059ca955
RGS
137{
138 package FakeOut;
41aba5b7 139
059ca955
RGS
140 sub TIEHANDLE {
141 bless(\(my $text), $_[0]);
142 }
41aba5b7 143
059ca955
RGS
144 sub clear {
145 ${ $_[0] } = '';
146 }
41aba5b7 147
059ca955
RGS
148 sub PRINT {
149 my $self = shift;
150 $$self .= join('', @_);
151 }
41aba5b7
JH
152}
153
059ca955
RGS
154# Signal-related variables
155# (this is actually a regression test for Configure.)
156
b25be8c8
JH
157is($Config{sig_num_init} =~ tr/,/,/, $Config{sig_size}, "sig_num_init size");
158is($Config{sig_name_init} =~ tr/,/,/, $Config{sig_size}, "sig_name_init size");