Change-Id: I73112f94361592ccce082269e414d5f5a16b42e5changes/07/2707/6
parent
e214d316c0
commit
a356152416
@ -0,0 +1,80 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use Test::More;
|
||||
use Test::Collection;
|
||||
|
||||
my $test_machine = Test::Collection->new(
|
||||
name => 'calllists',
|
||||
);
|
||||
|
||||
diag('Note that the next tests require at least one subscriber to be present');
|
||||
|
||||
# test with a subscriber
|
||||
SKIP:
|
||||
{
|
||||
my ($res,$sub1,$sub1_id,$cl_collection, $cl_collection_in, $cl_collection_out);
|
||||
|
||||
if($ENV{API_FORCE_SUBSCRIBER_ID}) {
|
||||
$sub1_id = $ENV{API_FORCE_SUBSCRIBER_ID};
|
||||
} else {
|
||||
($res, $sub1) = $test_machine->request_get('/api/subscribers/?page=1&rows=1');
|
||||
is($res->code, 200, "fetch a subscriber for testing");
|
||||
if ($sub1->{total_count} < 1) {
|
||||
skip("Precondition not met: need a subscriber",1);
|
||||
}
|
||||
($sub1_id) = $sub1->{_embedded}->{'ngcp:subscribers'}->{_links}{self}{href} =~ m!subscribers/([0-9]*)$!;
|
||||
}
|
||||
cmp_ok ($sub1_id, '>', 0, "should be positive integer");
|
||||
|
||||
($res, $cl_collection) = $test_machine->request_get('/api/calllists/?page=1&rows=10&subscriber_id='.$sub1_id);
|
||||
is($res->code, 200, "fetch calllists collection of subscriber ($sub1_id)");
|
||||
|
||||
($res, $cl_collection_in) = $test_machine->request_get('/api/calllists/?page=1&rows=10&direction=in&subscriber_id='.$sub1_id);
|
||||
is($res->code, 200, "fetch calllists collection of subscriber ($sub1_id) with direction filter in");
|
||||
|
||||
($res, $cl_collection_out) = $test_machine->request_get('/api/calllists/?page=1&rows=10&direction=out&subscriber_id='.$sub1_id);
|
||||
is($res->code, 200, "fetch calllists collection of subscriber ($sub1_id) with direction filter out");
|
||||
|
||||
is($cl_collection_in->{total_count}+$cl_collection_out->{total_count}, $cl_collection->{total_count},
|
||||
"Incoming and outgoing calls should add up to total number of calls");
|
||||
|
||||
diag("Total number of calls: " . $cl_collection->{total_count});
|
||||
}
|
||||
|
||||
# test with a customer
|
||||
SKIP:
|
||||
{
|
||||
my ($res,$cust1,$cust1_id,$cl_collection, $cl_collection_in, $cl_collection_out);
|
||||
|
||||
if($ENV{API_FORCE_CUSTOMER_ID}) {
|
||||
$cust1_id = $ENV{API_FORCE_CUSTOMER_ID};
|
||||
} else {
|
||||
($res, $cust1) = $test_machine->request_get('/api/customers/?page=1&rows=1');
|
||||
is($res->code, 200, "fetch a customer for testing");
|
||||
if ($cust1->{total_count} < 1) {
|
||||
skip("Precondition not met: need a customer",1);
|
||||
}
|
||||
($cust1_id) = $cust1->{_embedded}->{'ngcp:customers'}->{_links}{self}{href} =~ m!customers/([0-9]*)$!;
|
||||
}
|
||||
cmp_ok ($cust1_id, '>', 0, "should be positive integer");
|
||||
|
||||
($res, $cl_collection) = $test_machine->request_get('/api/calllists/?page=1&rows=10&customer_id='.$cust1_id);
|
||||
is($res->code, 200, "fetch calllists collection of customer ($cust1_id)");
|
||||
|
||||
($res, $cl_collection_in) = $test_machine->request_get('/api/calllists/?page=1&rows=10&direction=in&customer_id='.$cust1_id);
|
||||
is($res->code, 200, "fetch calllists collection of customer ($cust1_id) with direction filter in");
|
||||
|
||||
($res, $cl_collection_out) = $test_machine->request_get('/api/calllists/?page=1&rows=10&direction=out&customer_id='.$cust1_id);
|
||||
is($res->code, 200, "fetch calllists collection of customer ($cust1_id) with direction filter out");
|
||||
|
||||
is($cl_collection_in->{total_count}+$cl_collection_out->{total_count}, $cl_collection->{total_count},
|
||||
"Incoming and outgoing calls should add up to total number of calls");
|
||||
|
||||
diag("Total number of calls: " . $cl_collection->{total_count});
|
||||
}
|
||||
|
||||
|
||||
done_testing;
|
||||
|
||||
# vim: set tabstop=4 expandtab:
|
||||
Loading…
Reference in new issue