This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: generate folded for EXACTF and EXACTFU
[perl5.git] / t / porting / globvar.t
CommitLineData
1f7ae1be
NC
1#!perl -w
2
3use TestInit qw(T);
4use strict;
5use Config;
6
7require 't/test.pl';
8
9skip_all("Code to read symbols not ported to $^O")
b63f993a 10 if $^O eq 'VMS' or $^O eq 'MSWin32';
1f7ae1be
NC
11
12# Not investigated *why* we don't export these, but we don't, and we've not
13# received any bug reports about it causing problems:
14my %skip = map { ("PL_$_", 1) }
15 qw(
16 DBcv bitcount cshname force_link_funcs generation lastgotoprobe
b36527fc 17 mod_latin1_uc modcount no_symref_sv timesbuf uudmap
7833c8a6 18 watchaddr watchok warn_uninit_sv
1f7ae1be
NC
19 );
20
21my $trial = "nm globals$Config{_o} 2>&1";
22my $yes = `$trial`;
23
24skip_all("Could not run `$trial`") if $?;
25
26my $defined = qr/^[0-9a-fA-F]{8,16}\s+[^Uu]\s+_?/m;
27
28skip_all("Could not spot definition of PL_Yes in output of `$trial`")
29 unless $yes =~ /${defined}PL_Yes/m;
30
31my %exported;
32open my $fh, '-|', $^X, '-Ilib', './makedef.pl', 'PLATFORM=test'
33 or die "Can't run makedef.pl";
34
35while (<$fh>) {
36 next unless /^PL_/;
37 chomp;
38 ++$exported{$_};
39}
40
41close $fh or die "Problem running makedef.pl";
42
43my %unexported;
44
45foreach my $file (map {$_ . $Config{_o}} qw(globals regcomp)) {
46 open $fh, '-|', 'nm', $file
47 or die "Can't run nm $file";
48
49 while (<$fh>) {
50 next unless /$defined(PL_\S+)/;
51 if (delete $exported{$1}) {
52 note("Seen definition of $1");
53 next;
54 }
55 ++$unexported{$1};
56 }
57 close $fh or die "Problem running nm $file";
58}
59
60fail("Attempting to export '$_' which is never defined")
61 foreach sort keys %exported;
62
63foreach (sort keys %unexported) {
64 SKIP: {
65 skip("We don't export $_", 1) if $skip{$_};
66 fail("$_ is defined, but we do not export it");
67 }
68}
69
70done_testing();