System.GPIO.Linux.Sysfs.Mock

A mock MonadSysfs instance, for testing GPIO programs.

Note that this monad only mocks the subset of sysfs functionality required for GPIO programs. It does not mock the entire sysfs filesystem.

SysfsMock types

data MockWorld

The global state of a mock Linux GPIO subsystem with a sysfs interface. It consists of the mock sysfs GPIO filesystem state, along with the state of every mock pin.

An actual Linux sysfs GPIO filesystem is not like a general-purpose filesystem. The user cannot create files or directories directly; they can only be created (or modified) via prescribed operations on special conrol files, which are themselves created by the kernel.

Likewise, the kernel and hardware platform together determine which GPIO pins are exposed to the user via the sysfs GPIO filesystem.

To preserve the illusion of an actual sysfs GPIO filesystem, the MockWorld type is opaque and can only be manipulated via the handful of actions that are implemented in this module. These actions have been designed to keep the internal state of the mock sysfs GPIO filesystem consistent with the behavior that would be seen in an actual sysfs GPIO filesystem.

The high/low signal level on a real GPIO pin can, of course, be manipulated by the circuit to which the pin is conected. A future version of this implementation may permit the direct manipulation of mock pin values in order to simulate simple circuits, but currently the only way to manipulate pin state is via the mock sysfs GPIO filesystem.

Instances

Eq MockWorld

Methods

(==) :: MockWorld -> MockWorld -> Bool

(/=) :: MockWorld -> MockWorld -> Bool

Show MockWorld

Methods

showsPrec :: Int -> MockWorld -> ShowS

show :: MockWorld -> String

showList :: [MockWorld] -> ShowS

Monad m => MonadState MockWorld (SysfsMockT m)

Methods

get :: SysfsMockT m MockWorld

put :: MockWorld -> SysfsMockT m ()

state :: (MockWorld -> (a, MockWorld)) -> SysfsMockT m a

data MockPinState

A mock pin.

Constructors

MockPinState

Fields

• _direction :: !PinDirection

  The pin's direction

• _userVisibleDirection :: !Bool

  Is the pin's direction visible from the filesystem?

• _activeLow :: !Bool

  Is the pin configured as active-low?

• _value :: !PinValue

  The pin's physical signal level

• _edge :: Maybe SysfsEdge

  The pin's interrupt mode (if supported)

Instances

Eq MockPinState

Methods

(==) :: MockPinState -> MockPinState -> Bool

(/=) :: MockPinState -> MockPinState -> Bool

Show MockPinState

Methods

showsPrec :: Int -> MockPinState -> ShowS

show :: MockPinState -> String

showList :: [MockPinState] -> ShowS

defaultMockPinState :: MockPinState

Default initial state of mock pins.

>>> defaultMockPinState
MockPinState {_direction = Out, _userVisibleDirection = True, _activeLow = False, _value = Low, _edge = Just None}

logicalValue :: MockPinState -> PinValue

Linux sysfs GPIO natively supports active-low logic levels. A pin's "active" level is controlled by the pin's active_low attribute. The pin's value relative to its active_low attribute is called its logical value. This function returns the mock pin's logical value.

>>> logicalValue defaultMockPinState
Low
>>> logicalValue defaultMockPinState { _value = High }
High
>>> logicalValue defaultMockPinState { _activeLow = True }
High
>>> logicalValue defaultMockPinState { _activeLow = True, _value = High }
Low

setLogicalValue :: PinValue -> MockPinState -> MockPinState

This function sets the MockPinState signal level to the given logical value.

>>> _value $ setLogicalValue High defaultMockPinState
High
>>> _value $ setLogicalValue High defaultMockPinState { _activeLow = True }
Low

data MockGpioChip

A mock GPIO "chip." In the Linux sysfs GPIO filesystem, a GPIO chip is a set of one or more GPIO pins.

Note that the _initialPinStates list is used to construct the pin state for a MockWorld (see runSysfsMockT). For each MockPinState value in the list, a mock pin will be created in the mock filesystem such that, when that pin is exported, its path is /sys/class/gpio/gpioN, where N is _base + the pin's index in the _initialPinStates list.

Constructors

MockGpioChip

Fields

• _label :: !Text

  The name given to the chip in the filesystem

