haskell-nix/hnix-store
1
1
Fork 0
mirror of https://github.com/haskell-nix/hnix-store.git synced 2024-09-11 18:05:56 +03:00
Code Issues Projects Releases Wiki Activity

tests: shave off other hashes todo for StorePathHashPart

Browse Source
This commit is contained in:
sorki 2023-11-30 06:07:52 +01:00
parent a9be986781
commit ee4049d36e
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
hnix-store-tests/src/System/Nix/Arbitrary/StorePath.hs
View File

@ -1,13 +1,11 @@
-- due to recent generic-arbitrary
{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -fconstraint-solver-iterations=0 #-}
{-# OPTIONS_GHC -Wno-orphans #-}
module System.Nix.Arbitrary.StorePath where
#if !MIN_VERSION_base(4,18,0)
import Control.Applicative (liftA2)
#endif
import Crypto.Hash (SHA256)
import Crypto.Hash (MD5, SHA1, SHA256, SHA512)
import qualified Data.ByteString.Char8
import qualified Data.Text
import System.Nix.StorePath (StoreDir(..)
@ -17,7 +15,7 @@ import System.Nix.StorePath (StoreDir(..)
)
import qualified System.Nix.StorePath
import Test.QuickCheck (Arbitrary(arbitrary), listOf, elements)
import Test.QuickCheck (Arbitrary(arbitrary), elements, listOf, oneof)
instance Arbitrary StoreDir where
arbitrary =
@ -43,6 +41,13 @@ instance Arbitrary StorePathName where
instance Arbitrary StorePathHashPart where
arbitrary =
-- TODO(srk): other hashes
System.Nix.StorePath.mkStorePathHashPart @SHA256
. Data.ByteString.Char8.pack <$> arbitrary
oneof
[ System.Nix.StorePath.mkStorePathHashPart @MD5
. Data.ByteString.Char8.pack <$> arbitrary
, System.Nix.StorePath.mkStorePathHashPart @SHA1
. Data.ByteString.Char8.pack <$> arbitrary
, System.Nix.StorePath.mkStorePathHashPart @SHA256
. Data.ByteString.Char8.pack <$> arbitrary
, System.Nix.StorePath.mkStorePathHashPart @SHA512
. Data.ByteString.Char8.pack <$> arbitrary
]