t/porting/globvar.t

   1 #!perl -w
   2
   3 use TestInit qw(T);
   4 use strict;
   5 use Config;
   6
   7 require './t/test.pl';
   8
   9 skip_all("Code to read symbols not ported to $^O")
  10     if $^O eq 'VMS' or $^O eq 'MSWin32';
  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:
  14 my %skip = map { ("PL_$_", 1) }
  15     qw(
  16           DBcv bitcount cshname force_link_funcs generation lastgotoprobe
  17           mod_latin1_uc modcount no_symref_sv uudmap
  18           watchaddr watchok warn_uninit_sv hash_chars
  19      );
  20
  21 $skip{PL_hash_rand_bits}= $skip{PL_hash_rand_bits_enabled}= 1; # we can be compiled without these, so skip testing them
  22 $skip{PL_warn_locale}= 1; # we can be compiled without locales, so skip testing them
  23
  24
  25 my $trial = "nm globals$Config{_o} 2>&1";
  26 my $yes = `$trial`;
  27
  28 skip_all("Could not run `$trial`") if $?;
  29
  30 my $defined = qr/^[0-9a-fA-F]{8,16}\s+[^Uu]\s+_?/m;
  31
  32 skip_all("Could not spot definition of PL_Yes in output of `$trial`")
  33     unless $yes =~ /${defined}PL_Yes/m;
  34
  35 my %exported;
  36 open my $fh, '-|', $^X, '-Ilib', './makedef.pl', 'PLATFORM=test'
  37     or die "Can't run makedef.pl";
  38
  39 while (<$fh>) {
  40     next unless /^PL_/;
  41     chomp;
  42     ++$exported{$_};
  43 }
  44
  45 close $fh or die "Problem running makedef.pl";
  46
  47 my %unexported;
  48
  49 foreach my $file (map {$_ . $Config{_o}} qw(globals regcomp)) {
  50     open $fh, '-|', 'nm', $file
  51         or die "Can't run nm $file";
  52
  53     while (<$fh>) {
  54         next unless /$defined(PL_\S+)/;
  55         if (delete $exported{$1}) {
  56             note("Seen definition of $1");
  57             next;
  58         }
  59         ++$unexported{$1};
  60     }
  61     close $fh or die "Problem running nm $file";
  62 }
  63
  64 unless ($Config{d_double_has_inf}) {
  65     $skip{PL_inf}++;
  66 }
  67 unless ($Config{d_double_has_nan}) {
  68     $skip{PL_nan}++;
  69 }
  70
  71 foreach (sort keys %exported) {
  72  SKIP: {
  73     skip("We dont't export '$_' (Perl not built with this enabled?)",1) if $skip{$_};
  74     fail("Attempting to export '$_' which is never defined");
  75  }
  76 }
  77
  78 foreach (sort keys %unexported) {
  79  SKIP: {
  80         skip("We don't export '$_'", 1) if $skip{$_};
  81         fail("'$_' is defined, but we do not export it");
  82     }
  83 }
  84
  85 done_testing();