]> Git — Sourcephile - tmp/julm/arpeggigon.git/blob - RMCA/tests/testOnChange.hs
Added a few calls to postGUIAsync.
[tmp/julm/arpeggigon.git] / RMCA / tests / testOnChange.hs
1 import RMCA.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)])