1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
module Stack.Config.DockerSpec
( spec
) where
import Test.Hspec
import Stack.Prelude
import Stack.Types.Resolver
import RIO.Time (fromGregorian)
import Stack.Config.Docker (addDefaultTag)
spec :: Spec
spec = do
describe "addDefaultTag" $ do
it "succeeds fails no snapshot resolver" $ addDefaultTag "foo/bar" Nothing Nothing `shouldBe` Nothing
it "succeeds on LTS" $
addDefaultTag
"foo/bar"
Nothing
(Just $ ARResolver $ RSLSynonym $ LTS 1 2)
`shouldBe` Just "foo/bar:lts-1.2"
it "fails on nightly" $
addDefaultTag
"foo/bar"
Nothing
(Just $ ARResolver $ RSLSynonym $ Nightly $ fromGregorian 2018 1 1)
`shouldBe` Nothing
|
