ham-0.1.0.0: test/Spec.hs

import Ham.CAT
import Ham.Data

import qualified Data.ByteString.Char8 as B
import System.Exit


testFreqParse :: Bool
testFreqParse = mf == Just (MHz 14.123)
  where
    mf = parseFrequency (B.pack "FA014123000;")


testOpenSerialTiming :: IO ()
testOpenSerialTiming =
  where act =


main :: IO ()
main = if all id tests then exitSuccess else exitFailure
  where tests = [testFreqParse]