14 lines
290 B
Haskell
14 lines
290 B
Haskell
import Test.Hspec
|
|
import Test.QuickCheck
|
|
import Control.Exception (evaluate)
|
|
import Data.Dates
|
|
|
|
import Lib (match)
|
|
|
|
main :: IO ()
|
|
main = hspec $ do
|
|
describe "Cron ckecker" $ do
|
|
it "matches asterisks" $ do
|
|
match "* * * * *" (DateTime 2017 10 11 0 0 0) `shouldBe` (True :: Bool)
|
|
|