[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/;

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

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/;
	6
	7	diag("\nPerl: $]\n");
	8	diag(sprintf "%s: %s\n", $_, __PACKAGE__->$_ ) for (qw/BIG_ENDIAN PTR_SIZE PTR_PACK_TYPE/);
	9
	10	ok('this is not a test, it just serves to diag() out what this system is using, for the curious (me)');
	11	done_testing;