1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
use strict;
use warnings;
use Test::More tests => 8;
use PkgConfig;
my $version1 = PkgConfig::Version->new('1.2.3');
my $version2 = PkgConfig::Version->new('1.2.3.4');
my $version3 = PkgConfig::Version->new('1.2.3.3');
ok $version1 == $version1->clone, '==';
ok !($version1 != $version1), '!=';
ok $version1 <= $version2, '<=';
ok $version2 >= $version1, '>=';
ok !($version1 >= $version2), '>=';
ok !($version2 <= $version1), '<=';
ok $version1 >= $version1->clone, '>=';
ok $version1 <= $version1->clone, '>=';
|
