mirror of
https://github.com/haskell-nix/hnix-store.git
synced 2024-09-11 18:05:56 +03:00
tests: add/move Test.Hspec.Nix.forceRight from json
This commit is contained in:
parent
aa94d3c3da
commit
7dc5c596aa
@ -69,5 +69,5 @@ forceDecodeB64Pubkey b64EncodedPubkey = let
|
|||||||
forceRight :: Either a b -> b
|
forceRight :: Either a b -> b
|
||||||
forceRight = \case
|
forceRight = \case
|
||||||
Right x -> x
|
Right x -> x
|
||||||
_ -> error "fromRight failed"
|
_ -> error "forceRight failed"
|
||||||
|
|
||||||
|
@ -5,7 +5,7 @@ import Data.Aeson (ToJSON, FromJSON, decode, encode)
|
|||||||
import Data.Default.Class (Default(def))
|
import Data.Default.Class (Default(def))
|
||||||
import Test.Hspec (Expectation, Spec, describe, it, shouldBe)
|
import Test.Hspec (Expectation, Spec, describe, it, shouldBe)
|
||||||
import Test.Hspec.QuickCheck (prop)
|
import Test.Hspec.QuickCheck (prop)
|
||||||
import Test.Hspec.Nix (roundtrips)
|
import Test.Hspec.Nix (forceRight, roundtrips)
|
||||||
|
|
||||||
import System.Nix.Arbitrary ()
|
import System.Nix.Arbitrary ()
|
||||||
import System.Nix.JSON ()
|
import System.Nix.JSON ()
|
||||||
@ -99,11 +99,3 @@ spec = do
|
|||||||
|
|
||||||
it "sampleRealisation1 matches preimage" $
|
it "sampleRealisation1 matches preimage" $
|
||||||
encode sampleRealisation1 `shouldBe` "{\"outPath\":\"5rwxzi7pal3qhpsyfc16gzkh939q1np6-curl-7.82.0.drv\",\"signatures\":[\"SMjnB3mPgXYjXacU+xN24BdzXlAgGAuFnYwPddU3bhjfHBeQus/OimdIPMgR/JMKFPHXORrk7pbjv68vecTEBA==\",\"fW3iEMfyx6IZzGNswD54BjclfkXiYzh0xRXddrXfJ1rp1l8p1xTi9/0g2EibbwLFb6p83cwIJv5KtTGksC54CQ==\"],\"dependentRealisations\":{\"sha256:1b4sb93wp679q4zx9k1ignby1yna3z7c4c2ri3wphylbc2dwsys0!foo\":\"9472ijanf79nlkb5n1yh57s7867p1930-testFixed\"}}"
|
encode sampleRealisation1 `shouldBe` "{\"outPath\":\"5rwxzi7pal3qhpsyfc16gzkh939q1np6-curl-7.82.0.drv\",\"signatures\":[\"SMjnB3mPgXYjXacU+xN24BdzXlAgGAuFnYwPddU3bhjfHBeQus/OimdIPMgR/JMKFPHXORrk7pbjv68vecTEBA==\",\"fW3iEMfyx6IZzGNswD54BjclfkXiYzh0xRXddrXfJ1rp1l8p1xTi9/0g2EibbwLFb6p83cwIJv5KtTGksC54CQ==\"],\"dependentRealisations\":{\"sha256:1b4sb93wp679q4zx9k1ignby1yna3z7c4c2ri3wphylbc2dwsys0!foo\":\"9472ijanf79nlkb5n1yh57s7867p1930-testFixed\"}}"
|
||||||
|
|
||||||
forceRight
|
|
||||||
:: Show a
|
|
||||||
=> Either a b
|
|
||||||
-> b
|
|
||||||
forceRight = \case
|
|
||||||
Right x -> x
|
|
||||||
Left e -> error $ "fromRight failed: " ++ show e
|
|
||||||
|
@ -1,5 +1,6 @@
|
|||||||
module Test.Hspec.Nix
|
module Test.Hspec.Nix
|
||||||
( roundtrips
|
( forceRight
|
||||||
|
, roundtrips
|
||||||
) where
|
) where
|
||||||
|
|
||||||
import Test.Hspec (Expectation, shouldBe)
|
import Test.Hspec (Expectation, shouldBe)
|
||||||
@ -18,3 +19,11 @@ roundtrips
|
|||||||
-> Expectation
|
-> Expectation
|
||||||
roundtrips encode decode x =
|
roundtrips encode decode x =
|
||||||
decode (encode x) `shouldBe` pure x
|
decode (encode x) `shouldBe` pure x
|
||||||
|
|
||||||
|
forceRight
|
||||||
|
:: Show a
|
||||||
|
=> Either a b
|
||||||
|
-> b
|
||||||
|
forceRight = \case
|
||||||
|
Right x -> x
|
||||||
|
Left e -> error $ "forceRight failed: " ++ show e
|
||||||
|
Loading…
Reference in New Issue
Block a user