• _base :: !Int

  The pin number of the chip's first pin

• _initialPinStates :: [MockPinState]

  The pins' initial states

Instances

Eq MockGpioChip

Methods

(==) :: MockGpioChip -> MockGpioChip -> Bool

(/=) :: MockGpioChip -> MockGpioChip -> Bool

Show MockGpioChip

Methods

showsPrec :: Int -> MockGpioChip -> ShowS

show :: MockGpioChip -> String

showList :: [MockGpioChip] -> ShowS

type MockPins = Map Pin MockPinState

A type alias for a strict map of Pin to its MockPinState.

mockWorldPins :: MockWorld -> MockPins

Get the pin map from a MockWorld.

initialMockWorld :: MockWorld

The initial MockWorld, representing a sysfs filesystem with no pins.

The SysfsMock monad

newtype SysfsMockT m a

A monad transformer which adds mock sysfs computations to an inner monad m.

Constructors

SysfsMockT

Fields

• unSysfsMockT :: StateT MockWorld m a

Instances

MonadTrans SysfsMockT

Methods

lift :: Monad m => m a -> SysfsMockT m a

MonadTransControl SysfsMockT

Associated Types

type StT (SysfsMockT :: (* -> *) -> * -> *) a :: *

Methods

liftWith :: Monad m => (Run SysfsMockT -> m a) -> SysfsMockT m a

restoreT :: Monad m => m (StT SysfsMockT a) -> SysfsMockT m a

MonadBaseControl b m => MonadBaseControl b (SysfsMockT m)

Associated Types

type StM (SysfsMockT m :: * -> *) a :: *

Methods

liftBaseWith :: (RunInBase (SysfsMockT m) b -> b a) -> SysfsMockT m a

restoreM :: StM (SysfsMockT m) a -> SysfsMockT m a

MonadBase b m => MonadBase b (SysfsMockT m)

Methods

liftBase :: b α -> SysfsMockT m α

MonadWriter w m => MonadWriter w (SysfsMockT m)

Methods

writer :: (a, w) -> SysfsMockT m a

tell :: w -> SysfsMockT m ()

listen :: SysfsMockT m a -> SysfsMockT m (a, w)

pass :: SysfsMockT m (a, w -> w) -> SysfsMockT m a

Monad m => MonadState MockWorld (SysfsMockT m)

Methods

get :: SysfsMockT m MockWorld

put :: MockWorld -> SysfsMockT m ()

state :: (MockWorld -> (a, MockWorld)) -> SysfsMockT m a

MonadReader r m => MonadReader r (SysfsMockT m)

Methods

ask :: SysfsMockT m r

local :: (r -> r) -> SysfsMockT m a -> SysfsMockT m a

reader :: (r -> a) -> SysfsMockT m a

MonadError e m => MonadError e (SysfsMockT m)

Methods

throwError :: e -> SysfsMockT m a

catchError :: SysfsMockT m a -> (e -> SysfsMockT m a) -> SysfsMockT m a

Monad m => Monad (SysfsMockT m)

Methods

(>>=) :: SysfsMockT m a -> (a -> SysfsMockT m b) -> SysfsMockT m b

(>>) :: SysfsMockT m a -> SysfsMockT m b -> SysfsMockT m b

return :: a -> SysfsMockT m a

fail :: String -> SysfsMockT m a

Functor m => Functor (SysfsMockT m)

Methods

fmap :: (a -> b) -> SysfsMockT m a -> SysfsMockT m b

(<$) :: a -> SysfsMockT m b -> SysfsMockT m a

MonadFix m => MonadFix (SysfsMockT m)

Methods

mfix :: (a -> SysfsMockT m a) -> SysfsMockT m a

Monad m => Applicative (SysfsMockT m)

Methods

pure :: a -> SysfsMockT m a

(<*>) :: SysfsMockT m (a -> b) -> SysfsMockT m a -> SysfsMockT m b

liftA2 :: (a -> b -> c) -> SysfsMockT m a -> SysfsMockT m b -> SysfsMockT m c

(*>) :: SysfsMockT m a -> SysfsMockT m b -> SysfsMockT m b

(<*) :: SysfsMockT m a -> SysfsMockT m b -> SysfsMockT m a

