t/26_plv5182.t

   1 #!/pro/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 BEGIN {
   7     use Test::More;
   8     my $tests = 118;
   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}, "Jan  9 2014 09:22:04", "Build time");
  25 is ($conf->{config}{version}, "5.18.2", "reconstructed \$Config{version}");
  26
  27 # Some random checks
  28 is ($conf->{build}{options}{$_}, 0, "Runtime option $_") for qw(
  29     DEBUG_LEAKING_SCALARS NO_HASH_SEED PERL_MEM_LOG_STDERR PERL_MEM_LOG_ENV
  30     PERL_MEM_LOG_TIMESTAMP PERL_MICRO USE_ATTRIBUTES_FOR_PERLIO VMS_DO_SOCKETS );
  31 is ($conf->{build}{options}{$_}, 0, "Runtime option $_ unset") for qw(
  32     DEBUGGING DEBUG_LEAKING_SCALARS DEBUG_LEAKING_SCALARS_FORK_DUMP
  33     DECCRTL_SOCKETS FAKE_THREADS FCRYPT HAVE_INTERP_INTERN MULTIPLICITY
  34     MYMALLOC NO_HASH_SEED NO_MATHOMS NO_TAINT_SUPPORT PERL_BOOL_AS_CHAR
  35     PERL_DEBUG_READONLY_COW PERL_DEBUG_READONLY_OPS PERL_DISABLE_PMC
  36     PERL_EXTERNAL_GLOB PERL_GLOBAL_STRUCT PERL_GLOBAL_STRUCT_PRIVATE
  37     PERL_HASH_FUNC_DJB2 PERL_HASH_FUNC_MURMUR3 PERL_HASH_FUNC_ONE_AT_A_TIME
  38     PERL_HASH_FUNC_ONE_AT_A_TIME_HARD PERL_HASH_FUNC_ONE_AT_A_TIME_OLD
  39     PERL_HASH_FUNC_SDBM PERL_HASH_FUNC_SIPHASH PERL_HASH_FUNC_SUPERFAST
  40     PERL_IMPLICIT_CONTEXT PERL_IMPLICIT_SYS PERL_IS_MINIPERL PERL_MAD
  41     PERL_MALLOC_WRAP PERL_MEM_LOG PERL_MEM_LOG_ENV PERL_MEM_LOG_ENV_FD
  42     PERL_MEM_LOG_NOIMPL PERL_MEM_LOG_STDERR PERL_MEM_LOG_TIMESTAMP PERL_MICRO
  43     PERL_NEED_APPCTX PERL_NEED_TIMESBASE PERL_NEW_COPY_ON_WRITE
  44     PERL_OLD_COPY_ON_WRITE PERL_PERTURB_KEYS_DETERMINISTIC
  45     PERL_PERTURB_KEYS_DISABLED PERL_PERTURB_KEYS_RANDOM PERL_POISON
  46     PERL_PRESERVE_IVUV PERL_RELOCATABLE_INCPUSH PERL_SAWAMPERSAND
  47     PERL_TRACK_MEMPOOL PERL_USES_PL_PIDSTATUS PERL_USE_DEVEL
  48     PERL_USE_SAFE_PUTENV PL_OP_SLAB_ALLOC THREADS_HAVE_PIDS UNLINK_ALL_VERSIONS
  49     USE_64_BIT_ALL USE_64_BIT_INT USE_ATTRIBUTES_FOR_PERLIO USE_FAST_STDIO
  50     USE_HASH_SEED_EXPLICIT USE_IEEE USE_ITHREADS USE_LARGE_FILES USE_LOCALE
  51     USE_LOCALE_COLLATE USE_LOCALE_CTYPE USE_LOCALE_NUMERIC USE_LOCALE_TIME
  52     USE_LONG_DOUBLE USE_PERLIO USE_PERL_ATOF USE_REENTRANT_API USE_SFIO
  53     USE_SITECUSTOMIZE USE_SOCKS VMS_DO_SOCKETS VMS_SHORTEN_LONG_SYMBOLS
  54     VMS_SYMBOL_CASE_AS_IS
  55     );
  56 is ($conf->{build}{options}{$_}, 1, "Runtime option $_ set") for qw(
  57     HAS_TIMES PERL_DONT_CREATE_GVSV PERLIO_LAYERS
  58     );
  59
  60 my %check = (
  61     alignbytes      => 4,
  62     api_version     => 18,
  63     bincompat5005   => "undef",
  64     byteorder       => 12345678,
  65     cc              => "cc",
  66     cccdlflags      => "-fPIC",
  67     ccdlflags       => "-Wl,-E",
  68     config_args     => "-Duse64bitint -Duselongdouble -des",
  69     gccversion      => "4.8.1 20130909 [gcc-4_8-branch revision 202388]",
  70     gnulibc_version => "2.18",
  71     ivsize          => 8,
  72     ivtype          => "long long",
  73     ld              => "cc",
  74     lddlflags       => "-shared -O2 -L/pro/local/lib -fstack-protector",
  75     ldflags         => "-L/pro/local/lib -fstack-protector",
  76     libc            => "/lib/libc-2.18.so",
  77     lseektype       => "off_t",
  78     osvers          => "3.11.6-4-desktop",
  79     use64bitint     => "define",
  80     );
  81 is ($conf->{config}{$_}, $check{$_}, "reconstructed \$Config{$_}") for sort keys %check;
  82
  83 __END__
  84 Summary of my perl5 (revision 5 version 18 subversion 2) configuration:
  85
  86   Platform:
  87     osname=linux, osvers=3.11.6-4-desktop, archname=i686-linux-64int-ld
  88     uname='linux lx09 3.11.6-4-desktop #1 smp preempt wed oct 30 18:04:56 utc 2013 (e6d4a27) i686 i686 i386 gnulinux '
  89     config_args='-Duse64bitint -Duselongdouble -des'
  90     hint=recommended, useposix=true, d_sigaction=define
  91     useithreads=undef, usemultiplicity=undef
  92     useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
  93     use64bitint=define, use64bitall=undef, uselongdouble=define
  94     usemymalloc=n, bincompat5005=undef
  95   Compiler:
  96     cc='cc', ccflags ='-fno-strict-aliasing -pipe -fstack-protector -I/pro/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
  97     optimize='-O2',
  98     cppflags='-fno-strict-aliasing -pipe -fstack-protector -I/pro/local/include'
  99     ccversion='', gccversion='4.8.1 20130909 [gcc-4_8-branch revision 202388]', gccosandvers=''
 100     intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678
 101     d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
 102     ivtype='long long', ivsize=8, nvtype='long double', nvsize=12, Off_t='off_t', lseeksize=8
 103     alignbytes=4, prototype=define
 104   Linker and Libraries:
 105     ld='cc', ldflags ='-L/pro/local/lib -fstack-protector'
 106     libpth=/pro/local/lib /lib /usr/lib /usr/local/lib
 107     libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc -lgdbm_compat
 108     perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
 109     libc=/lib/libc-2.18.so, so=so, useshrplib=false, libperl=libperl.a
 110     gnulibc_version='2.18'
 111   Dynamic Linking:
 112     dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
 113     cccdlflags='-fPIC', lddlflags='-shared -O2 -L/pro/local/lib -fstack-protector'
 114
 115
 116 Characteristics of this binary (from libperl):
 117   Compile-time options: HAS_TIMES PERLIO_LAYERS PERL_DONT_CREATE_GVSV
 118                         PERL_HASH_FUNC_ONE_AT_A_TIME_HARD PERL_MALLOC_WRAP
 119                         PERL_PRESERVE_IVUV PERL_SAWAMPERSAND USE_64_BIT_INT
 120                         USE_LARGE_FILES USE_LOCALE USE_LOCALE_COLLATE
 121                         USE_LOCALE_CTYPE USE_LOCALE_NUMERIC USE_LONG_DOUBLE
 122                         USE_PERLIO USE_PERL_ATOF
 123   Built under linux
 124   Compiled at Jan  9 2014 09:22:04
 125   @INC:
 126     /pro/lib/perl5/site_perl/5.18.2/i686-linux-64int-ld
 127     /pro/lib/perl5/site_perl/5.18.2
 128     /pro/lib/perl5/5.18.2/i686-linux-64int-ld
 129     /pro/lib/perl5/5.18.2
 130     .