hspec-junit-formatter-1.0.0.0: library/Test/HSpec/JUnit/Schema.hs

module Test.HSpec.JUnit.Schema
  ( Suites(..)
  , Suite(..)
  , TestCase(..)
  , Result(..)
  ) where

import Prelude

import Data.Text (Text)

data Suites = Suites Text [Suite]
  deriving (Show)

data Suite = Suite
  { suiteName :: Text
  , suiteCases :: [Either Suite TestCase]
  }
  deriving (Show)

data TestCase = TestCase
  { testCaseClassName :: Text
  , testCaseName :: Text
  , testCaseResult :: Maybe Result
  }
  deriving (Show)

data Result = Failure Text Text | Skipped Text
  deriving (Show)