Commit | Line | Data |
---|---|---|
a48f8c77 MS |
1 | #!./perl |
2 | ||
41aba5b7 JH |
3 | BEGIN { |
4 | chdir 't' if -d 't'; | |
5 | @INC = '../lib'; | |
6 | require "./test.pl"; | |
7 | } | |
8 | ||
059ca955 | 9 | plan tests => 36; |
41aba5b7 JH |
10 | |
11 | use_ok('Config'); | |
12 | ||
13 | # Some (safe?) bets. | |
14 | ||
484fdf61 | 15 | ok(keys %Config > 500, "Config has more than 500 entries"); |
41aba5b7 JH |
16 | |
17 | ok(each %Config); | |
18 | ||
19 | is($Config{PERL_REVISION}, 5, "PERL_REVISION is 5"); | |
20 | ||
d10bb151 MS |
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 JH |
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 JH |
41 | like($Config{ivsize}, qr/^(4|8)$/, "ivsize is 4 or 8 (it is $Config{ivsize})"); |
42 | ||
41aba5b7 JH |
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 JH |
48 | |
49 | # ccflags_nolargefiles is virtual, too. | |
50 | ||
51 | ok(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 |
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 MS |
67 | like(join("\n", Config::config_re('c.*')), |
68 | qr/^c.*?=/, 'config_re' ); | |
69 | ||
41aba5b7 JH |
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 | ||
80 | untie *STDOUT; | |
81 | ||
9d60fda3 | 82 | like($out1, qr/^cc='\Q$Config{cc}\E';/, "config_vars cc"); |
41aba5b7 JH |
83 | like($out2, qr/^d_bork='UNKNOWN';/, "config_vars d_bork is UNKNOWN"); |
84 | ||
85 | # Read-only. | |
86 | ||
7956ade2 | 87 | undef $@; |
41aba5b7 JH |
88 | eval { $Config{d_bork} = 'borkbork' }; |
89 | like($@, qr/Config is read-only/, "no STORE"); | |
90 | ||
7956ade2 JH |
91 | ok(!exists $Config{d_bork}, "still no d_bork"); |
92 | ||
93 | undef $@; | |
41aba5b7 JH |
94 | eval { delete $Config{d_fork} }; |
95 | like($@, qr/Config is read-only/, "no DELETE"); | |
96 | ||
7956ade2 JH |
97 | ok( exists $Config{d_fork}, "still d_fork"); |
98 | ||
99 | undef $@; | |
41aba5b7 JH |
100 | eval { %Config = () }; |
101 | like($@, qr/Config is read-only/, "no CLEAR"); | |
102 | ||
7956ade2 JH |
103 | ok( exists $Config{d_fork}, "still d_fork"); |
104 | ||
059ca955 RGS |
105 | { |
106 | package FakeOut; | |
41aba5b7 | 107 | |
059ca955 RGS |
108 | sub TIEHANDLE { |
109 | bless(\(my $text), $_[0]); | |
110 | } | |
41aba5b7 | 111 | |
059ca955 RGS |
112 | sub clear { |
113 | ${ $_[0] } = ''; | |
114 | } | |
41aba5b7 | 115 | |
059ca955 RGS |
116 | sub PRINT { |
117 | my $self = shift; | |
118 | $$self .= join('', @_); | |
119 | } | |
41aba5b7 JH |
120 | } |
121 | ||
059ca955 RGS |
122 | # Signal-related variables |
123 | # (this is actually a regression test for Configure.) | |
124 | ||
b25be8c8 JH |
125 | is($Config{sig_num_init} =~ tr/,/,/, $Config{sig_size}, "sig_num_init size"); |
126 | is($Config{sig_name_init} =~ tr/,/,/, $Config{sig_size}, "sig_name_init size"); |