[p5sagit/Devel-PeekPoke.git] / t / 00info.t

use strict;
use warnings;

use Test::More;
use Devel::PeekPoke::Constants qw/PTR_SIZE PTR_PACK_TYPE BIG_ENDIAN/;
use Config;

diag("\nPerl: $]\n");
diag(sprintf "%s: %s\n", $_, __PACKAGE__->$_ ) for (qw/BIG_ENDIAN PTR_PACK_TYPE PTR_SIZE/);
diag("IV_SIZE: $Config{ivsize}\n");

if (
  PTR_SIZE != $Config{ivsize}
    and
  eval { require Devel::PeekPoke::PP }
    and
  defined (my $offset = eval { Devel::PeekPoke::PP::_XPV_IN_SVU_OFFSET() })
) {
  diag "Pointer offset within an IV_SIZEd UNION: $offset\n"
}

ok('this is not a test, it just serves to diag() out what this system is using, for the curious (me)');
done_testing;
Commit	Line	Data
6be43b56	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use Devel::PeekPoke::Constants qw/PTR_SIZE PTR_PACK_TYPE BIG_ENDIAN/;
569e5f29	6	use Config;
6be43b56	7
6be43b56	8	diag("\nPerl: $]\n");
569e5f29	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	}
6be43b56	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;