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  cmp_ok SVU_SIZE, '>=', 8, 'SVU_SIZE is greater than 8';
  22  is     SVU_SIZE % 8,   0, 'SVU_SIZE is a multiple of 8';
  23 }