4 use Glib qw(TRUE FALSE);
5 use Test::More tests => 8;
7 require_ok ('Clawsker');
12 defined &Clawsker::version_greater_or_equal,
17 TRUE == Clawsker::version_greater_or_equal ('', ''),
18 'empty is equal to empty reference version'
22 FALSE == Clawsker::version_greater_or_equal ('1', ''),
23 'everything is lower than empty referece version (show it all)'
27 TRUE == Clawsker::version_greater_or_equal ('', '1'),
28 'empty is greater than reference version 1 (show unversioned)'
32 TRUE == Clawsker::version_greater_or_equal ('1', '1'),
33 '1 is equal to reference version 1'
37 TRUE == Clawsker::version_greater_or_equal ('2', '1'),
38 '2 is greater than reference version 1'
42 FALSE == Clawsker::version_greater_or_equal ('0.9.99', '1'),
43 '0.9.99 is not greater than reference version 1'