hsautogui-0.3.0: test/Main.hs

module Main where

import Test.Hspec

import AutoGUI
import CPython.Simple
import Control.Monad (forM_)
import Control.Monad.IO.Class (liftIO)

main :: IO ()
main = hspec $ do
  describe "basic" $ do
    it "runs" $ do
      initialize
      pause 1.0

    it "sample program" $ do
      putStrLn "3 seconds until beeping begins"
      sleep 3
      forM_ [1..100] $ \i -> do
        write "beep"
        press [key|enter|]
      sleep 0.5

      {- # The above is equivalent to this Python code:

      import pyautogui
      import time

      print('3 seconds until beeping begins')
      time.sleep(3)

      for i in range(1, 101):
          pyautogui.write('beep')
          pyautogui.press('enter')
          time.sleep(0.5)
      -}