1#!/usr/bin/perl
2
3use strict;
4use Test::More 'no_plan';
5use DJabberd::StreamVersion;
6
7my $ver;
8
9$ver = DJabberd::StreamVersion->new("1.0");
10ok($ver, "got obj");
11ok($ver->valid);
12
13my $ver12 = DJabberd::StreamVersion->new("1.2");
14my $ver21 = DJabberd::StreamVersion->new("2.1");
15
16is($ver12->min($ver)->as_string, "1.0");
17
18is($ver12->cmp($ver), 1, "1.2 is greater");
19is($ver->cmp($ver12), -1, "1.0 is less");
20
21is($ver21->cmp($ver12), 1, "2.1 is greater");
22is($ver12->cmp($ver21), -1, "1.2 is less");
23
24ok($ver12->supports_features);
25
26my $veremp = DJabberd::StreamVersion->new("");
27ok(! $veremp->valid, "empty not valid");
28
29my $ver09 = DJabberd::StreamVersion->new("0.9");
30ok(! $ver09->supports_features, "0.9 no features");
31
32