module Main where

import Control.Concurrent
import Data.IPCVar
import Data.IPCVar.File
import System.Posix.Process
import Test.Hspec

main :: IO ()
main = hspec $
    describe "file backend" $
        it "reads and writes values" $ do
            var <- newIPCVar (10 :: Int)
            _ <- forkProcess $ writeIPCVar var 20
            threadDelay 2000000
            x <- readIPCVar var
            x `shouldBe` 20
            deleteIPCVar var