92ed909 · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

Merge pull request #1256 from hdgarrood/fix-psc-publish-tests

Fix psc-publish tests

commit92ed9091c23d04d09e65bc23ec50412b945738f8 authorPhil Freeman <paf31@cantab.net> dateMon 13 Jul 2015, 09:41 (11 years ago) parentc172230 f0fa4b0

2 files changed+5−3

unifiedsplit

psc-publish/Main.hs+2

@@ -3,6 +3,8 @@

33{-# LANGUAGE TupleSections #-}

44{-# LANGUAGE GeneralizedNewtypeDeriving #-}

6+module Main where

68import Prelude hiding (userError)

810import Data.Maybe

psc-publish/tests/Test.hs+3−3

@@ -57,7 +57,7 @@ getPackage = do

5757 pushd packageDir preparePackage

5858

5959data TestResult

60− = ParseFailed (ParseError PackageError)

60+ = ParseFailed String

6161 | Mismatch ByteString ByteString -- ^ encoding before, encoding after

6262 | Pass ByteString

6363 deriving (Show)

@@ -70,10 +70,10 @@ test = roundTrip <$> getPackage

7070roundTrip :: UploadedPackage -> TestResult

7171roundTrip pkg =

7272 let before = A.encode pkg

73− in case parse asUploadedPackage before of

73+ in case A.eitherDecode before of

7474 Left err -> ParseFailed err

7575 Right parsed -> do

76− let after = A.encode parsed

76+ let after = A.encode (parsed :: UploadedPackage)

7777 if before == after

7878 then Pass before

7979 else Mismatch before after