Off we go (Release 0.01)
[p5sagit/Devel-PeekPoke.git] / 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
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;