generated from tpl/purs
e392713273
- Bumped dependencies - Use generic rep - New operator syntax - New qualified import syntax
98 lines
1.9 KiB
Haskell
98 lines
1.9 KiB
Haskell
module Test.Main where
|
|
|
|
import Control.Monad.Eff (Eff)
|
|
import Control.Monad.Except (runExcept)
|
|
import Data.Either (Either(..))
|
|
import Data.Foreign (F)
|
|
import Data.YAML.Foreign.Decode (readYAML)
|
|
import Data.YAML.Foreign.Encode (printYAML)
|
|
import Prelude (Unit, bind, ($))
|
|
import Test.Instances (GeoObject(..), Mobility(..), Point(..))
|
|
import Test.Spec (describe, it)
|
|
import Test.Spec.Assertions (shouldEqual)
|
|
import Test.Spec.Reporter.Console (consoleReporter)
|
|
import Test.Spec.Runner (RunnerEffects, run)
|
|
|
|
yamlInput :: String
|
|
yamlInput = """
|
|
- Name: House
|
|
Scale: 9.5
|
|
# Points describe the outer limit of an object.
|
|
Points:
|
|
- X: 10
|
|
Y: 10
|
|
- X: 20
|
|
Y: 10
|
|
- X: 5
|
|
Y: 5
|
|
Mobility: Fix
|
|
Coverage: 10
|
|
- Name: Tree
|
|
Scale: 1
|
|
Points:
|
|
- X: 1
|
|
Y: 1
|
|
- X: 2
|
|
Y: 2
|
|
- X: 0
|
|
Y: 0
|
|
Mobility: Fix
|
|
Coverage: 10
|
|
"""
|
|
|
|
yamlOutput :: String
|
|
yamlOutput = """- Coverage: 10
|
|
Mobility: Fix
|
|
Name: House
|
|
Points:
|
|
- X: 10
|
|
'Y': 10
|
|
- X: 20
|
|
'Y': 10
|
|
- X: 5
|
|
'Y': 5
|
|
Scale: 9.5
|
|
- Coverage: 10
|
|
Mobility: Fix
|
|
Name: Tree
|
|
Points:
|
|
- X: 1
|
|
'Y': 1
|
|
- X: 2
|
|
'Y': 2
|
|
- X: 0
|
|
'Y': 0
|
|
Scale: 1
|
|
"""
|
|
|
|
parsedData :: Array GeoObject
|
|
parsedData =
|
|
[ GeoObject
|
|
{ coverage: 10.0
|
|
, mobility: Fix
|
|
, name: "House"
|
|
, points: [ Point 10 10, Point 20 10, Point 5 5 ]
|
|
, scale: 9.5
|
|
}
|
|
, GeoObject
|
|
{ coverage: 10.0
|
|
, mobility: Fix
|
|
, name: "Tree"
|
|
, points: [ Point 1 1, Point 2 2, Point 0 0 ]
|
|
, scale: 1.0
|
|
}
|
|
]
|
|
|
|
main :: Eff (RunnerEffects ()) Unit
|
|
main = run [consoleReporter] do
|
|
describe "purescript-yaml" do
|
|
describe "decode" do
|
|
it "Decodes YAML" do
|
|
let decoded = (readYAML yamlInput) :: F (Array GeoObject)
|
|
(runExcept decoded) `shouldEqual` (Right parsedData)
|
|
describe "encode" do
|
|
it "Encodes YAML" $ do
|
|
let encoded = printYAML parsedData
|
|
encoded `shouldEqual` yamlOutput
|
|
|