projects
/
APKPM.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Merge branch 'devel' of h1dev:/srv/APKPM/
[APKPM.git]
/
t
/
Store.t
1
#!/usr/bin/perl
2
use strict;
3
use warnings;
4
5
use Test::More tests => 4;
6
use Data::Dump qw(dump);
7
8
use lib 'lib';
9
10
use_ok 'APKPM::Store';
11
12
ok my $o = APKPM::Store->new, 'new';
13
14
ok my $r = $o->ADSL('job',{
15
ip => '127.0.0.1',
16
username => 'nobody',
17
ADSL => {
18
ATTNRX => "36.5",
19
ATTNTX => "17.8",
20
MAXRX => 13500,
21
MAXTX => 880,
22
PWRRX => "0.0",
23
PWRTX => "12.6",
24
RX => 8500,
25
SNRRX => "11.4",
26
SNRTX => "16.0",
27
TX => 798,
28
}
29
}), 'ADSL';
30
diag dump($r);
31
32
ok my $r = $o->ping('job',{
33
ip => '127.0.0.1',
34
username => 'nobody',
35
rtt => 0.042,
36
}), 'ping';
37
diag dump($r);