wasp/test/Generator/PageGeneratorTest.hs

module Generator.PageGeneratorTest where

import Test.Tasty.Hspec

import Path (relfile)

import Wasp
import Generator.FileDraft
import Generator.FileDraft.TemplateFileDraft
import Generator.PageGenerator


spec_PageGenerator :: Spec
spec_PageGenerator = do
    let testApp = (App "TestApp" "Test App")
    let testPage = (Page "TestPage" "/test-page" "<div>Test Page</div>" Nothing)
    let testWasp = (fromApp testApp) `addPage` testPage

    describe "generatePageComponent" $ do
        it "Given a simple Wasp, creates template file draft from _Page.js" $ do
            let (FileDraftTemplateFd (TemplateFileDraft _ srcPath _))
                    = generatePageComponent testWasp (head $ getPages testWasp)
            srcPath `shouldBe` [relfile|src/_Page.js|]