sipwise
/
ngcp-panel
mirror of https://github.com/sipwise/ngcp-panel.git
1
0
Fork 0
Code Issues Releases Wiki Activity

MT#12347 Remove unnecessary debug from FakeData

Browse Source 
Change-Id: I4a5c7c814cdddf442e6a8b89d79d4d06d16b9388
changes/92/2892/2
Irina Peshinskaya 10 years ago
parent 57edaa4689
commit 33066cc374
1 changed files with 0 additions and 19 deletions
Show Stats Download Patch File Download Diff File

19
t/lib/Test/FakeData.pm
Unescape View File

@ -298,10 +298,8 @@ sub load_db{
$data //= $self->data; $data //= $self->data;
$collections_slice //= [keys %$data]; $collections_slice //= [keys %$data];
foreach my $collection_name( @$collections_slice ){ foreach my $collection_name( @$collections_slice ){
#print "load_db: collection_name=$collection_name;\n";
if((!exists $self->loaded->{$collection_name}) && $data->{$collection_name}->{query}){ if((!exists $self->loaded->{$collection_name}) && $data->{$collection_name}->{query}){
my(undef,$content) = $self->search_item($collection_name,$data); my(undef,$content) = $self->search_item($collection_name,$data);
#print Dumper $content;
if($content->{total_count}){ if($content->{total_count}){
my $values = $content->{_embedded}->{$self->test_machine->get_hal_name($collection_name)}; my $values = $content->{_embedded}->{$self->test_machine->get_hal_name($collection_name)};
$values = ('HASH' eq ref $values) ? [$values] : $values; $values = ('HASH' eq ref $values) ? [$values] : $values;
@ -325,9 +323,6 @@ sub clear_db{
$collections_slice //= [keys %$data]; $collections_slice //= [keys %$data];
@$order_hash{(keys %$data)} = (0) x @$collections_slice; @$order_hash{(keys %$data)} = (0) x @$collections_slice;
@$order_hash{@$order_array} = (1..$#$order_array+1); @$order_hash{@$order_array} = (1..$#$order_array+1);
#print "clear_db;\n";
#print Dumper $collections_slice;
#print Dumper [caller];
foreach my $collection_name (sort {$order_hash->{$a} <=> $order_hash->{$b}} @$collections_slice ){ foreach my $collection_name (sort {$order_hash->{$a} <=> $order_hash->{$b}} @$collections_slice ){
if(!$data->{$collection_name}->{query}){ if(!$data->{$collection_name}->{query}){
next; next;
@ -385,7 +380,6 @@ sub search_item{
} }
sub clear_cached_data{ sub clear_cached_data{
my($self, @collections) = @_; my($self, @collections) = @_;
#print Dumper [@collections];
delete @{$self->loaded}{@collections}; delete @{$self->loaded}{@collections};
delete @{$self->created}{@collections}; delete @{$self->created}{@collections};
delete @{$self->searched}{@collections}; delete @{$self->searched}{@collections};
@ -430,14 +424,11 @@ sub load_data_from_script{
sub load_collection_data{ sub load_collection_data{
my($self, $collection_name) = @_; my($self, $collection_name) = @_;
#print "load_collection_data: $collection_name;\n";
#print Dumper [caller];
if(!$self->data->{$collection_name}){ if(!$self->data->{$collection_name}){
$self->load_data_from_script($collection_name); $self->load_data_from_script($collection_name);
} }
if(! ( $self->collection_id_exists($collection_name) ) ){ if(! ( $self->collection_id_exists($collection_name) ) ){
$self->clear_db(undef,undef,[$collection_name]); $self->clear_db(undef,undef,[$collection_name]);
#print "load_collection_data: $collection_name: collection_id_exists=".$self->collection_id_exists($collection_name)."; loaded:".($self->loaded->{$collection_name}?$self->loaded->{$collection_name}:"undef")."; created: ".($self->created->{$collection_name}?$self->created->{$collection_name}:"undef")." searched: ".($self->searched->{$collection_name}?$self->searched->{$collection_name}:"undef")." ;\n";
$self->load_db(undef,[$collection_name]); $self->load_db(undef,[$collection_name]);
} }
} }
@ -445,20 +436,13 @@ sub get_id{
my $self = shift; my $self = shift;
#my( $collection_name, $parents_in, $params) = @_; #my( $collection_name, $parents_in, $params) = @_;
my( $collection_name ) = @_; my( $collection_name ) = @_;
#print "get_id: $collection_name;\n";
#print Dumper [caller];
$self->load_collection_data($collection_name); $self->load_collection_data($collection_name);
my $res_id; my $res_id;
if( $self->collection_id_exists($collection_name) ){ if( $self->collection_id_exists($collection_name) ){
$res_id = $self->get_existent_id($collection_name); $res_id = $self->get_existent_id($collection_name);
#print "get_id: $collection_name: id exists: $res_id ;\n";
}else{ }else{
$res_id = $self->create(@_); $res_id = $self->create(@_);
#print "get_id: $collection_name: create: $res_id ;\n";
} }
#print "get_id end: $collection_name:$res_id ;\n";
#print Dumper $collection_name;
#print Dumper [caller];
return $res_id; return $res_id;
} }
sub get_existent_item{ sub get_existent_item{
@ -489,8 +473,6 @@ sub get_collection_data_fields{
} }
sub process{ sub process{
my($self, $collection_name, $parents_in) = @_; my($self, $collection_name, $parents_in) = @_;
#print "process: $collection_name;\n";
#print Dumper [caller];
$self->load_collection_data($collection_name); $self->load_collection_data($collection_name);
$parents_in //= {}; $parents_in //= {};
my $parents = {%{$parents_in}};#copy my $parents = {%{$parents_in}};#copy
@ -510,7 +492,6 @@ sub process{
sub create{ sub create{
my($self, $collection_name, $parents_in, $params) = @_; my($self, $collection_name, $parents_in, $params) = @_;
$parents_in //= {}; $parents_in //= {};
#print "collection_name=$collection_name;\n";
if($parents_in->{$collection_name}){ if($parents_in->{$collection_name}){
if($self->data->{$collection_name}->{default}){ if($self->data->{$collection_name}->{default}){
$self->data->{$collection_name}->{process_cycled} = {'parents'=>$parents_in}; $self->data->{$collection_name}->{process_cycled} = {'parents'=>$parents_in};

Write Preview
Loading…
Cancel
Save