update preflight check permission for test commands (#1389)

Author: JeffreyHuynh1

src/App/Fossa/PreflightChecks.hs

@@ -70,9 +70,6 @@ preflightChecks cmd = context "preflight-checks" $ do
     void $
       errSupport (renderIt reportDefectMsg) $
         case cmd of
-          TestChecks -> do
-            tokenType <- getTokenType
-            fullAccessTokenCheck tokenType
           AnalyzeChecks rev metadata -> do
             customBuildPermissions <- getCustomBuildPermissions rev metadata
             uploadBuildPermissionsCheck customBuildPermissions

test/App/Fossa/PreflightChecksSpec.hs

@@ -36,14 +36,9 @@ spec :: Spec
 spec = do
   describe "preflight checks" $ do
     it' "should pass all checks for test command" $ do
-      expectFullAccessToken
       expectOrganizationWithPreflightChecks
       res <- ignoreDebug $ preflightChecks TestChecks
       res `shouldBe'` ()
-    it' "should fail full access token check for test command" $ do
-      expectOrganizationWithPreflightChecks
-      expectPushToken
-      expectFatal' $ ignoreDebug $ preflightChecks TestChecks
     it' "should pass all check for report command" $ do
       expectOrganizationWithPremiumSubscription
       expectFullAccessToken