MonadPlus m => Alternative (SysfsMockT m)

Methods

empty :: SysfsMockT m a

(<|>) :: SysfsMockT m a -> SysfsMockT m a -> SysfsMockT m a

some :: SysfsMockT m a -> SysfsMockT m [a]

many :: SysfsMockT m a -> SysfsMockT m [a]

MonadPlus m => MonadPlus (SysfsMockT m)

Methods

mzero :: SysfsMockT m a

mplus :: SysfsMockT m a -> SysfsMockT m a -> SysfsMockT m a

MonadIO m => MonadIO (SysfsMockT m)

Methods

liftIO :: IO a -> SysfsMockT m a

MonadThrow m => MonadThrow (SysfsMockT m)

Methods

throwM :: Exception e => e -> SysfsMockT m a

MonadCatch m => MonadCatch (SysfsMockT m)

Methods

catch :: Exception e => SysfsMockT m a -> (e -> SysfsMockT m a) -> SysfsMockT m a

MonadMask m => MonadMask (SysfsMockT m)

Methods

mask :: ((forall a. SysfsMockT m a -> SysfsMockT m a) -> SysfsMockT m b) -> SysfsMockT m b

uninterruptibleMask :: ((forall a. SysfsMockT m a -> SysfsMockT m a) -> SysfsMockT m b) -> SysfsMockT m b

MonadLogger m => MonadLogger (SysfsMockT m)

Methods

monadLoggerLog :: ToLogStr msg => Loc -> LogSource -> LogLevel -> msg -> SysfsMockT m ()

MonadLoggerIO m => MonadLoggerIO (SysfsMockT m)

Methods

askLoggerIO :: SysfsMockT m (Loc -> LogSource -> LogLevel -> LogStr -> IO ())

MonadCont m => MonadCont (SysfsMockT m)

Methods

callCC :: ((a -> SysfsMockT m b) -> SysfsMockT m a) -> SysfsMockT m a

MockM m => MonadSysfs (SysfsMockT m)

Methods

doesDirectoryExist :: FilePath -> SysfsMockT m Bool

doesFileExist :: FilePath -> SysfsMockT m Bool

getDirectoryContents :: FilePath -> SysfsMockT m [FilePath]

readFile :: FilePath -> SysfsMockT m ByteString

writeFile :: FilePath -> ByteString -> SysfsMockT m ()

unlockedWriteFile :: FilePath -> ByteString -> SysfsMockT m ()

pollFile :: FilePath -> Int -> SysfsMockT m CInt

type StT SysfsMockT a

type StT SysfsMockT a = StT (StateT MockWorld) a

type StM (SysfsMockT m) a

type StM (SysfsMockT m) a = ComposeSt SysfsMockT m a

runSysfsMockT :: MockM m => SysfsMockT m a -> MockWorld -> [MockGpioChip] -> m (a, MockWorld)

Run a mock sysfs computation in monad m with an initial mock world and list of MockGpioChips; and return a tuple containing the computation's value and the final MockWorld. If an exception occurs in the mock computation, a MockFSException is thrown.

Before running the computation, the MockWorld is populated with the GPIO pins as specified by the list of MockGpioChips. If any of the chips' pin ranges overlap, a MockFSException is thrown.

Typically, you will only need this action if you're trying to mock Linux sysfs GPIO computations using a custom monad transformer stack. For simple cases, see runSysfsGpioMock or runSysfsGpioMockIO.

evalSysfsMockT :: MockM m => SysfsMockT m a -> MockWorld -> [MockGpioChip] -> m a

Like runSysfsMockT, but returns only the computation's value.

execSysfsMockT :: MockM m => SysfsMockT m a -> MockWorld -> [MockGpioChip] -> m MockWorld

Like runSysfsMockT, but returns only the final MockWorld.

Run mock GPIO computations

type SysfsGpioMock = SysfsGpioT SysfsMock

A specialization of SysfsGpioT which runs (pure, fake) GPIO computations via a mock sysfs.

runSysfsGpioMock :: SysfsGpioMock a -> MockWorld -> [MockGpioChip] -> Either SomeException (a, MockWorld)

Run a SysfsGpioMock computation with an initial mock world and list of MockGpioChips, and return a tuple containing the computation's value and the final MockWorld. Any exceptions that occur in the mock computation are returned as a Left value.

