stackbuilders/hapistrano
1
1
Fork 0
mirror of https://github.com/stackbuilders/hapistrano.git synced 2024-12-23 19:46:23 +03:00
Code Issues Projects Releases Wiki Activity

Tests refactored

Browse Source
This commit is contained in:
Felix Mino 2021-03-04 15:00:57 -05:00
parent 754918b7a8
commit fcac5f42bb
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
spec/System/HapistranoSpec.hs
View File

@ -22,7 +22,6 @@ import System.Hapistrano.Types
import System.IO
import System.IO.Silently (capture_)
import System.Info (os)
import qualified System.FilePath as SF
import Test.Hspec hiding (shouldBe, shouldReturn)
import qualified Test.Hspec as Hspec
import Test.Hspec.QuickCheck
@ -32,10 +31,10 @@ testBranchName :: String
testBranchName = "another_branch"
workingDir :: Path Rel Dir
workingDir = Path "working_dir"
workingDir = $(mkRelDir "working_dir")
releaseDir :: FilePath
releaseDir = toFilePath (Path "releases")
releaseDir :: Path Rel Dir
releaseDir = $(mkRelDir "releases")
spec :: Spec
spec = do
@ -110,7 +109,8 @@ spec = do
(,) <$> Hap.releasePath deployPath release Nothing
<*> pure release
toFilePath rpath `shouldBe` toFilePath deployPath SF.</> releaseDir SF.</> (renderRelease release <> [SF.pathSeparator])
rel <- parseRelDir $ renderRelease release
rpath `shouldBe` deployPath </> releaseDir </> rel
context "when the configWorkingDir is Just" $
it "should return the release path with WorkingDir" $ \(deployPath, repoPath) -> do
@ -119,7 +119,8 @@ spec = do
(,) <$> Hap.releasePath deployPath release (Just workingDir)
<*> pure release
toFilePath rpath `shouldBe` toFilePath deployPath SF.</> releaseDir SF.</> renderRelease release SF.</> "working_dir"
rel <- parseRelDir $ renderRelease release
rpath `shouldBe` deployPath </> releaseDir </> rel </> workingDir
describe "pushRelease" $ do
it "sets up repo all right in Zsh" $ \(deployPath, repoPath) ->