logic-classes-0.44: Test/TPTP.hs

module Test.TPTP where
    
import Codec.TPTP (Formula)
import Data.Logic.FirstOrder (conj)
import Data.Logic.Instances.TPTP
import Data.Logic.Monad (runNormal)
import Data.Logic.Logic (Logic ((.~.), (.=>.)))
import Data.Logic.Normal (cnfTrace)
import Data.Logic.Test (TestFormula(formula))
import Test.Data (chang43KB, chang43Conjecture)
import Test.HUnit

tests :: Test
tests = TestLabel "TPTP" $ TestList [tptp]

tptp :: Test
tptp =
    TestCase (assertEqual "tptp cnf trace" "abc" (runNormal (cnfTrace f)))
    where
      f :: Formula
      f = (.~.) (conj (map formula (snd (chang43KB :: (String, [TestFormula Formula])))) .=>.
                 formula chang43Conjecture)