Before running the computation, the MockWorld is populated with the GPIO pins as specified by the list of MockGpioChips. If any of the chips' pin ranges overlap, a MockFSException is returned in a Left value.

>>> import System.GPIO.Monad
>>> let mockChip = MockGpioChip "chip0" 0 (replicate 16 defaultMockPinState)
>>> fst <$> runSysfsGpioMock pins initialMockWorld [mockChip]
Right [Pin 0,Pin 1,Pin 2,Pin 3,Pin 4,Pin 5,Pin 6,Pin 7,Pin 8,Pin 9,Pin 10,Pin 11,Pin 12,Pin 13,Pin 14,Pin 15]
>>> fst <$> runSysfsGpioMock (openPin (Pin 32)) initialMockWorld [mockChip]
Left InvalidPin (Pin 32)

evalSysfsGpioMock :: SysfsGpioMock a -> MockWorld -> [MockGpioChip] -> Either SomeException a

Like runSysfsGpioMock, but returns only the computation's value.

execSysfsGpioMock :: SysfsGpioMock a -> MockWorld -> [MockGpioChip] -> Either SomeException MockWorld

Like runSysfsGpioMock, but returns only the final MockWorld.

type SysfsGpioMockIO = SysfsGpioT SysfsMockIO

Like SysfsGpioMock, but wraps IO so that you can mix IO actions and GPIO actions in a mock GPIO environment.

runSysfsGpioMockIO :: SysfsGpioMockIO a -> MockWorld -> [MockGpioChip] -> IO (a, MockWorld)

Run a SysfsGpioMockIO computation with an initial mock world and list of MockGpioChips, and return a tuple containing the computation's value and the final MockWorld.

Before running the computation, the MockWorld is populated with the GPIO pins as specified by the list of MockGpioChips. If any of the chips' pin ranges overlap, a MockFSException is thrown.

>>> import System.GPIO.Monad
>>> let mockChip = MockGpioChip "chip0" 0 (replicate 16 defaultMockPinState)
>>> fst <$> runSysfsGpioMockIO pins initialMockWorld [mockChip]
[Pin 0,Pin 1,Pin 2,Pin 3,Pin 4,Pin 5,Pin 6,Pin 7,Pin 8,Pin 9,Pin 10,Pin 11,Pin 12,Pin 13,Pin 14,Pin 15]
>>> fst <$> runSysfsGpioMockIO (openPin (Pin 32)) initialMockWorld [mockChip]
*** Exception: InvalidPin (Pin 32)

evalSysfsGpioMockIO :: SysfsGpioMockIO a -> MockWorld -> [MockGpioChip] -> IO a

Like runSysfsGpioMockIO, but returns only the computation's value.

execSysfsGpioMockIO :: SysfsGpioMockIO a -> MockWorld -> [MockGpioChip] -> IO MockWorld

Like runSysfsGpioMockIO, but returns only the final MockWorld.

Mock sysfs exceptions.

data MockFSException

Exceptions that can be thrown by mock sysfs filesystem operations.

Note that, as much as is reasonably possible, when an error occurs, the mock filesystem implementation throws the same exception as would occur in an actual sysfs filesystem (i.e., IOErrors). However, in a few cases, there are exceptions that are specific to the mock sysfs implementation; in these cases, a MockFSException is thrown.

Constructors

GpioChipOverlap Pin

The user has defined defined at least two MockGpioChips with the same pin number, which is an invalid condition

InternalError Text

An internal error has occurred in the mock sysfs interpreter, something which should "never happen" and should be reported to the package maintainer.

Instances

Eq MockFSException

Methods

(==) :: MockFSException -> MockFSException -> Bool

(/=) :: MockFSException -> MockFSException -> Bool

Show MockFSException

Methods

showsPrec :: Int -> MockFSException -> ShowS

show :: MockFSException -> String

showList :: [MockFSException] -> ShowS

Exception MockFSException

Methods

toException :: MockFSException -> SomeException

fromException :: SomeException -> Maybe MockFSException

displayException :: MockFSException -> String

Run mock sysfs computations.

Generally speaking, you should not need to use these types, as they're not very useful on their own. They are primarily exported for unit testing.

