Jelajahi Sumber

Fix warnings with assign results in testrail-results

George S. Baugh 8 tahun lalu
induk
melakukan
3f08fa26a2
2 mengubah file dengan 7 tambahan dan 3 penghapusan
  1. 1 0
      Changes
  2. 6 3
      bin/testrail-results

+ 1 - 0
Changes

@@ -5,6 +5,7 @@ Revision history for Perl module TestRail::API
     - Add getRunResults, getRunResultsPaginated Methods in TestRail::API
     - Cache connections by default for speedups
     - Cache getTests() for getTestByName()
+    - Fix warnings when testrail-results encounters 'assigned' results
 
 0.038 2017-01-23 TEODESIAN
     - Optimize TestRail::Utils::Find::getResults and testrail-results

+ 6 - 3
bin/testrail-results

@@ -192,9 +192,12 @@ sub run {
             $num_runs++;
             #$out .= "Found case '$case' in run $casedef->{run_id}\n";
             foreach my $result (@{$casedef->{results}}) {
-                $casetotals->{$result->{status_id}}++;
-                $versions_by_status->{$result->{status_id}} //= [];
-                push(@{$versions_by_status->{$result->{status_id}}},$result->{version}) if $result->{version};
+                if (defined $result->{status_id}) {
+                    #Assignment is handled as creating a new result with an undef status id
+                    $casetotals->{$result->{status_id}}++;
+                    $versions_by_status->{$result->{status_id}} //= [];
+                    push(@{$versions_by_status->{$result->{status_id}}},$result->{version}) if $result->{version};
+                }
                 push(@$defects, $result->{defects}) if $result->{defects};
                 push(@$elapsetotals,_elapsed2secs($result->{'elapsed'}));
             }