t/00info.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use Devel::PeekPoke::Constants qw/PTR_SIZE PTR_PACK_TYPE BIG_ENDIAN/;
   6 use Config;
   7
   8 diag("\nPerl: $]\n");
   9 diag(sprintf "%s: %s\n", $_, __PACKAGE__->$_ ) for (qw/BIG_ENDIAN PTR_PACK_TYPE PTR_SIZE/);
  10 diag("IV_SIZE: $Config{ivsize}\n");
  11
  12 if (
  13   PTR_SIZE != $Config{ivsize}
  14     and
  15   eval { require Devel::PeekPoke::PP }
  16     and
  17   defined (my $offset = eval { Devel::PeekPoke::PP::_XPV_IN_SVU_OFFSET() })
  18 ) {
  19   diag "Pointer offset within an IV_SIZEd UNION: $offset\n"
  20 }
  21
  22 ok('this is not a test, it just serves to diag() out what this system is using, for the curious (me)');
  23 done_testing;