mirror of
https://github.com/haskell-nix/hnix-store.git
synced 2024-12-12 17:04:19 +03:00
13 lines
347 B
Haskell
13 lines
347 B
Haskell
|
|
module Util where
|
|
|
|
import Data.Text.Arbitrary ()
|
|
import System.Nix.Store.Remote.Util
|
|
import Test.Tasty.QuickCheck
|
|
|
|
prop_TextToBSLRoundtrip :: Text -> Property
|
|
prop_TextToBSLRoundtrip x = bslToText (textToBSL x) === x
|
|
|
|
prop_TextToBSRoundtrip :: Text -> Property
|
|
prop_TextToBSRoundtrip x = bsToText (textToBS x) === x
|