import Test.Tasty
import Test.Tasty.HUnit

import GHC.InfoProv.Compat

main :: IO ()
main = defaultMain tests


foo :: String
foo = "foo"

tests :: TestTree
tests = testGroup "Tests"
  [ testCase "whereFrom works" $ do
     v <- whereFrom foo
     assertBool "whereFrom shouldn't be Nothing" $ v /= Nothing
  ]