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.
248 lines
8.5 KiB
248 lines
8.5 KiB
use strict;
|
|
|
|
use Test::Collection;
|
|
use Test::FakeData;
|
|
use Test::More;
|
|
use Data::Dumper;
|
|
use Getopt::Long;
|
|
use File::Find::Rule;
|
|
use File::Basename;
|
|
use Clone qw/clone/;
|
|
|
|
my($opt,$report,$api_config,$api_info,$config,$test_machine,$fake_data) =
|
|
({},{},{},{} );
|
|
|
|
$opt = {
|
|
'collections' => {'callcontrols' => 1,},
|
|
'collections' => {},
|
|
'ignore_existence' => 1,
|
|
'test_groups' => { post => 1, },#get2put,get2patch,bundle
|
|
};
|
|
$test_machine = Test::Collection->new(
|
|
name => '',
|
|
ALLOW_EMPTY_COLLECTION => 1,
|
|
QUIET_DELETION => 0,
|
|
runas_role => 'reseller',
|
|
);
|
|
$fake_data = Test::FakeData->new;
|
|
$fake_data->test_machine->QUIET_DELETION(0);
|
|
$test_machine->clear_cache;
|
|
|
|
get_opt();
|
|
get_api_config();
|
|
init_config();
|
|
init_report();
|
|
|
|
run();
|
|
|
|
$test_machine->clear_test_data_all();
|
|
done_testing;
|
|
undef $fake_data;
|
|
undef $test_machine;
|
|
|
|
print Dumper $report;
|
|
|
|
|
|
#------------------------ subs -----------------------
|
|
|
|
|
|
sub run{
|
|
#my($opt,$report,$api_info,$test_machine,$fake_data,$config)
|
|
foreach my $collection ( sort grep { collection4testing($_) } keys %{$api_info} ){
|
|
|
|
$test_machine->name($collection);
|
|
$test_machine->NO_ITEM_MODULE($api_info->{$collection}->{module_item} ? 0 : 1 );
|
|
$test_machine->methods({
|
|
collection => { allowed => { map { $_ => 1 } keys %{$api_info->{$collection}->{allowed_methods}} }},
|
|
item => { allowed => { map { $_ => 1 } keys %{$api_info->{$collection}->{allowed_methods_item}} }},
|
|
});
|
|
|
|
if($opt->{test_groups}->{bundle}){
|
|
$test_machine->check_bundle();
|
|
}
|
|
if($opt->{test_groups}->{post}){
|
|
if($test_machine->{methods}->{collection}->{allowed}->{POST}){
|
|
#load date
|
|
if(!$fake_data->{data}->{$collection}->{data}){
|
|
testscript_under_framework($collection);
|
|
}
|
|
if($fake_data->{data}->{$collection}->{data}){
|
|
my $data = $fake_data->{data}->{$collection}->{data};
|
|
#$data->{json} && ( $data = $data->{json});
|
|
#TODO: ALL packages should have information about content_typr
|
|
if($data->{json} && ( $data = $data->{json})){
|
|
$test_machine->content_type->{POST} = 'multipart/form-data';
|
|
}else{
|
|
$test_machine->content_type->{POST} = 'application/json';
|
|
}
|
|
$fake_data->process($collection);
|
|
$test_machine->check_create_correct(
|
|
1,
|
|
$fake_data->{data}->{$collection}->{uniquizer_cb},
|
|
clone $fake_data->{data}->{$collection}->{data}
|
|
);
|
|
push @{$report->{post_tested}}, $collection;
|
|
}else{
|
|
push @{$report->{post_untested}}, $collection;
|
|
}
|
|
}
|
|
}
|
|
if($opt->{test_groups}->{get}){
|
|
if($test_machine->{methods}->{collection}->{allowed}->{GET}){
|
|
my $item = $test_machine->get_item_hal( undef, undef, 1);#reload
|
|
}
|
|
}
|
|
if($opt->{test_groups}->{get2put}){
|
|
if($test_machine->{methods}->{collection}->{allowed}->{GET}){
|
|
my $item = $test_machine->get_item_hal( undef, undef, 1);#reload
|
|
if(!$test_machine->IS_EMPTY_COLLECTION){
|
|
if($test_machine->{methods}->{item}->{allowed}->{PUT}){
|
|
$test_machine->check_get2put();
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if(!$test_machine->{methods}->{collection}->{allowed}->{GET}){
|
|
push @{$report->{'collections_no_get'}}, $collection;
|
|
}
|
|
if(!$api_info->{$collection}->{module_item}){
|
|
push @{$report->{'no_module_item'}}, $collection;
|
|
}
|
|
if(!$test_machine->IS_EMPTY_COLLECTION){
|
|
push @{$report->{'collections_not_empty'}}, $collection;
|
|
}else{
|
|
push @{$report->{'collections_empty'}}, $collection;
|
|
}
|
|
push @{$report->{'checked'}}, $collection;
|
|
}
|
|
}
|
|
|
|
|
|
#------------------------ aux -----------------------
|
|
|
|
sub get_opt{#get $opt
|
|
my $opt_in = {};
|
|
GetOptions($opt_in,
|
|
"help|h|?" ,
|
|
"collections:s" ,
|
|
"ignore-existence",
|
|
"test-groups" ,
|
|
) or pod2usage(2);
|
|
my @opt_keys = keys %$opt_in;
|
|
@{$opt}{ map{my $k=$_;$k=~s/\-/_/;$k;} @opt_keys } = map {my $v = $opt_in->{$_}; $v={ map {$_=>1;} split(/[^[:alnum:]]+/,$v ) }; $v;} @opt_keys ;
|
|
print Dumper $opt;
|
|
pod2usage(1) if $opt->{help};
|
|
pod2usage(1) unless( 1
|
|
# defined $opt->{collections} && defined $opt->{etc}
|
|
);
|
|
}
|
|
|
|
sub get_api_config{#get api_config
|
|
my $api_config = $test_machine->init_catalyst_config;
|
|
$api_info = $api_config->{meta}->{'collections'};
|
|
}
|
|
|
|
sub init_config{#init config
|
|
my %test_exclude = (
|
|
'metaconfigdefs' => 1,
|
|
'subscriberpreferencedefs' => 1,
|
|
'customerpreferencedefs' => 1,
|
|
'domainpreferencedefs' => 1,
|
|
'peeringserverpreferencedefs' => 1,
|
|
'profilepreferencedefs' => 1,
|
|
'subscriberpreferences' => 1,
|
|
'customerpreferences' => 1,
|
|
'domainpreferences' => 1,
|
|
'peeringserverpreferences' => 1,
|
|
'profilepreferences' => 1,
|
|
'pbxdevicepreferencedefs' => 1,
|
|
'pbxdeviceprofilepreferencedefs' => 1,
|
|
#defs and preferences are tested in context of preferences
|
|
'pbxdevicefirmwares' => 1, #too hard, fails with timeout on get
|
|
#falis with: not ok 163 - ccmapentries: check_get2put: check put successful (Unprocessable Entity: Validation failed. field='mappings', input='ARRAY(0x1a53f278)', errors='Mappings field is required')
|
|
'ccmapentries' => 1,
|
|
#fails with:
|
|
# got: 'https://127.0.0.1:1443/api/customerzonecosts/?page=1&rows=5&start=2016-10-01T000000&end=2016-10-31T235959'
|
|
# expected: 'https://127.0.0.1:1443/api/customerzonecosts/?page=1&rows=5'
|
|
'customerzonecosts' => 1,
|
|
#fails with: Unsupported media type 'application/json', accepting text/plain or text/xml only.)
|
|
'pbxdeviceconfigs' => 1,
|
|
#fails with: not ok 1131 - rtcapps: check_get2put: check put successful (Unprocessable Entity: Invalid field 'apps'. Must be an array.)
|
|
'rtcapps' => 1,
|
|
#fails with: not ok 1176 - rtcnetworks: check_get2put: check put successful (Unprocessable Entity: Invalid field 'networks'. Must be an array.)
|
|
'rtcnetworks' => 1,
|
|
);
|
|
my %test_exists;
|
|
{
|
|
my $dir = dirname($0);
|
|
my $rule = File::Find::Rule->new
|
|
->mindepth(1)
|
|
->maxdepth(1)
|
|
->name('api-*.t');
|
|
%test_exists = map {$_=~s/\Q$dir\/\E//;$_ => 1} $rule->in($dir);
|
|
}
|
|
$config->{tests_exists} = \%test_exists;
|
|
$config->{tests_exclude} = \%test_exclude;
|
|
}
|
|
|
|
sub testscript_exists{
|
|
my $collection = shift;
|
|
return $config->{tests_exists}->{'api-'.$collection.'.t'};
|
|
}
|
|
|
|
sub testscript_under_framework{
|
|
my $collection = shift;
|
|
eval{
|
|
$fake_data->load_data_from_script($collection);
|
|
};
|
|
if($@){
|
|
print Dumper ["testscript_under_framework", $@];
|
|
return 0;
|
|
}
|
|
else{
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
sub collection4testing{
|
|
my $collection = shift;
|
|
my $r = (! ( scalar keys %{$opt->{collections}} ) ) || $opt->{collections}->{$collection};
|
|
if($r){
|
|
#by default we run requested collection scripts even when exists
|
|
if(!$opt->{collections}->{$collection}){
|
|
if(testscript_exists($collection) && !$opt->{ignore_existence}){
|
|
push @{$report->{'tests_exists_skipped'}}, $collection;
|
|
#we will not test the same twice
|
|
$r = 0;
|
|
}
|
|
$r = 0 if $config->{test_exclude}->{$collection};
|
|
}
|
|
}
|
|
return $r;
|
|
}
|
|
|
|
sub init_report{
|
|
$report = {
|
|
'collections_no_get' => [],
|
|
'collections_empty' => [],
|
|
'collections_not_empty' => [],
|
|
'strange_item_actions' => {},
|
|
'no_module_item' => [],
|
|
'tests_exists_skipped' => [],
|
|
'checked' => [],
|
|
'post_tested' => [],
|
|
'post_untested' => [],
|
|
'opt' => $opt,
|
|
'config' => $config,
|
|
};
|
|
}
|
|
|
|
|
|
|
|
#my $item_post = clone($item);
|
|
#delete $item_post->{content}->{id};
|
|
#$test_machine->DATA_ITEM_STORE($item_post->{content});
|
|
#$test_machine->form_data_item();
|
|
##$test_machine->check_create_correct( 1, undef, );
|
|
|
|
# vim: set tabstop=4 expandtab: |