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