If you want to run mock GPIO computations, use SysfsMockT for buildling transformer stacks, or either SysfsGpioMock or SysfsGpioMockIO for simple computations that are pure or mix with IO, respectively.

type SysfsMock = SysfsMockT Catch

The simplest possible (pure) mock sysfs monad.

NB: this monad cannot run GPIO computations; its only use is to mock sysfs operations on an extremely limited mock sysfs simulator.

You probably do not want to use this monad; see either SysfsGpioMock or SysfsGpioMockIO, which adds GPIO computations to this mock sysfs environment.

runSysfsMock :: SysfsMock a -> MockWorld -> [MockGpioChip] -> Either SomeException (a, MockWorld)

A pure version of runSysfsMockT which returns errors in a Left, and both the computation's value and the final state of the MockWorld in a Right.

>>> let mockChip = MockGpioChip "chip0" 0 (replicate 16 defaultMockPinState)
>>> fst <$> runSysfsMock (getDirectoryContents "/sys/class/gpio") initialMockWorld [mockChip]
Right ["gpiochip0","export","unexport"]
>>> runSysfsMock (getDirectoryContents "/sys/class/does_not_exist") initialMockWorld [mockChip]
Left /sys/class/does_not_exist: Mock.Internal.cd: does not exist

evalSysfsMock :: SysfsMock a -> MockWorld -> [MockGpioChip] -> Either SomeException a

Like runSysfsMock, but returns only the computation's value.

execSysfsMock :: SysfsMock a -> MockWorld -> [MockGpioChip] -> Either SomeException MockWorld

Like runSysfsMock, but returns only the final MockWorld.

type SysfsMockIO = SysfsMockT IO

The simplest possible (IO-enabled) mock sysfs monad. Like SysfsMock, but allows you to mix IO operations into your sysfs computations, as well.

NB: this monad cannot run GPIO computations; its only use is to mock sysfs operations on an extremely limited mock sysfs simulator.

You probably do not want to use this monad; see either SysfsGpioMock or SysfsGpioMockIO, which adds GPIO computations to this mock sysfs environment.

runSysfsMockIO :: SysfsMockIO a -> MockWorld -> [MockGpioChip] -> IO (a, MockWorld)

An IO version of runSysfsMockT. Errors are expressed as exceptions.

>>> let mockChip = MockGpioChip "chip0" 0 (replicate 16 defaultMockPinState)
>>> fst <$> runSysfsMockIO (getDirectoryContents "/sys/class/gpio") initialMockWorld [mockChip]
["gpiochip0","export","unexport"]
>>> runSysfsMockIO (getDirectoryContents "/sys/class/does_not_exist") initialMockWorld [mockChip]
*** Exception: /sys/class/does_not_exist: Mock.Internal.cd: does not exist

evalSysfsMockIO :: SysfsMockIO a -> MockWorld -> [MockGpioChip] -> IO a

Like runSysfsMockIO, but returns only the computation's value.

execSysfsMockIO :: SysfsMockIO a -> MockWorld -> [MockGpioChip] -> IO MockWorld

Like runSysfsMockIO, but returns only the final MockWorld.

Mock sysfs actions

Generally speaking, you should not need these actions. They are primarily exported for unit testing.

doesDirectoryExist :: MockM m => FilePath -> SysfsMockT m Bool

Check whether the specified directory exists in the mock filesystem.

doesFileExist :: MockM m => FilePath -> SysfsMockT m Bool

Check whether the specified file exists in the mock filesystem.

getDirectoryContents :: MockM m => FilePath -> SysfsMockT m [FilePath]

Get a directory listing for the specified directory in the mock filesystem.

readFile :: MockM m => FilePath -> SysfsMockT m ByteString

Read the contents of the specified file in the mock filesystem.

writeFile :: MockM m => FilePath -> ByteString -> SysfsMockT m ()

Write the contents of the specified file in the mock filesystem.

unlockedWriteFile :: MockM m => FilePath -> ByteString -> SysfsMockT m ()

For the mock filesystem, this action is equivalent to writeFile.

pollFile :: MockM m => FilePath -> Int -> SysfsMockT m CInt

Polling is not implemented for the mock filesystem, so this action always returns the value 1.