Add tests for ReadOnlyStore

Author: sorki

hnix-store-core/hnix-store-core.cabal

@@ -123,6 +123,7 @@ test-suite format-tests
     Derivation
     NarFormat
     Hash
+    ReadOnly
   hs-source-dirs:
     tests
   build-tool-depends:
@@ -150,3 +151,4 @@ test-suite format-tests
     , temporary
     , text
     , unix
+    , unordered-containers

hnix-store-core/tests/ReadOnly.hs

@@ -0,0 +1,124 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module ReadOnly where
+
+import Data.Default.Class (Default(def))
+import Test.Hspec (Spec, describe, it, shouldBe)
+
+import Crypto.Hash (hash, Digest, SHA256(..))
+import Data.ByteString (ByteString)
+import System.Nix.StorePath (StorePath, StorePathName)
+
+import qualified Data.HashSet
+import qualified System.Nix.StorePath
+
+import System.Nix.ReadonlyStore
+
+testDigest :: Digest SHA256
+testDigest = Crypto.Hash.hash @ByteString "testDigest"
+
+testName :: StorePathName
+testName =
+    either undefined id
+  $ System.Nix.StorePath.makeStorePathName "testFixed"
+
+testPath :: StorePath
+testPath =
+    either undefined id
+  $ System.Nix.StorePath.parsePathFromText
+      def
+      "/nix/store/9472ijanf79nlkb5n1yh57s7867p1930-testFixed"
+
+testPath2 :: StorePath
+testPath2 =
+    either undefined id
+  $ System.Nix.StorePath.parsePathFromText
+      def
+      "/nix/store/iali40m5597kikibjxw8cx1ssxlqnii3-testFixed"
+
+spec_readOnly :: Spec
+spec_readOnly = do
+  describe "ReadOnly" $ do
+    it "makeStorePath computes correct StorePath" $
+      (pure
+        $ makeStorePath
+            def
+            "test"
+            testDigest
+            testName
+      )
+      `shouldBe`
+      System.Nix.StorePath.parsePathFromText
+        def
+        "/nix/store/iali40m5597kikibjxw8cx1ssxlqnii3-testFixed"
+
+    describe "makeTextPath" $ do
+      it "computes correct StorePath for empty refs" $
+        (pure
+          $ makeTextPath
+              def
+              testName
+              testDigest
+              mempty
+        )
+        `shouldBe`
+        System.Nix.StorePath.parsePathFromText
+          def
+          "/nix/store/ync87sfmahhaqwnykzwbk31q96drm9vn-testFixed"
+
+      it "computes correct StorePath for nonempty refs" $
+        (pure
+          $ makeTextPath
+              def
+              testName
+              testDigest
+              (Data.HashSet.fromList [ testPath, testPath2 ])
+        )
+        `shouldBe`
+        System.Nix.StorePath.parsePathFromText
+          def
+          "/nix/store/jcvh84zapqndh8hva515d4y41s07n2g8-testFixed"
+
+    describe "makeFixedOuputPath" $ do
+      it "computes correct StorePath, recursive" $
+        (pure
+          $ makeFixedOutputPath
+              def
+              True
+              testDigest
+              testName
+        )
+        `shouldBe`
+        System.Nix.StorePath.parsePathFromText
+          def
+          "/nix/store/c0cgdqy9i3smyh3as8c4s6fg6nvwdpzy-testFixed"
+
+      it "computes correct StorePath, non-recursive" $
+        (pure
+          $ makeFixedOutputPath
+              def
+              False
+              testDigest
+              testName
+        )
+        `shouldBe`
+        System.Nix.StorePath.parsePathFromText
+          def
+          "/nix/store/9472ijanf79nlkb5n1yh57s7867p1930-testFixed"
+
+    it "computeStorePathForText computes correct StorePath" $
+        (pure
+          $ computeStorePathForText
+              def
+              testName
+              "test"
+              (Data.HashSet.fromList [ testPath ])
+        )
+        `shouldBe`
+        System.Nix.StorePath.parsePathFromText
+          def
+          "/nix/store/838lq5qh5a88wsalcjpmj33bcnmpz3pc-testFixed"
+
+--    describe "computeStorePathForForPath" $ do
+--      it "computes correct StorePath" $
+--        -- "needs IO and a sample directory to add"