RCMA/tests/testOnChange.hs

   1 import Reactogon.Auxiliary.Auxiliary
   2 import FRP.Yampa
   3
   4 main :: IO ()
   5 main = do
   6   putStr "Testing onChange: "
   7   print testOnChange
   8   putStr "Testing onChange': "
   9   print testOnChange'
  10
  11 testOnChange =
  12   embed onChange (1, [(1, Just 1), (1, Just 1), (1, Just 2), (1, Just 3), (1, Just 3)])
  13
  14 testOnChange' =
  15   embed onChange' (1, [(1, Just 1), (1, Just 1), (1, Just 2), (1, Just 3), (1, Just 3)])