Use updated test method

fossas · Jan 7, 2021 · deece4f · deece4f
1 parent 0205b1a
commit deece4f
Showing 1 changed file with 11 additions and 7 deletions.
diff --git a/src/App/Fossa/Container/Test.hs b/src/App/Fossa/Container/Test.hs
@@ -71,10 +71,14 @@ testInner apiOpts outputType override image = do
   issues <- waitForIssues apiOpts revision
   logSticky ""
 
-  if null $ issuesIssues issues
-    then logInfo "Test passed! 0 issues found"
-    else do
-      case outputType of
-        TestOutputPretty -> logError $ pretty issues
-        TestOutputJson -> logStdout . pretty . decodeUtf8 . Aeson.encode $ issues
-      sendIO exitFailure
+  case issuesCount issues of
+    0 -> logInfo "Test passed! 0 issues found"
+    n -> do
+      logError $ "Test failed. Number of issues found: " <> pretty n
+      if null (issuesIssues issues)
+        then logError "Check webapp for more details, or use a full-access API key (currently using a push-only API key)"
+        else do
+          case outputType of
+            TestOutputPretty -> logError $ pretty issues
+            TestOutputJson -> logStdout . pretty . decodeUtf8 . Aeson.encode $ issues
+          sendIO exitFailure