gren-lang/compiler
1
1
Fork 0
mirror of https://github.com/gren-lang/compiler.git synced 2024-09-11 16:56:29 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

Don't use OverloadedStrings as test data. Tests now pass.

Browse Source
This commit is contained in:
Robin Heggelund Hansen 2023-09-21 13:55:38 +02:00
parent c503f048f3
commit eef4159cc5
No known key found for this signature in database
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/Parse/DeclSpec.hs
View File

@ -1,8 +1,6 @@
{-# LANGUAGE OverloadedStrings #-}
module Parse.DeclSpec where
import Data.ByteString qualified as BS
import Data.ByteString.UTF8 qualified as Utf8
import Helpers.Instances ()
import Parse.Declaration (declaration)
import Parse.Primitives qualified as P
@ -25,12 +23,12 @@ spec = do
it "Value names can be only non-ascii characters" $ do
parse "æøå = 1"
parse :: BS.ByteString -> IO ()
parse :: String -> IO ()
parse str =
P.fromByteString
(P.specialize (\_ row col -> DeclError row col) declaration)
(OtherError "fromByteString failed")
str
(Utf8.fromString str)
`shouldSatisfy` valid
valid :: Either x y -> Bool