hstratus-drive-0.1.0.0: test/Spec.hs

{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}

{- |
Module      : Main
Copyright   : (c) 2026 Tim Emiola
Maintainer  : Tim Emiola <adetokunbo@emio.la>
SPDX-License-Identifier: BSD-3-Clause

Test suite entry point for hstratus-drive.
-}
module Main where

import qualified HStratus.Drive.EndpointsSpec as DriveEndpoints
import qualified HStratus.Drive.MutationSpec as DriveMutation
import qualified HStratus.Drive.NodeSpec as DriveNode
import qualified HStratus.Drive.UploadSpec as DriveUpload
import qualified HStratus.DriveSpec as Drive
import System.IO
  ( BufferMode (..)
  , hSetBuffering
  , stderr
  , stdout
  )
import Test.Hspec


main :: IO ()
main = do
  hSetBuffering stdout NoBuffering
  hSetBuffering stderr NoBuffering
  hspec $ do
    DriveNode.spec
    DriveEndpoints.spec
    Drive.spec
    DriveMutation.spec
    DriveUpload.spec