mirror of
https://github.com/haskell-nix/hnix-store.git
synced 2024-12-13 23:56:37 +03:00
38 lines
1.1 KiB
Haskell
38 lines
1.1 KiB
Haskell
{-# LANGUAGE FlexibleInstances #-}
|
|
{-# LANGUAGE DataKinds #-}
|
|
|
|
module Arbitrary where
|
|
|
|
import Control.Monad (replicateM)
|
|
import qualified Data.ByteString.Char8 as BSC
|
|
import qualified Data.Text as T
|
|
|
|
import Test.Tasty.QuickCheck
|
|
|
|
import System.Nix.Hash
|
|
import System.Nix.Internal.Hash
|
|
import System.Nix.StorePath
|
|
import System.Nix.Internal.StorePath
|
|
|
|
genSafeChar :: Gen Char
|
|
genSafeChar = choose ('\1', '\127') -- ASCII without \NUL
|
|
|
|
nonEmptyString :: Gen String
|
|
nonEmptyString = listOf1 genSafeChar
|
|
|
|
dir = ('/':) <$> (listOf1 $ elements $ ('/':['a'..'z']))
|
|
|
|
instance Arbitrary StorePathName where
|
|
arbitrary = StorePathName . T.pack
|
|
<$> ((:) <$> s1 <*> listOf sn)
|
|
where
|
|
alphanum = ['a'..'z'] ++ ['A'..'Z'] ++ ['0'..'9']
|
|
s1 = elements $ alphanum ++ "+-_?="
|
|
sn = elements $ alphanum ++ "+-._?="
|
|
|
|
instance Arbitrary (Digest StorePathHashAlgo) where
|
|
arbitrary = hash . BSC.pack <$> arbitrary
|
|
|
|
instance Arbitrary (Digest SHA256) where
|
|
arbitrary = hash . BSC.pack <$> arbitrary
|