cpan/Config-Perl-V/t/27_plv5202.t

   1 #!/pro/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 BEGIN {
   7     use Test::More;
   8     my $tests = 119;
   9     unless ($ENV{PERL_CORE}) {
  10         require Test::NoWarnings;
  11         Test::NoWarnings->import ();
  12         $tests++;
  13         }
  14
  15     plan tests => $tests;
  16     }
  17
  18 use Config::Perl::V;
  19
  20 ok (my $conf = Config::Perl::V::plv2hash (<DATA>), "Read perl -v block");
  21 ok (exists $conf->{$_}, "Has $_ entry") for qw( build environment config inc );
  22
  23 is ($conf->{build}{osname}, $conf->{config}{osname}, "osname");
  24 is ($conf->{build}{stamp}, "Apr 19 2015 12:35:54", "Build time");
  25 is ($conf->{config}{version}, "5.20.2", "reconstructed \$Config{version}");
  26
  27 my $opt = Config::Perl::V::plv2hash ("")->{build}{options};
  28 foreach my $o (sort qw(
  29         HAS_TIMES MULTIPLICITY PERLIO_LAYERS
  30         PERL_DONT_CREATE_GVSV
  31         PERL_HASH_FUNC_ONE_AT_A_TIME_HARD
  32         PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP
  33         PERL_NEW_COPY_ON_WRITE PERL_PRESERVE_IVUV
  34         PERL_USE_DEVEL USE_64_BIT_ALL USE_64_BIT_INT USE_ITHREADS
  35         USE_LARGE_FILES USE_LOCALE USE_LOCALE_COLLATE
  36         USE_LOCALE_CTYPE USE_LOCALE_NUMERIC USE_LONG_DOUBLE
  37         USE_PERLIO USE_PERL_ATOF USE_REENTRANT_API
  38         )) {
  39     is ($conf->{build}{options}{$o}, 1, "Runtime option $o set");
  40     delete $opt->{$o};
  41     }
  42 foreach my $o (sort keys %$opt) {
  43     is ($conf->{build}{options}{$o}, 0, "Runtime option $o unset");
  44     }
  45
  46 eval { require Digest::MD5; };
  47 my $md5 = $@ ? "0" x 32 : "9f954ebc2be7b1d7e151ab28dbdf7062";
  48 ok (my $sig = Config::Perl::V::signature ($conf), "Get signature");
  49 is ($sig, $md5, "MD5");
  50
  51 is_deeply ($conf->{build}{patches}, [], "No local patches");
  52
  53 my %check = (
  54     alignbytes      => 16,
  55     api_version     => 20,
  56     bincompat5005   => "undef",
  57     byteorder       => 12345678,
  58     cc              => "cc",
  59     cccdlflags      => "-fPIC",
  60     ccdlflags       => "-Wl,-E",
  61     config_args     => "-Dusedevel -Duse64bitall -Dusethreads -Duseithreads -Duselongdouble -des",
  62     gccversion      => "4.8.3 20140627 [gcc-4_8-branch revision 212064]",
  63     gnulibc_version => "2.19",
  64     ivsize          => 8,
  65     ivtype          => "long",
  66     ld              => "cc",
  67     lddlflags       => "-shared -O2 -L/pro/local/lib -fstack-protector",
  68     ldflags         => "-L/pro/local/lib -fstack-protector",
  69     libc            => "libc-2.19.so",
  70     lseektype       => "off_t",
  71     osvers          => "3.16.7-13-desktop",
  72     use64bitall     => "define",
  73     use64bitint     => "define",
  74     );
  75 is ($conf->{config}{$_}, $check{$_}, "reconstructed \$Config{$_}") for sort keys %check;
  76
  77 __END__
  78 Summary of my perl5 (revision 5 version 20 subversion 2) configuration:
  79
  80   Platform:
  81     osname=linux, osvers=3.16.7-13-desktop, archname=x86_64-linux-thread-multi-ld
  82     uname='linux lx09 3.16.7-13-desktop #1 smp preempt wed mar 18 17:31:15 utc 2015 (ba2afab) x86_64 x86_64 x86_64 gnulinux '
  83     config_args='-Dusedevel -Duse64bitall -Dusethreads -Duseithreads -Duselongdouble -des'
  84     hint=recommended, useposix=true, d_sigaction=define
  85     useithreads=define, usemultiplicity=define
  86     use64bitint=define, use64bitall=define, uselongdouble=define
  87     usemymalloc=n, bincompat5005=undef
  88   Compiler:
  89     cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -fPIC -fwrapv -fno-strict-aliasing -pipe -fstack-protector -I/pro/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
  90     optimize='-O2',
  91     cppflags='-D_REENTRANT -D_GNU_SOURCE -fwrapv -fno-strict-aliasing -pipe -fstack-protector -I/pro/local/include'
  92     ccversion='', gccversion='4.8.3 20140627 [gcc-4_8-branch revision 212064]', gccosandvers=''
  93     intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
  94     d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
  95     ivtype='long', ivsize=8, nvtype='long double', nvsize=16, Off_t='off_t', lseeksize=8
  96     alignbytes=16, prototype=define
  97   Linker and Libraries:
  98     ld='cc', ldflags ='-L/pro/local/lib -fstack-protector'
  99     libpth=/usr/local/lib /usr/lib64/gcc/x86_64-suse-linux/4.8/include-fixed /usr/lib64/gcc/x86_64-suse-linux/4.8/../../../../x86_64-suse-linux/lib /usr/lib /pro/local/lib /lib/../lib64 /usr/lib/../lib64 /lib /lib64 /usr/lib64 /usr/local/lib64
 100     libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc -lgdbm_compat
 101     perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
 102     libc=libc-2.19.so, so=so, useshrplib=false, libperl=libperl.a
 103     gnulibc_version='2.19'
 104   Dynamic Linking:
 105     dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
 106     cccdlflags='-fPIC', lddlflags='-shared -O2 -L/pro/local/lib -fstack-protector'
 107
 108
 109 Characteristics of this binary (from libperl):
 110   Compile-time options: HAS_TIMES MULTIPLICITY PERLIO_LAYERS
 111                         PERL_DONT_CREATE_GVSV
 112                         PERL_HASH_FUNC_ONE_AT_A_TIME_HARD
 113                         PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP
 114                         PERL_NEW_COPY_ON_WRITE PERL_PRESERVE_IVUV
 115                         PERL_USE_DEVEL USE_64_BIT_ALL USE_64_BIT_INT
 116                         USE_ITHREADS USE_LARGE_FILES USE_LOCALE
 117                         USE_LOCALE_COLLATE USE_LOCALE_CTYPE
 118                         USE_LOCALE_NUMERIC USE_LONG_DOUBLE USE_PERLIO
 119                         USE_PERL_ATOF USE_REENTRANT_API
 120   Built under linux
 121   Compiled at Apr 19 2015 12:35:54
 122   @INC:
 123     /pro/lib/perl5/site_perl/5.20.2/x86_64-linux-thread-multi-ld
 124     /pro/lib/perl5/site_perl/5.20.2
 125     /pro/lib/perl5/5.20.2/x86_64-linux-thread-multi-ld
 126     /pro/lib/perl5/5.20.2
 127     .