wasp/waspc/test/Parser/PageTest.hs

module Parser.PageTest where

import Data.Either (isLeft)
import qualified StrongPath as SP
import Test.Tasty.Hspec
import Wasp.Parser.Common (runWaspParser)
import Wasp.Parser.Page (page)
import qualified Wasp.Wasp.JsImport as Wasp.JsImport
import qualified Wasp.Wasp.Page as Wasp.Page

spec_parsePage :: Spec
spec_parsePage =
  describe "Parsing page declaration" $ do
    let parsePage input = runWaspParser page input

    let expectedPageComponentImport =
          Wasp.JsImport.JsImport
            { Wasp.JsImport._defaultImport = Just "Main",
              Wasp.JsImport._namedImports = [],
              Wasp.JsImport._from = [SP.relfileP|pages/Main|]
            }

    it "When given a valid page declaration, returns correct AST" $ do
      let testPageName = "Landing"

      parsePage
        ( "page " ++ testPageName ++ " { "
            ++ "component: import Main from \"@ext/pages/Main\""
            ++ "}"
        )
        `shouldBe` Right
          ( Wasp.Page.Page
              { Wasp.Page._name = testPageName,
                Wasp.Page._component = expectedPageComponentImport,
                Wasp.Page._authRequired = Nothing
              }
          )

    it "When given a valid page with authRequired property, returns correct AST" $ do
      let testPageName = "Landing"

      parsePage
        ( "page " ++ testPageName ++ " { "
            ++ "component: import Main from \"@ext/pages/Main\","
            ++ "authRequired: true"
            ++ "}"
        )
        `shouldBe` Right
          ( Wasp.Page.Page
              { Wasp.Page._name = testPageName,
                Wasp.Page._component = expectedPageComponentImport,
                Wasp.Page._authRequired = Just True
              }
          )

    it "When given page wasp declaration without 'page', should return Left" $ do
      isLeft (parsePage "Landing { component: import Main from \"@ext/pages/Main\" }") `shouldBe` True