ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-14 17:41:33 +03:00
Code Issues Packages Projects Releases Wiki Activity

Don't write files to disk during testing.

Browse Source 
While doing our golden testing, we shouldn't write result files to
the filesystem. They are temporary and can fail. Use the in memory
comparisson function instead.
This commit is contained in:
Elliot Glaysher 2019-09-27 11:09:10 -07:00
parent 8b951283b0
commit a80b8fc8ee
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
pkg/king/test/HoonMapSetTests.hs
View File

@ -1,16 +1,17 @@
module HoonMapSetTests (tests) where
import UrbitPrelude
import RIO.Directory
import UrbitPrelude hiding (encodeUtf8)
import Test.QuickCheck hiding ((.&.))
import Data.Text.Lazy.Encoding (encodeUtf8)
import Numeric.Natural (Natural)
import Test.QuickCheck hiding ((.&.))
import Test.Tasty
import Test.Tasty.Golden as G
import Test.Tasty.Golden as G
import Test.Tasty.QuickCheck
import Test.Tasty.TH
import Numeric.Natural (Natural)
import qualified Data.ByteString.Lazy as L
-- Types -----------------------------------------------------------------------
@ -59,22 +60,21 @@ treeTestsIdentity = fmap go
TTSet s -> (TTSet . setToHoonSet . setFromHoonSet) s
TTMap m -> (TTMap . mapToHoonMap . mapFromHoonMap) m
treeRTMug :: FilePath -> FilePath -> IO ()
treeRTMug inp out = do
treeRTMug :: FilePath -> IO L.ByteString
treeRTMug inp = do
byt <- readFile inp
non <- cueBSExn byt
tee <- fromNounExn non
mug <- evaluate $ mug $ toNoun $ treeTestsIdentity tee
writeFile out $ encodeUtf8 $ tshow (mug :: Natural)
pure $ encodeUtf8 $ tlshow (mug :: Natural)
goldenFile :: String -> String -> (FilePath -> FilePath -> IO ()) -> TestTree
goldenFile :: String -> String -> (FilePath -> IO L.ByteString) -> TestTree
goldenFile testName testFileName action =
goldenVsFile testName gold writ (action pill writ)
goldenVsString testName gold (action pill)
where
root = "pkg/king/test/gold" </> testFileName
gold = root <.> "gold"
writ = root <.> "writ"
pill = root <.> "pill"