hnix-store-remote-0.4.2.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