18 lines
342 B
Perl
18 lines
342 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict; use warnings FATAL => 'all';
|
|
use Test::More 0.88;
|
|
|
|
BEGIN {
|
|
use_ok( 'App::Netdisco::Util::Web', 'sort_port' );
|
|
}
|
|
|
|
# 1 = first is greater
|
|
# 0 = same
|
|
# -1 = first is lesser
|
|
|
|
is(sort_port(1,1), 0, 'number - same values');
|
|
is(sort_port('1:2','1:10'), -1, 'colon number (Extreme) - first lesser');
|
|
|
|
done_testing;
|