nanotime-0.1.0: test/Main.hs

module Main
  ( main
  )
where

import Test.Tasty (TestTree, defaultMain, testGroup)
import Test.Tasty.HUnit (testCase, (@?=))

testDummy :: TestTree
testDummy = testCase "dummy" $ do
  let actual = (1 + 1) :: Int
      expected = 2 :: Int
  actual @?= expected

main :: IO ()
main =
  defaultMain $
    testGroup
      "Nanotime"
      [ testDummy
      ]