From 33066cc3741989fc6ee615b84333f10739afe3d6 Mon Sep 17 00:00:00 2001 From: Irina Peshinskaya Date: Mon, 12 Oct 2015 05:26:28 +0300 Subject: [PATCH] MT#12347 Remove unnecessary debug from FakeData Change-Id: I4a5c7c814cdddf442e6a8b89d79d4d06d16b9388 --- t/lib/Test/FakeData.pm | 19 ------------------- 1 file changed, 19 deletions(-) diff --git a/t/lib/Test/FakeData.pm b/t/lib/Test/FakeData.pm index 0fb435abd5..208c11ba40 100644 --- a/t/lib/Test/FakeData.pm +++ b/t/lib/Test/FakeData.pm @@ -298,10 +298,8 @@ sub load_db{ $data //= $self->data; $collections_slice //= [keys %$data]; foreach my $collection_name( @$collections_slice ){ - #print "load_db: collection_name=$collection_name;\n"; if((!exists $self->loaded->{$collection_name}) && $data->{$collection_name}->{query}){ my(undef,$content) = $self->search_item($collection_name,$data); - #print Dumper $content; if($content->{total_count}){ my $values = $content->{_embedded}->{$self->test_machine->get_hal_name($collection_name)}; $values = ('HASH' eq ref $values) ? [$values] : $values; @@ -325,9 +323,6 @@ sub clear_db{ $collections_slice //= [keys %$data]; @$order_hash{(keys %$data)} = (0) x @$collections_slice; @$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 ){ if(!$data->{$collection_name}->{query}){ next; @@ -385,7 +380,6 @@ sub search_item{ } sub clear_cached_data{ my($self, @collections) = @_; - #print Dumper [@collections]; delete @{$self->loaded}{@collections}; delete @{$self->created}{@collections}; delete @{$self->searched}{@collections}; @@ -430,14 +424,11 @@ sub load_data_from_script{ sub load_collection_data{ my($self, $collection_name) = @_; - #print "load_collection_data: $collection_name;\n"; - #print Dumper [caller]; if(!$self->data->{$collection_name}){ $self->load_data_from_script($collection_name); } if(! ( $self->collection_id_exists($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]); } } @@ -445,20 +436,13 @@ sub get_id{ my $self = shift; #my( $collection_name, $parents_in, $params) = @_; my( $collection_name ) = @_; - #print "get_id: $collection_name;\n"; - #print Dumper [caller]; $self->load_collection_data($collection_name); my $res_id; if( $self->collection_id_exists($collection_name) ){ $res_id = $self->get_existent_id($collection_name); - #print "get_id: $collection_name: id exists: $res_id ;\n"; }else{ $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; } sub get_existent_item{ @@ -489,8 +473,6 @@ sub get_collection_data_fields{ } sub process{ my($self, $collection_name, $parents_in) = @_; - #print "process: $collection_name;\n"; - #print Dumper [caller]; $self->load_collection_data($collection_name); $parents_in //= {}; my $parents = {%{$parents_in}};#copy @@ -510,7 +492,6 @@ sub process{ sub create{ my($self, $collection_name, $parents_in, $params) = @_; $parents_in //= {}; - #print "collection_name=$collection_name;\n"; if($parents_in->{$collection_name}){ if($self->data->{$collection_name}->{default}){ $self->data->{$collection_name}->{process_cycled} = {'parents'=>$parents_in};