wasp/waspc/test/Parser/ActionTest.hs

module Parser.ActionTest where

import Data.Char (toLower)
import Data.Either (isLeft)
import Parser.Action (action)
import Parser.Common (runWaspParser)
import qualified StrongPath as SP
import Test.Tasty.Hspec
import qualified Wasp.Action
import qualified Wasp.JsImport

-- TODO: This file is mostly just duplication of Parser.QueryTest.
--   We might want to look into generalizing the two, to avoid all this
--   duplication -> well, we really shoud start with generalizing
--   Parser.Query and Parser.Action.

spec_parseAction :: Spec
spec_parseAction =
  describe "Parsing action declaration" $ do
    let parseAction = runWaspParser action
    let testWhenAuth auth =
          it ("When given a valid action declaration, returns correct AST(action.auth = " ++ show auth ++ ")") $
            parseAction (genActionCode auth) `shouldBe` Right (genActionAST auth)
    testWhenAuth (Just True)
    testWhenAuth (Just False)
    testWhenAuth (Nothing)
    it "When given action wasp declaration without 'fn' property, should return Left" $ do
      isLeft (parseAction "action myAction { }") `shouldBe` True
  where
    genActionAST :: Maybe Bool -> Wasp.Action.Action
    genActionAST aApplyAuth =
      Wasp.Action.Action
        { Wasp.Action._name = testActionName,
          Wasp.Action._jsFunction =
            Wasp.JsImport.JsImport
              { Wasp.JsImport._defaultImport = Nothing,
                Wasp.JsImport._namedImports = [testActionJsFunctionName],
                Wasp.JsImport._from = testActionJsFunctionFrom
              },
          Wasp.Action._entities = Nothing,
          Wasp.Action._auth = aApplyAuth
        }
    genActionCode :: Maybe Bool -> String
    genActionCode aApplyAuth =
      ( "action " ++ testActionName ++ " {\n"
          ++ "  fn: import { "
          ++ testActionJsFunctionName
          ++ " } from \"@ext/some/path\""
          ++ authStr aApplyAuth
          ++ "}"
      )

    authStr :: Maybe Bool -> String
    authStr (Just useAuth) = ",\n  auth: " ++ map toLower (show useAuth) ++ "\n"
    authStr _ = "\n"
    testActionJsFunctionFrom = [SP.relfileP|some/path|]
    testActionJsFunctionName = "myJsAction"
    testActionName = "myAction"