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