gitlib-libgit2-1.0.1: test/Smoke.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ConstraintKinds #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE FlexibleContexts #-}
{-# OPTIONS_GHC -fno-warn-unused-do-bind #-}
{-# OPTIONS_GHC -fno-warn-wrong-do-bind #-}
{-# OPTIONS_GHC -fno-warn-name-shadowing #-}

module Main where

import           Control.Exception (finally)
import qualified Git as Git
import qualified Git.Smoke as Git
import qualified Git.Libgit2 as Lg
import           Test.Hspec.Runner
import           Test.Hspec.HUnit ()

main :: IO ()
main = do
    Git.startupBackend Lg.lgFactory
    finally
        (hspec $ Git.smokeTestSpec Lg.lgFactory Lg.lgFactory)
        (Git.shutdownBackend Lg.lgFactory)

-- Smoke.hs ends here