You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
123 lines
5.2 KiB
123 lines
5.2 KiB
use strict;
|
|
use warnings;
|
|
|
|
use threads;
|
|
use Test::Collection;
|
|
use Test::FakeData;
|
|
use Test::More;
|
|
use Data::Dumper;
|
|
use Clone qw/clone/;
|
|
|
|
#use NGCP::Panel::Utils::Subscriber;
|
|
|
|
my $test_machine = Test::Collection->new(
|
|
name => 'numbers',
|
|
);
|
|
my $fake_data = Test::FakeData->new;
|
|
|
|
$fake_data->set_data_from_script({
|
|
'numbers' => {
|
|
'data' => {
|
|
subscriber_id => sub { return shift->get_id('subscribers',@_); },
|
|
cc => 1,
|
|
ac => 1,
|
|
sn => 1,
|
|
},
|
|
},
|
|
});
|
|
|
|
my $fake_data_processed = $fake_data->process('numbers');
|
|
$test_machine->DATA_ITEM_STORE($fake_data_processed);
|
|
$test_machine->form_data_item();
|
|
|
|
{
|
|
my $ticket = '32913';
|
|
my $time = time();
|
|
my $subscriber_test_machine = Test::Collection->new(
|
|
name => 'subscribers',
|
|
);
|
|
$subscriber_test_machine->DATA_ITEM_STORE($fake_data->process('subscribers'));
|
|
my $subscriber1 = $fake_data->create('subscribers')->[0];
|
|
my $subscriber2 = $fake_data->create('subscribers')->[0];
|
|
#print Dumper $subscriber1;
|
|
$subscriber1->{content}->{alias_numbers} = [
|
|
{ cc=> '111', ac => $ticket, sn => $time },
|
|
{ cc=> '112', ac => $ticket, sn => $time },
|
|
{ cc=> '113', ac => $ticket, sn => $time },
|
|
# { cc=> '114', ac => $ticket, sn => $time },
|
|
# { cc=> '115', ac => $ticket, sn => $time },
|
|
];
|
|
$subscriber2->{content}->{alias_numbers} = [
|
|
{ cc=> '211', ac => $ticket, sn => $time },
|
|
{ cc=> '212', ac => $ticket, sn => $time },
|
|
{ cc=> '213', ac => $ticket, sn => $time },
|
|
# { cc=> '214', ac => $ticket, sn => $time },
|
|
# { cc=> '215', ac => $ticket, sn => $time },
|
|
];
|
|
my ($res,$content,$request);
|
|
($res,$content,$request) = $subscriber_test_machine->request_put(@{$subscriber1}{qw/content location/});
|
|
($res,$content,$request) = $subscriber_test_machine->request_put(@{$subscriber2}{qw/content location/});
|
|
my ($aliases1) = $test_machine->get_collection_hal('numbers', '/api/numbers/?type=alias&subscriber_id='.$subscriber1->{content}->{id}, 1)->{collection};
|
|
my ($aliases2) = $test_machine->get_collection_hal('numbers','/api/numbers/?type=alias&subscriber_id='.$subscriber2->{content}->{id}, 1)->{collection};
|
|
test_numbers_reassign($aliases1->[0],$aliases2->[0],$subscriber1,$subscriber2);
|
|
|
|
my $pbxsubscriberadmin = $fake_data->create('subscribers')->[0];
|
|
($res) = $subscriber_test_machine->request_patch([
|
|
{ op => 'replace', path => '/administrative', value => 1 },
|
|
{ op => 'replace', path => '/webpassword', value => 'pbxadminpwd' },
|
|
{ op => 'replace', path => '/password', value => 'pbxadminpwd' }
|
|
] , $pbxsubscriberadmin->{location});
|
|
$subscriber_test_machine->http_code_msg(200, "PATCH for /pbxsubscriberadmin/", $res);
|
|
$pbxsubscriberadmin = $subscriber_test_machine->get_item_hal('subscribers', $pbxsubscriberadmin->{location});
|
|
|
|
$test_machine->set_subscriber_credentials($pbxsubscriberadmin->{content});
|
|
$test_machine->runas('subscriber');
|
|
|
|
test_numbers_reassign($aliases1->[0],$aliases2->[0],$subscriber1,$subscriber2);
|
|
my @threads;
|
|
for(my $i = 0; $i < @{$aliases1} && $i < @{$aliases2}; $i++ ){
|
|
push @threads, threads->create(\&test_numbers_reassign,$aliases1->[$i],$aliases2->[$i],$subscriber1,$subscriber2);
|
|
}
|
|
for(my $i=0; $i < @threads; $i++ ){
|
|
$threads[$i]->join();
|
|
}
|
|
$test_machine->runas('admin');
|
|
|
|
$subscriber_test_machine->clear_test_data_all();#fake data aren't registered in this test
|
|
}
|
|
|
|
$fake_data->clear_test_data_all();
|
|
$test_machine->clear_test_data_all();#fake data aren't registered in this test machine, so they will stay.
|
|
$fake_data->clear_test_data_all();
|
|
undef $test_machine;
|
|
undef $fake_data;
|
|
done_testing;
|
|
|
|
sub test_numbers_reassign{
|
|
my($alias1,$alias2,$subscriber1,$subscriber2) = @_;
|
|
my $res;
|
|
|
|
#print Dumper [
|
|
# [ { op => 'replace', path => '/subscriber_id', value => $subscriber2->{content}->{id} } ] , $alias1,
|
|
# [ { op => 'replace', path => '/subscriber_id', value => $subscriber1->{content}->{id} } ] , $alias1,
|
|
# [ { op => 'replace', path => '/subscriber_id', value => $subscriber1->{content}->{id} } ] , $alias2,
|
|
# [ { op => 'replace', path => '/subscriber_id', value => $subscriber2->{content}->{id} } ] , $alias2
|
|
#
|
|
#];
|
|
|
|
$alias1->{content}->{subscriber_id} = $subscriber2->{content}->{id};
|
|
($res) = $test_machine->request_patch([ { op => 'replace', path => '/subscriber_id', value => $subscriber2->{content}->{id} } ] , $alias1->{location});
|
|
$test_machine->http_code_msg(200, "PATCH for /numbers/", $res);
|
|
|
|
($res) = $test_machine->request_patch([ { op => 'replace', path => '/subscriber_id', value => $subscriber1->{content}->{id} } ] , $alias1->{location});
|
|
$test_machine->http_code_msg(200, "PATCH for /numbers/", $res);
|
|
|
|
($res) = $test_machine->request_patch([ { op => 'replace', path => '/subscriber_id', value => $subscriber1->{content}->{id} } ] , $alias2->{location});
|
|
$test_machine->http_code_msg(200, "PATCH for /numbers/", $res);
|
|
|
|
($res) = $test_machine->request_patch([ { op => 'replace', path => '/subscriber_id', value => $subscriber2->{content}->{id} } ] , $alias2->{location});
|
|
$test_machine->http_code_msg(200, "PATCH for /numbers/", $res);
|
|
}
|
|
|
|
# vim: set tabstop=4 expandtab:
|