ua1zbe
/
aprsc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

http status web test: added test for counterdata fetch

This commit is contained in:
Heikki Hannikainen 2013-02-23 18:05:53 +02:00
parent 3d9abf32ed
commit fbe1933f5f
1 changed files with 55 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
tests/t/66http-status.t Normal file
View File

@ -0,0 +1,55 @@
#
# Test HTTP status service, only on aprsc
#
use Test;
BEGIN {
plan tests => (!defined $ENV{'TEST_PRODUCT'} || $ENV{'TEST_PRODUCT'} =~ /aprsc/) ? 2 + 3 + 1 : 0;
};
if (defined $ENV{'TEST_PRODUCT'} && $ENV{'TEST_PRODUCT'} !~ /aprsc/) {
exit(0);
}
use runproduct;
use LWP;
use LWP::UserAgent;
use HTTP::Request::Common;
my $p = new runproduct('basic');
ok(defined $p, 1, "Failed to initialize product runner");
ok($p->start(), 1, "Failed to start product");
# set up http client ############
my $ua = LWP::UserAgent->new;
$ua->agent(
agent => "httpaprstester/1.0",
timeout => 10,
max_redirect => 0,
);
# test ###########################
my($req, $res);
$req = HTTP::Request::Common::GET("http://127.0.0.1:55501/");
$res = $ua->simple_request($req);
ok($res->code, 200, "HTTP GET of status server front page returned wrong response code, message: " . $res->message);
$req = HTTP::Request::Common::GET("http://127.0.0.1:55501/status.json");
$res = $ua->simple_request($req);
ok($res->code, 200, "HTTP GET of status server status.json returned wrong response code, message: " . $res->message);
$req = HTTP::Request::Common::GET("http://127.0.0.1:55501/counterdata?totals.tcp_bytes_rx");
$res = $ua->simple_request($req);
ok($res->code, 200, "HTTP GET of status server /counterdata?totals.tcp_bytes_rx returned wrong response code, message: " . $res->message);
# stop
ok($p->stop(), 1, "Failed to stop product");