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: add Arbitrary StorePathTrust, Arbitrary (Metadata StorePath)

Browse Source
This commit is contained in:
sorki 2023-11-30 06:07:28 +01:00
parent 2e4e83c578
commit a9be986781
3 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hnix-store-tests/hnix-store-tests.cabal
View File

@ -45,6 +45,7 @@ library
, System.Nix.Arbitrary.Signature
, System.Nix.Arbitrary.Store.Types
, System.Nix.Arbitrary.StorePath
, System.Nix.Arbitrary.StorePath.Metadata
, Test.Hspec.Nix
build-depends:
base >=4.12 && <5

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

@ -9,3 +9,4 @@ import System.Nix.Arbitrary.Hash ()
import System.Nix.Arbitrary.Signature ()
import System.Nix.Arbitrary.Store.Types ()
import System.Nix.Arbitrary.StorePath ()
import System.Nix.Arbitrary.StorePath.Metadata ()

23
hnix-store-tests/src/System/Nix/Arbitrary/StorePath/Metadata.hs Normal file
View File

@ -0,0 +1,23 @@
-- due to recent generic-arbitrary
{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -fconstraint-solver-iterations=0 #-}
{-# OPTIONS_GHC -Wno-orphans #-}
module System.Nix.Arbitrary.StorePath.Metadata where
import System.Nix.Arbitrary.ContentAddress ()
import System.Nix.Arbitrary.Hash ()
import System.Nix.Arbitrary.Signature ()
import System.Nix.Arbitrary.StorePath ()
import System.Nix.StorePath (StorePath)
import System.Nix.StorePath.Metadata (Metadata, StorePathTrust)
import Test.QuickCheck (Arbitrary(..))
import Test.QuickCheck.Arbitrary.Generic (GenericArbitrary(..))
import Test.QuickCheck.Instances ()
deriving via GenericArbitrary StorePathTrust
instance Arbitrary StorePathTrust
deriving via GenericArbitrary (Metadata StorePath)
instance Arbitrary (Metadata StorePath)