proteome-0.3.15.0: test/f/ConfigSpec.hs

{-# OPTIONS_GHC -F -pgmF htfpp #-}

module ConfigSpec(
  htf_thisModulesTests
) where

import Control.Monad.IO.Class (liftIO)
import Test.Framework
import Data.MessagePack (Object(ObjectInt))
import Neovim (vim_call_function', vim_get_var')
import Ribosome.Data.Ribo (Ribo)
import Proteome.Test.Functional (specWith)
import Config (vars)

configSpec :: Ribo env ()
configSpec = do
  _ <- vim_call_function' "ProReadConfig" []
  value <- vim_get_var' "flag"
  liftIO $ assertEqual value (ObjectInt 13)

test_config :: IO ()
test_config =
  vars >>= specWith configSpec