view release on metacpan or  search on metacpan

script/rest-client  view on Meta::CPAN

154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
my %test_cases = $suite->get_test_cases();
 
#increase the count to load your API $load times with the number of TC
my $tc_in_config = scalar keys %test_cases;
my $load         = $action->{testload};
 
#$load = floor(500 / $tc_in_config);
 
my %load_test_cases;
 
#If config file has 10 test cases, formula for $tc_count is 10*$load
my $total_tc = 0;
 
while ( $load > 0 ) {
 
    foreach my $num ( sort { $a <=> $b } keys(%test_cases) ) {
        my $tc = $test_cases{$num};
        $total_tc++;
        $load_test_cases{$total_tc} = $tc;
    }
    $load--;