mirror of
https://github.com/wasp-lang/wasp.git
synced 2024-12-27 02:52:22 +03:00
36 lines
1.3 KiB
Haskell
36 lines
1.3 KiB
Haskell
|
module Parser.OperationTest where
|
||
|
|
|
||
|
|
import Test.Tasty.Hspec
|
||
|
|
|
||
|
|
import Data.List (intercalate)
|
||
|
|
import qualified Path.Posix as PPosix
|
||
|
|
|
||
|
|
import Parser.Common (runWaspParser)
|
||
|
|
import Parser.Operation
|
||
|
|
import qualified StrongPath as SP
|
||
|
|
import qualified Wasp.JsImport
|
||
|
|
|
||
|
|
|
||
|
|
spec_parseOperation :: Spec
|
||
|
|
spec_parseOperation =
|
||
|
|
describe "Parsing operation properties" $ do
|
||
|
|
let parseOperationProperties = runWaspParser properties
|
||
|
|
|
||
|
|
it "When given a valid list of properties, correctly parses them" $ do
|
||
|
|
let testJsFnName = "myJsFn"
|
||
|
|
testJsFnFrom = SP.fromPathRelFileP [PPosix.relfile|some/path|]
|
||
|
|
let testProps =
|
||
|
|
[ JsFunction $ Wasp.JsImport.JsImport
|
||
|
|
{ Wasp.JsImport._defaultImport = Nothing
|
||
|
|
, Wasp.JsImport._namedImports = [ testJsFnName ]
|
||
|
|
, Wasp.JsImport._from = testJsFnFrom
|
||
|
|
}
|
||
|
|
, Entities ["Task", "Project"] ]
|
||
|
|
parseOperationProperties (
|
||
|
|
intercalate ",\n"
|
||
|
|
[ "fn: import { " ++ testJsFnName ++ " } from \"@ext/some/path\""
|
||
|
|
, "entities: [Task, Project]"
|
||
|
|
]
|
||
|
|
)
|
||
|
|
`shouldBe` Right testProps
|