t/version_greater_or_equal.t

   1 use 5.010_000;
   2 use strict;
   3 use utf8;
   4 use Glib qw(TRUE FALSE);
   5 use Test::More tests => 8;
   6
   7 require_ok ('Clawsker');
   8
   9 use Clawsker;
  10
  11 ok (
  12     defined &Clawsker::version_greater_or_equal,
  13     'has the function'
  14 );
  15
  16 ok (
  17     TRUE == Clawsker::version_greater_or_equal ('', ''),
  18     'empty is equal to empty reference version'
  19 );
  20
  21 ok (
  22     FALSE == Clawsker::version_greater_or_equal ('1', ''),
  23     'everything is lower than empty referece version (show it all)'
  24 );
  25
  26 ok (
  27     TRUE == Clawsker::version_greater_or_equal ('', '1'),
  28     'empty is greater than reference version 1 (show unversioned)'
  29 );
  30
  31 ok (
  32     TRUE == Clawsker::version_greater_or_equal ('1', '1'),
  33     '1 is equal to reference version 1'
  34 );
  35
  36 ok (
  37     TRUE == Clawsker::version_greater_or_equal ('2', '1'),
  38     '2 is greater than reference version 1'
  39 );
  40
  41 ok (
  42     FALSE == Clawsker::version_greater_or_equal ('0.9.99', '1'),
  43     '0.9.99 is not greater than reference version 1'
  44 );
  45