t/03-size.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 use Scalar::Vec::Util qw<SVU_SIZE SVU_PP>;
   9
  10 if (SVU_PP) {
  11  plan tests => 1;
  12
  13  diag('Using pure perl fallbacks');
  14
  15  is(SVU_SIZE, 1, 'SVU_SIZE is 1');
  16 } else {
  17  plan tests => 2;
  18
  19  diag('Using an unit of ' . SVU_SIZE . ' bits');
  20
  21  ok(SVU_SIZE >= 8,   'SVU_SIZE is greater than 8');
  22  is(SVU_SIZE % 8, 0, 'SVU_SIZE is a multiple of 8');
  23 }