+ skip populating periodcosts on prx db Change-Id: I0fb6e4fb7affef82a5a12c2739e17e27685e9041changes/43/35243/1
Rene Krenn
6 years ago
parent
a05e986a1c
commit
f7e19a77b5
@ -0,0 +1,154 @@
|
|||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
use File::Basename;
|
||||||
|
use Cwd;
|
||||||
|
use lib Cwd::abs_path(File::Basename::dirname(__FILE__));
|
||||||
|
|
||||||
|
use Utils::Api qw();
|
||||||
|
use Utils::Rateomat qw();
|
||||||
|
use Test::More;
|
||||||
|
|
||||||
|
### testcase outline:
|
||||||
|
### onnet prepaid/postpaid calls of callers to callees with both using
|
||||||
|
### dedicated reseller fees.
|
||||||
|
###
|
||||||
|
### this tests verify all combinations of prepaid/postpaid subscriber customers with
|
||||||
|
### balance > 0.0/no balance produce correct customer/reseller call cost, cash balance
|
||||||
|
### and cash balance interval values.
|
||||||
|
|
||||||
|
local $ENV{RATEOMAT_WRITE_CDR_RELATION_DATA} = 1;
|
||||||
|
local $ENV{RATEOMAT_PREPAID_UPDATE_BALANCE} = 1;
|
||||||
|
|
||||||
|
my $init_secs = 60;
|
||||||
|
my $follow_secs = 30;
|
||||||
|
my $provider_a = create_provider('testa.com');
|
||||||
|
my $provider_b = create_provider('testb.com');
|
||||||
|
|
||||||
|
my $total_caller_reseller_call_costs = 0.0;
|
||||||
|
my $total_callee_reseller_call_costs = 0.0;
|
||||||
|
|
||||||
|
{
|
||||||
|
my $balance = 0;
|
||||||
|
my $caller_fee = $provider_a->{subscriber_fees}->[0];
|
||||||
|
my $caller = Utils::Api::setup_subscriber($provider_a,$caller_fee->{profile},$balance,{ cc => 888, ac => '1<n>', sn => '<t>' });
|
||||||
|
my $callee_fee = $provider_b->{subscriber_fees}->[0];
|
||||||
|
my $callee = Utils::Api::setup_subscriber($provider_b,$callee_fee->{profile},$balance,{ cc => 888, ac => '2<n>', sn => '<t>' });
|
||||||
|
|
||||||
|
my $caller_call_costs = $caller_fee->{fees}->[0]->{onpeak_init_rate} *
|
||||||
|
$caller_fee->{fees}->[0]->{onpeak_init_interval} +
|
||||||
|
$caller_fee->{fees}->[0]->{onpeak_follow_rate} *
|
||||||
|
$caller_fee->{fees}->[0]->{onpeak_follow_interval};
|
||||||
|
my $caller_reseller_call_costs = $provider_a->{provider_fee}->{fees}->[0]->{onpeak_init_rate} *
|
||||||
|
$provider_a->{provider_fee}->{fees}->[0]->{onpeak_init_interval} +
|
||||||
|
$provider_a->{provider_fee}->{fees}->[0]->{onpeak_follow_rate} *
|
||||||
|
$provider_a->{provider_fee}->{fees}->[0]->{onpeak_follow_interval};
|
||||||
|
|
||||||
|
my $callee_call_costs = $callee_fee->{fees}->[1]->{onpeak_init_rate} *
|
||||||
|
$callee_fee->{fees}->[1]->{onpeak_init_interval} +
|
||||||
|
$callee_fee->{fees}->[1]->{onpeak_follow_rate} *
|
||||||
|
$callee_fee->{fees}->[1]->{onpeak_follow_interval};
|
||||||
|
my $callee_reseller_call_costs = $provider_b->{provider_fee}->{fees}->[1]->{onpeak_init_rate} *
|
||||||
|
$provider_b->{provider_fee}->{fees}->[1]->{onpeak_init_interval} +
|
||||||
|
$provider_b->{provider_fee}->{fees}->[1]->{onpeak_follow_rate} *
|
||||||
|
$provider_b->{provider_fee}->{fees}->[1]->{onpeak_follow_interval};
|
||||||
|
|
||||||
|
my $start_time = Utils::Api::current_unix() - 5;
|
||||||
|
my @cdr_ids = map { $_->{id}; } @{ Utils::Rateomat::create_cdrs([ map {
|
||||||
|
Utils::Rateomat::prepare_cdr($_->{subscriber},undef,$_->{reseller},
|
||||||
|
$callee->{subscriber},undef,$callee->{reseller},
|
||||||
|
'192.168.0.1',$start_time += 1,$init_secs + $follow_secs);
|
||||||
|
} ($caller,$caller) ]) };
|
||||||
|
|
||||||
|
if (ok((scalar @cdr_ids) > 0 && Utils::Rateomat::run_rateomat_threads(),'rate-o-mat executed')) {
|
||||||
|
my $caller_cdr_map = {};
|
||||||
|
|
||||||
|
ok(Utils::Rateomat::check_cdrs('x: ',
|
||||||
|
map {
|
||||||
|
my $cdr = Utils::Rateomat::get_cdrs($_);
|
||||||
|
$caller_cdr_map->{$cdr->{source_account_id}} = $_;
|
||||||
|
$_ => { id => $_,
|
||||||
|
rating_status => 'ok',
|
||||||
|
source_customer_cost => Utils::Rateomat::decimal_to_string($caller_call_costs),
|
||||||
|
destination_customer_cost => Utils::Rateomat::decimal_to_string($callee_call_costs),
|
||||||
|
source_reseller_cost => Utils::Rateomat::decimal_to_string($caller_reseller_call_costs),
|
||||||
|
destination_reseller_cost => Utils::Rateomat::decimal_to_string($callee_reseller_call_costs),
|
||||||
|
};
|
||||||
|
} @cdr_ids
|
||||||
|
),'cdrs were all processed');
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
done_testing();
|
||||||
|
exit;
|
||||||
|
|
||||||
|
sub create_provider {
|
||||||
|
my $domain = shift;
|
||||||
|
return Utils::Api::setup_provider($domain,
|
||||||
|
[ #subscriber rates:
|
||||||
|
{ prepaid => 0,
|
||||||
|
fraud_interval_limit => 301, #160,
|
||||||
|
fraud_interval_lock => 3,
|
||||||
|
fraud_interval_notify => '',
|
||||||
|
fraud_daily_limit => 301,
|
||||||
|
fraud_daily_lock => 4,
|
||||||
|
fraud_daily_notify => undef,
|
||||||
|
fraud_use_reseller_rates => 1, #1,
|
||||||
|
fees => [{ #outgoing:
|
||||||
|
direction => 'out',
|
||||||
|
destination => '^8882.+',
|
||||||
|
onpeak_init_rate => 6,
|
||||||
|
onpeak_init_interval => $init_secs,
|
||||||
|
onpeak_follow_rate => 1,
|
||||||
|
onpeak_follow_interval => $follow_secs,
|
||||||
|
offpeak_init_rate => 6,
|
||||||
|
offpeak_init_interval => $init_secs,
|
||||||
|
offpeak_follow_rate => 1,
|
||||||
|
offpeak_follow_interval => $follow_secs,
|
||||||
|
},
|
||||||
|
{ #incoming:
|
||||||
|
direction => 'in',
|
||||||
|
destination => '.',
|
||||||
|
source => '^8881.+',
|
||||||
|
onpeak_init_rate => 5,
|
||||||
|
onpeak_init_interval => $init_secs,
|
||||||
|
onpeak_follow_rate => 1,
|
||||||
|
onpeak_follow_interval => $follow_secs,
|
||||||
|
offpeak_init_rate => 5,
|
||||||
|
offpeak_init_interval => $init_secs,
|
||||||
|
offpeak_follow_rate => 1,
|
||||||
|
offpeak_follow_interval => $follow_secs,
|
||||||
|
}]},
|
||||||
|
],
|
||||||
|
undef, # no billing networks in this test suite
|
||||||
|
# provider rate:
|
||||||
|
{ prepaid => 0,
|
||||||
|
fees => [{ #outgoing:
|
||||||
|
direction => 'out',
|
||||||
|
destination => '^888.+',
|
||||||
|
onpeak_init_rate => 2,
|
||||||
|
onpeak_init_interval => $init_secs,
|
||||||
|
onpeak_follow_rate => 1,
|
||||||
|
onpeak_follow_interval => $follow_secs,
|
||||||
|
offpeak_init_rate => 2,
|
||||||
|
offpeak_init_interval => $init_secs,
|
||||||
|
offpeak_follow_rate => 1,
|
||||||
|
offpeak_follow_interval => $follow_secs,
|
||||||
|
},
|
||||||
|
{ #incoming:
|
||||||
|
direction => 'in',
|
||||||
|
destination => '.',
|
||||||
|
source => '^888.+',
|
||||||
|
onpeak_init_rate => 1,
|
||||||
|
onpeak_init_interval => $init_secs,
|
||||||
|
onpeak_follow_rate => 1,
|
||||||
|
onpeak_follow_interval => $follow_secs,
|
||||||
|
offpeak_init_rate => 1,
|
||||||
|
offpeak_init_interval => $init_secs,
|
||||||
|
offpeak_follow_rate => 1,
|
||||||
|
offpeak_follow_interval => $follow_secs,
|
||||||
|
}]},
|
||||||
|
);
|
||||||
|
}
|
||||||
Loading…
Reference in new issue