cachix-0.3.0: test/NetRcSpec.hs

module NetRcSpec where

import Cachix.Api (BinaryCache (..))
import Cachix.Client.Config (Config (..))
import qualified Cachix.Client.NetRc as NetRc
import Protolude
import System.Directory (copyFile)
import System.IO.Temp (withSystemTempFile)
import Test.Hspec

bc1 :: BinaryCache
bc1 = BinaryCache
  { name = "name",
    uri = "https://name.cachix.org",
    publicSigningKeys = ["pub"],
    isPublic = False,
    githubUsername = "foobar"
    }

bc2 :: BinaryCache
bc2 = BinaryCache
  { name = "name2",
    uri = "https://name2.cachix.org",
    publicSigningKeys = ["pub2"],
    isPublic = False,
    githubUsername = "foobar2"
    }

config :: Config
config = Config
  { authToken = "token123",
    binaryCaches = []
    }

-- TODO: poor man's golden tests, use https://github.com/stackbuilders/hspec-golden
test :: [BinaryCache] -> Text -> Expectation
test binaryCaches goldenName = withSystemTempFile "hspec-netrc" $ \filepath _ -> do
  let input = "test/data/" <> toS goldenName <> ".input"
      output = "test/data/" <> toS goldenName <> ".output"
  copyFile input filepath
  NetRc.add config binaryCaches filepath
  real <- readFile filepath
  expected <- readFile output
  real `shouldBe` expected

spec :: Spec
spec =
  describe "add" $ do
    -- TODO: not easy to test this with temp files as they are *created*
    --it "populates non-existent netrc file" $ test [bc1, bc2] "fresh"
    it "populates empty netrc file" $ test [bc1, bc2] "empty"
    it "populates netrc file with one additional entry" $ test [bc2] "add"
    it "populates netrc file with one overriden entry" $ test [bc2] "override"