使用Hspec測試用戶輸入

Question

我有一個程序，該程序從getLine接收用戶輸入，然后驗證是否所有數字。 如果通過，則運行String -> String的函數並將結果打印到屏幕上。 如果不是，則重復getLine 。

module Main where

import Control.Monad.Loops (untilJust)
import Data.Char           (isDigit)

main = do
  let validateInput s = if all isDigit s then Just s else Nothing
  putStrLn =<< myFunc <$> untilJust (validateInput <$> (putStr "Number : " >> getLine))

myFunc = id -- to do

我如何使用Hspec類的Hspec來測試這個主要功能，以檢查它與數字輸入相對於其他輸入（字母，空等）是否正確

即

test1 rejects a non-numeric input of "abc"
test2 returns 123 as 123

Answer 1

由於您要測試邏輯而不是用戶交互，因此建議您僅考慮輸入驗證。