Packages

purerl_test

0.1.3
0.1.10 0.1.9 0.1.8 0.1.6 0.1.5 0.1.4 0.1.3 0.1.2 0.1.1 0.1.0

A testing library for PureScript (`purerl`) projects.

HexDocs

Current section

Files

Jump to
Readme
10 Versions
2 Dependencies
Dependants
Files
Activity
purerl_test src PurerlTest Suite Bus.purs
Raw

src/PurerlTest/Suite/Bus.purs 

module PurerlTest.Suite.Bus

  ( subscribe

  , unsubscribe

  , send

  ) where



import Prelude



import Effect (Effect)

import Effect.Class (class MonadEffect)

import Erl.Process (class HasSelf)

import PurerlTest.Types (SuiteName, TestResult)

import SimpleBus (Bus, SubscriptionRef)

import SimpleBus as SimpleBus



bus :: SuiteName -> Bus SuiteName TestResult

bus name = SimpleBus.bus name



subscribe

  :: forall message m

   . HasSelf m message

  => MonadEffect m

  => SuiteName

  -> (TestResult -> message)

  -> m SubscriptionRef

subscribe name f = SimpleBus.subscribe (bus name) f



unsubscribe :: SubscriptionRef -> Effect Unit

unsubscribe = SimpleBus.unsubscribe



send :: SuiteName -> TestResult -> Effect Unit

send name result = SimpleBus.raise (bus name) result