rhi/bytebuild
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add functions for encoding ShortText as UTF-8 and as JSON

Browse source
This commit is contained in:
Andrew Martin 2019-08-07 15:23:02 -04:00
parent 1fd4b3ab1e
commit 5d3d6d1afd
5 changed files with 106 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test/Main.hs
View file

@ -1,6 +1,7 @@
{-# language BangPatterns #-}
{-# language ScopedTypeVariables #-}
{-# language TypeApplications #-}
{-# language OverloadedStrings #-}
import Control.Monad.ST (runST)
import Data.Bytes.Types (MutableBytes(..))
@ -75,6 +76,14 @@ tests = testGroup "Tests"
pack ("999999999") @=? run 1 (doubleDec 999999999)
, THU.testCase "doubleDec-K" $
pack ("-99999999") @=? run 1 (doubleDec (-99999999))
, THU.testCase "shortTextJsonString-A" $
pack ("\"hello\"") @=? run 1 (shortTextJsonString "hello")
, THU.testCase "shortTextJsonString-B" $
pack ("\"\\\\_\\\"_/\"") @=? run 1 (shortTextJsonString "\\_\"_/")
, THU.testCase "shortTextJsonString-C" $
pack ("\"Hi\\r\\nLo\"") @=? run 1 (shortTextJsonString "Hi\r\nLo")
, THU.testCase "shortTextJsonString-D" $
pack ("\"Hi\\u001BLo\"") @=? run 1 (shortTextJsonString "Hi\ESCLo")
]
, testGroup "alternate"
[ TQC.testProperty "HexWord64" $ \x y ->