File: alien_util.t

package info (click to toggle)
libalien-build-perl 2.84-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 3,116 kB
  • sloc: perl: 10,350; ansic: 134; sh: 66; makefile: 2
file content (14 lines) | stat: -rw-r--r-- 259 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
use 5.008004;
use Test2::V0 -no_srand => 1;
use Alien::Util qw( version_cmp );


subtest 'version_cmp' => sub {

  is( version_cmp('1.0.1', '1.0.1'), 0 );
  is( version_cmp('1.0.1', '1.0.2'), -1 );
  is( version_cmp('1.0.1', '1.0.0'), 1 );

};

done_testing;