X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScalar-Vec-Util.git;a=blobdiff_plain;f=t%2F03-size.t;h=d8953b237fc2d5c297d2cd2cb8afa15299bc7872;hp=d32e3d942e2a1528393f19aa44b2ad3723f62692;hb=2bade59206c8f2bd2ed64e1faa8b10cc9109b734;hpb=eb5fc894300e2e78d7beeb03f47f9d8e488518d5

diff --git a/t/03-size.t b/t/03-size.t
index d32e3d9..d8953b2 100644
--- a/t/03-size.t
+++ b/t/03-size.t
@@ -10,14 +10,14 @@ use Scalar::Vec::Util qw<SVU_SIZE SVU_PP>;
 if (SVU_PP) {
  plan tests => 1;
 
- diag('Using pure perl fallbacks');
+ diag 'Using pure perl fallbacks';
 
- is(SVU_SIZE, 1, 'SVU_SIZE is 1');
+ is SVU_SIZE, 1, 'SVU_SIZE is 1';
 } else {
  plan tests => 2;
 
- diag('Using an unit of ' . SVU_SIZE . ' bits');
+ diag 'Using an unit of ' . SVU_SIZE . ' bits';
 
- ok(SVU_SIZE >= 8,   'SVU_SIZE is greater than 8');
- is(SVU_SIZE % 8, 0, 'SVU_SIZE is a multiple of 8');
+ cmp_ok SVU_SIZE, '>=', 8, 'SVU_SIZE is greater than 8';
+ is     SVU_SIZE % 8,   0, 'SVU_SIZE is a multiple of 8';
 }