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