hnix-store-remote-0.4.1.0: tests/Util.hs

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