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

make quasiquoter (and haskell-src-exts dependency) optional

Browse source
This commit is contained in:
rhiannon morris 2024-10-23 01:53:23 +02:00
parent eaf07f8981
commit 9269caacb7
2 changed files with 30 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
test/Main.hs
View file

@ -12,13 +12,10 @@ import Prelude hiding (replicate)
import Control.Applicative (liftA2)
import Control.Monad.ST (runST)
import Data.Bytes.Builder
import Data.Bytes.Builder.Template (bldr)
import Data.Bytes.Types (MutableBytes (MutableBytes))
import Data.Char (chr, ord)
import Data.IORef (IORef, newIORef, readIORef, writeIORef)
import Data.Maybe (fromMaybe)
import Data.Primitive (ByteArray, PrimArray)
import Data.Text.Short (ShortText)
import Data.WideWord (Word128 (Word128), Word256 (Word256))
import Data.Word
import Numeric.Natural (Natural)
@ -28,16 +25,20 @@ import Test.Tasty (TestTree, defaultMain, testGroup)
import Test.Tasty.HUnit ((@=?))
import Text.Printf (printf)
#ifdef QUOTER
import Data.Bytes.Builder.Template (bldr)
import Data.Maybe (fromMaybe)
import Data.Text.Short (ShortText)
#endif
import qualified Arithmetic.Nat as Nat
import qualified Data.Bits as Bits
import qualified Data.ByteString as ByteString
import qualified Data.ByteString.Builder as BB
import qualified Data.ByteString.Lazy.Char8 as LB
import qualified Data.Bytes as Bytes
import qualified Data.Bytes.Builder as Builder
import qualified Data.Bytes.Builder.Bounded as Bounded
import qualified Data.Bytes.Chunks as Chunks
import qualified Data.Bytes.Text.Ascii as Ascii
import qualified Data.Bytes.Text.Latin1 as Latin1
import qualified Data.List as L
import qualified Data.Primitive as PM
@ -48,6 +49,11 @@ import qualified Test.Tasty.HUnit as THU
import qualified Test.Tasty.QuickCheck as TQC
import qualified Prelude
#ifdef QUOTER
import qualified Data.Bytes.Builder as Builder
import qualified Data.Bytes.Text.Ascii as Ascii
#endif
import qualified HexWord64
import qualified Word16Tree
@ -329,6 +335,7 @@ tests =
]
@=? map Exts.toList (Exts.toList res)
]
#ifdef QUOTER
, testGroup
"bytes templates"
[ THU.testCase "A" $ do
@ -352,6 +359,7 @@ tests =
msg = Chunks.concat . Builder.run 200 $ msgBuilder
in Ascii.fromString "there are 137 lights!" @=? msg
]
#endif
]
bytesOntoRef ::