ScratchSpec.hs

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

module ScratchSpec(
  htf_thisModulesTests
) where

import Control.Monad.IO.Class (liftIO)
import Data.Default.Class (def)
import Test.Framework
import Ribosome.Api.Buffer (currentBufferContent)
import Ribosome.Data.ScratchOptions (ScratchOptions(ScratchOptions))
import Ribosome.Scratch (showInScratch)
import Ribosome.Control.Ribo (Ribo)
import Ribosome.Test.Unit (unitSpec)

target :: [String]
target = ["line 1", "line 2"]

scratchSpec :: Ribo e ()
scratchSpec = do
  _ <- showInScratch target (ScratchOptions False True (Just 0) False "buffi")
  content <- currentBufferContent
  liftIO $ assertEqual target content

test_scratch :: IO ()
test_scratch =
  unitSpec def () scratchSpec