blob: 26c7d3e6ca5926b8774eb5b3f59ed3d51960778b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
# -*- perl -*-
use lib 't';
use strict;
use warnings;
use SlackBuild::Registry::Version;
use Test;
plan tests => 10;
my $v = new SlackBuild::Registry::Version('4');
ok($v->major, '4');
ok(!$v->minor);
ok(!$v->patch);
$v = new SlackBuild::Registry::Version('4.1.9');
ok($v->major, '4');
ok($v->minor, '1');
ok($v->patch, '9');
$v = new SlackBuild::Registry::Version('4.1.9m');
ok($v->major, '4');
ok($v->minor, '1');
ok($v->patch, '9');
ok($v->tail, 'm');
|
