module Eve.Internal.Testing
  ( AppState(..)
  , Exiting(..)
  , noEventTest
  ) where

import Eve
import Eve.Internal.Actions
import Eve.Internal.Events
import Pipes.Concurrent

noEventTest :: App a -> IO a
noEventTest test = do
  (output, input) <- spawn unbounded
  execApp (AppState mempty output) $ test