diff options
Diffstat (limited to 'hsm-bin')
| -rw-r--r-- | hsm-bin/Test/Drive.hs | 22 | ||||
| -rw-r--r-- | hsm-bin/hsm-bin.cabal | 8 |
2 files changed, 30 insertions, 0 deletions
diff --git a/hsm-bin/Test/Drive.hs b/hsm-bin/Test/Drive.hs new file mode 100644 index 0000000..7a58c11 --- /dev/null +++ b/hsm-bin/Test/Drive.hs @@ -0,0 +1,22 @@ +{-# LANGUAGE OverloadedStrings #-} + +import Control.IO.Region (region) +import Control.Monad.Loops (whileJust_) +import Hsm.Drive (DriveEnv, drive, driveEnvDefault) +import Hsm.GPIO (allocateGPIO) +import Hsm.PWM (allocatePWM) +import Hsm.Readline (allocateReadline, readline) + +newtype Env = Env + { driveEnv :: DriveEnv + } + +main :: IO () +main = + region $ \ioRegion -> do + lineRequest <- allocateGPIO ioRegion "test-status" + pwmHandle <- allocatePWM ioRegion $ const 0 + handle <- allocateReadline ioRegion + whileJust_ (readline handle) + $ drive lineRequest pwmHandle + $ Env driveEnvDefault diff --git a/hsm-bin/hsm-bin.cabal b/hsm-bin/hsm-bin.cabal index 0dc0a81..de6e1a5 100644 --- a/hsm-bin/hsm-bin.cabal +++ b/hsm-bin/hsm-bin.cabal @@ -24,3 +24,11 @@ executable test-status import: test-executable build-depends: hsm-status main-is: Test/Status.hs + +executable test-drive + import: test-executable + build-depends: + , hsm-drive + , hsm-pwm + + main-is: Test/Drive.hs |