mirror of
https://github.com/wasp-lang/wasp.git
synced 2024-12-28 19:44:30 +03:00
26 lines
728 B
Haskell
26 lines
728 B
Haskell
|
module Parser.StyleTest where
|
||
|
|
|
||
|
|
import Test.Tasty.Hspec
|
||
|
|
|
||
|
|
import Data.Either (isLeft)
|
||
|
|
import Path (relfile)
|
||
|
|
|
||
|
|
import Parser.Common (runWaspParser)
|
||
|
|
import Parser.Style (style)
|
||
|
|
import qualified Wasp.Style
|
||
|
|
|
||
|
|
|
||
|
|
spec_parseStyle :: Spec
|
||
|
|
spec_parseStyle = do
|
||
|
|
it "Parses relative file path correctly" $ do
|
||
|
|
runWaspParser style "\"some/file.js\""
|
||
|
|
`shouldBe` Right (Wasp.Style.ExtCodeCssFile [relfile|some/file.js|])
|
||
|
|
|
||
|
|
it "Parses css closure correctly" $ do
|
||
|
|
runWaspParser style "{=css Some css code css=}"
|
||
|
|
`shouldBe` Right (Wasp.Style.CssCode "Some css code")
|
||
|
|
|
||
|
|
it "Throws error if path is not relative" $ do
|
||
|
|
isLeft (runWaspParser style "\"/some/file.js\"")
|
||
|
|
`shouldBe` True
|