1#!/pro/bin/perl 2 3use strict; 4use warnings; 5 6BEGIN { 7 use Test::More; 8 my $tests = 128; 9 unless ($ENV{PERL_CORE}) { 10 require Test::NoWarnings; 11 Test::NoWarnings->import (); 12 $tests++; 13 } 14 15 plan tests => $tests; 16 } 17 18use Config::Perl::V qw( summary ); 19 20ok (my $conf = Config::Perl::V::plv2hash (<DATA>), "Read perl -v block"); 21ok (exists $conf->{$_}, "Has $_ entry") for qw( build environment config inc ); 22 23is ($conf->{build}{osname}, $conf->{config}{osname}, "osname"); 24is ($conf->{build}{stamp}, "Apr 9 2020 17:12:07", "Build time"); 25is ($conf->{config}{version}, "5.31.11", "reconstructed \$Config{version}"); 26 27my $opt = Config::Perl::V::plv2hash ("")->{build}{options}; 28foreach my $o (sort qw( 29 DEBUGGING HAS_TIMES MULTIPLICITY PERL_COPY_ON_WRITE 30 PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT PERLIO_LAYERS 31 PERL_MALLOC_WRAP PERL_OP_PARENT PERL_PRESERVE_IVUV PERL_TRACK_MEMPOOL 32 PERL_USE_DEVEL USE_64_BIT_ALL USE_64_BIT_INT USE_ITHREADS 33 USE_LARGE_FILES USE_LOCALE USE_LOCALE_COLLATE USE_LOCALE_CTYPE 34 USE_LOCALE_NUMERIC USE_LOCALE_TIME USE_PERL_ATOF USE_PERLIO 35 USE_QUADMATH USE_REENTRANT_API USE_THREAD_SAFE_LOCALE 36 )) { 37 is ($conf->{build}{options}{$o}, 1, "Runtime option $o set"); 38 delete $opt->{$o}; 39 } 40foreach my $o (sort keys %$opt) { 41 is ($conf->{build}{options}{$o}, 0, "Runtime option $o unset"); 42 } 43 44eval { require Digest::MD5; }; 45my $md5 = $@ ? "0" x 32 : "146e648c6239f623b8a8242fc8b5759f"; 46ok (my $sig = Config::Perl::V::signature ($conf), "Get signature"); 47is ($sig, $md5, "MD5"); 48 49is_deeply ($conf->{build}{patches}, [ ], "No patches"); 50 51my %check = ( 52 alignbytes => 16, 53 api_version => 31, 54 bincompat5005 => "undef", 55 byteorder => 12345678, 56 cc => "cc", 57 cccdlflags => "-fPIC", 58 ccdlflags => "-Wl,-E", 59 config_args => "-Dusedevel -Duse64bitall -Dusethreads -Duseithreads -Dusequadmath -des", 60 gccversion => "10.0.1 20200302 (experimental) [revision 778a77357cad11e8dd4c810544330af0fbe843b1]", 61 gnulibc_version => "2.31", 62 ivsize => 8, 63 ivtype => "long", 64 ld => "cc", 65 lddlflags => "-shared -O2 -L/pro/local/lib -fstack-protector-strong", 66 ldflags => "-L/pro/local/lib -fstack-protector-strong", 67 libc => "libc-2.31.so", 68 lseektype => "off_t", 69 osvers => "5.6.2-1-default", 70 use64bitall => "define", 71 use64bitint => "define", 72 usemymalloc => "n", 73 default_inc_excludes_dot 74 => "define", 75 ); 76is ($conf->{config}{$_}, $check{$_}, "reconstructed \$Config{$_}") for sort keys %check; 77 78ok (my $info = summary ($conf), "A summary"); 79ok (exists $info->{$_}, "Summary has $_") for qw( cc config_args usemymalloc default_inc_excludes_dot ); 80is ($info->{default_inc_excludes_dot}, "define", "This build has . NOT in INC"); 81 82__END__ 83Summary of my perl5 (revision 5 version 31 subversion 11) configuration: 84 Snapshot of: +0300 85 Platform: 86 osname=linux 87 osvers=5.6.2-1-default 88 archname=x86_64-linux-thread-multi-quadmath 89 uname='linux lx09 5.6.2-1-default #1 smp thu apr 2 06:31:32 utc 2020 (c8170d6) x86_64 x86_64 x86_64 gnulinux ' 90 config_args='-Dusedevel -Duse64bitall -Dusethreads -Duseithreads -Dusequadmath -des' 91 hint=recommended 92 useposix=true 93 d_sigaction=define 94 useithreads=define 95 usemultiplicity=define 96 use64bitint=define 97 use64bitall=define 98 uselongdouble=undef 99 usemymalloc=n 100 default_inc_excludes_dot=define 101 bincompat5005=undef 102 Compiler: 103 cc='cc' 104 ccflags ='-D_REENTRANT -D_GNU_SOURCE -fPIC -DDEBUGGING -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/pro/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_FORTIFY_SOURCE=2' 105 optimize='-O2' 106 cppflags='-D_REENTRANT -D_GNU_SOURCE -fPIC -DDEBUGGING -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/pro/local/include' 107 ccversion='' 108 gccversion='10.0.1 20200302 (experimental) [revision 778a77357cad11e8dd4c810544330af0fbe843b1]' 109 gccosandvers='' 110 intsize=4 111 longsize=8 112 ptrsize=8 113 doublesize=8 114 byteorder=12345678 115 doublekind=3 116 d_longlong=define 117 longlongsize=8 118 d_longdbl=define 119 longdblsize=16 120 longdblkind=3 121 ivtype='long' 122 ivsize=8 123 nvtype='__float128' 124 nvsize=16 125 Off_t='off_t' 126 lseeksize=8 127 alignbytes=16 128 prototype=define 129 Linker and Libraries: 130 ld='cc' 131 ldflags ='-L/pro/local/lib -fstack-protector-strong' 132 libpth=/usr/local/lib /usr/lib64/gcc/x86_64-suse-linux/10/include-fixed /usr/lib64/gcc/x86_64-suse-linux/10/../../../../x86_64-suse-linux/lib /usr/lib /pro/local/lib /lib/../lib64 /usr/lib/../lib64 /lib /lib64 /usr/lib64 /usr/local/lib64 133 libs=-lpthread -lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc -lgdbm_compat -lquadmath 134 perllibs=-lpthread -lnsl -ldl -lm -lcrypt -lutil -lc -lquadmath 135 libc=libc-2.31.so 136 so=so 137 useshrplib=false 138 libperl=libperl.a 139 gnulibc_version='2.31' 140 Dynamic Linking: 141 dlsrc=dl_dlopen.xs 142 dlext=so 143 d_dlsymun=undef 144 ccdlflags='-Wl,-E' 145 cccdlflags='-fPIC' 146 lddlflags='-shared -O2 -L/pro/local/lib -fstack-protector-strong' 147 148 149Characteristics of this binary (from libperl): 150 Compile-time options: 151 DEBUGGING 152 HAS_TIMES 153 MULTIPLICITY 154 PERLIO_LAYERS 155 PERL_COPY_ON_WRITE 156 PERL_DONT_CREATE_GVSV 157 PERL_IMPLICIT_CONTEXT 158 PERL_MALLOC_WRAP 159 PERL_OP_PARENT 160 PERL_PRESERVE_IVUV 161 PERL_TRACK_MEMPOOL 162 PERL_USE_DEVEL 163 USE_64_BIT_ALL 164 USE_64_BIT_INT 165 USE_ITHREADS 166 USE_LARGE_FILES 167 USE_LOCALE 168 USE_LOCALE_COLLATE 169 USE_LOCALE_CTYPE 170 USE_LOCALE_NUMERIC 171 USE_LOCALE_TIME 172 USE_PERLIO 173 USE_PERL_ATOF 174 USE_QUADMATH 175 USE_REENTRANT_API 176 USE_THREAD_SAFE_LOCALE 177 Built under linux 178 Compiled at Apr 9 2020 17:12:07 179 %ENV: 180 PERL6LIB="inst#/pro/3gl/CPAN/rakudo/install" 181 @INC: 182 lib 183 /pro/lib/perl5/site_perl/5.31.11/x86_64-linux-thread-multi-quadmath 184 /pro/lib/perl5/site_perl/5.31.11 185 /pro/lib/perl5/5.31.11/x86_64-linux-thread-multi-quadmath 186 /pro/lib/perl5/5.31.11 187