interface Test.HUnit where { infix 1 Test.HUnit.Base.@?; infix 1 Test.HUnit.Base.@=?; infix 1 Test.HUnit.Base.@?=; infix 1 Test.HUnit.Base.~?; infix 1 Test.HUnit.Base.~=?; infix 1 Test.HUnit.Base.~?=; infixr 0 Test.HUnit.Base.~:; {-# NEED #-} instance Prelude.Functor NHC.Internal.IO; {-# NEED #-} instance Prelude.Monad NHC.Internal.IO; {-# NEED #-} instance Test.HUnit.Base.ListAssertable Prelude.Char; {-# NEED #-} instance Test.HUnit.Base.Assertable (); {-# NEED #-} instance Test.HUnit.Base.Assertable Prelude.Bool; {-# NEED #-} instance (Test.HUnit.Base.ListAssertable a) => Test.HUnit.Base.Assertable [a]; {-# NEED #-} instance (Test.HUnit.Base.Assertable a) => Test.HUnit.Base.Assertable (NHC.Internal.IO a); {-# NEED #-} instance Test.HUnit.Base.AssertionPredicable Prelude.Bool; {-# NEED #-} instance (Test.HUnit.Base.AssertionPredicable a) => Test.HUnit.Base.AssertionPredicable (NHC.Internal.IO a); {-# NEED #-} instance (Test.HUnit.Base.Testable a) => Test.HUnit.Base.Testable [a]; {-# NEED #-} instance (Test.HUnit.Base.Assertable a) => Test.HUnit.Base.Testable (NHC.Internal.IO a); {-# NEED #-} instance Test.HUnit.Base.Testable Test.HUnit.Base.Test; {-# NEED #-} instance (Prelude.Integral a) => Prelude.Fractional (Ratio.Ratio a); {-# NEED #-} instance (Prelude.Integral a) => Prelude.RealFrac (Ratio.Ratio a); {-# NEED #-} instance (Prelude.Integral a) => Prelude.Num (Ratio.Ratio a); {-# NEED #-} instance (Prelude.Integral a) => Prelude.Real (Ratio.Ratio a); {-# NEED #-} instance (Prelude.Integral a) => Prelude.Enum (Ratio.Ratio a); {-# NEED #-} instance Prelude.Read Test.HUnit.Base.Node; {-# NEED #-} instance Prelude.Read Test.HUnit.Base.State; {-# NEED #-} instance Prelude.Read Test.HUnit.Base.Counts; {-# NEED #-} instance (Prelude.Read a,Prelude.Integral a) => Prelude.Read (Ratio.Ratio a); {-# NEED #-} instance (Prelude.Integral a) => Prelude.Ord (Ratio.Ratio a); {-# NEED #-} instance Prelude.Eq IO.Handle; {-# NEED #-} instance Prelude.Eq Test.HUnit.Base.Node; {-# NEED #-} instance Prelude.Eq Test.HUnit.Base.State; {-# NEED #-} instance Prelude.Eq Test.HUnit.Base.Counts; {-# NEED #-} instance (Prelude.Integral a) => Prelude.Eq (Ratio.Ratio a); {-# NEED #-} instance Prelude.Show IO.Handle; {-# NEED #-} instance Prelude.Show Test.HUnit.Base.Node; {-# NEED #-} instance Prelude.Show Test.HUnit.Base.State; {-# NEED #-} instance Prelude.Show Test.HUnit.Base.Counts; {-# NEED #-} instance (Prelude.Show a) => Prelude.Show (NHC.Internal.IO a); {-# NEED #-} instance Prelude.Show Test.HUnit.Base.Test; {-# NEED #-} instance (Prelude.Integral a) => Prelude.Show (Ratio.Ratio a); interface Ratio {-# NEED Ratio #-} data (Prelude.Integral a) => Ratio a; interface ! Test.HUnit.Text {-# NEED putTextToHandle #-} putTextToHandle{-# 2 #-}::(IO.Handle -> (Prelude.Bool -> (Test.HUnit.Text.PutText Prelude.Int))); interface IO {-# NEED Handle #-} newtype {-# #-} Handle; interface ! Test.HUnit.Text {-# NEED putTextToShowS #-} putTextToShowS{-# 0 #-}::(Test.HUnit.Text.PutText Prelude.ShowS); {-# NEED runTestText #-} runTestText{-# 2 #-}::((Test.HUnit.Text.PutText a) -> (Test.HUnit.Base.Test -> (NHC.Internal.IO (Test.HUnit.Base.Counts,a)))); {-# NEED {PutText PutText} #-} data PutText a = PutText (Prelude.String -> (Prelude.Bool -> (a -> (NHC.Internal.IO a)))) a; {-# NEED showCounts #-} showCounts{-# 1 #-}::(Test.HUnit.Base.Counts -> Prelude.String); {-# NEED showPath #-} showPath{-# 1 #-}::(Test.HUnit.Base.Path -> Prelude.String); {-# NEED runTestTT #-} runTestTT{-# 1 #-}::(Test.HUnit.Base.Test -> (NHC.Internal.IO Test.HUnit.Base.Counts)); interface ! Test.HUnit.Lang {-# NEED assertFailure #-} assertFailure{-# 1 #-}::(Prelude.String -> Test.HUnit.Lang.Assertion); interface ! Test.HUnit.Base {-# NEED assertBool #-} assertBool{-# 2 #-}::(Prelude.String -> (Prelude.Bool -> Test.HUnit.Lang.Assertion)); {-# NEED assertString #-} assertString{-# 1 #-}::(Prelude.String -> Test.HUnit.Lang.Assertion); {-# NEED assertEqual #-} assertEqual{-# 3 #-}::(Prelude.Eq a,Prelude.Show a) => (Prelude.String -> (a -> (a -> Test.HUnit.Lang.Assertion))); {-# NEED {ListAssertable listAssert} #-} class ListAssertable a where { listAssert{-# 1 #-}::([a] -> Test.HUnit.Lang.Assertion); }; {-# NEED (@?) #-} (@?){-# 2 #-}::(Test.HUnit.Base.AssertionPredicable a) => (a -> (Prelude.String -> Test.HUnit.Lang.Assertion)); {-# NEED (@=?) #-} (@=?){-# 2 #-}::(Prelude.Eq a,Prelude.Show a) => (a -> (a -> Test.HUnit.Lang.Assertion)); {-# NEED (@?=) #-} (@?=){-# 2 #-}::(Prelude.Eq a,Prelude.Show a) => (a -> (a -> Test.HUnit.Lang.Assertion)); {-# NEED testCaseCount #-} testCaseCount{-# 1 #-}::(Test.HUnit.Base.Test -> Prelude.Int); {-# NEED testCasePaths #-} testCasePaths{-# 1 #-}::(Test.HUnit.Base.Test -> [Test.HUnit.Base.Path]); {-# NEED {Assertable assert} #-} class Assertable a where { assert{-# 1 #-}::(a -> Test.HUnit.Lang.Assertion); }; {-# NEED (~?) #-} (~?){-# 2 #-}::(Test.HUnit.Base.AssertionPredicable a) => (a -> (Prelude.String -> Test.HUnit.Base.Test)); {-# NEED {AssertionPredicable assertionPredicate} #-} class AssertionPredicable a where { assertionPredicate{-# 1 #-}::(a -> Test.HUnit.Base.AssertionPredicate); }; {-# NEED AssertionPredicate #-} type {-# 1 #-} AssertionPredicate = (NHC.Internal.IO Prelude.Bool); {-# NEED (~=?) #-} (~=?){-# 2 #-}::(Prelude.Eq a,Prelude.Show a) => (a -> (a -> Test.HUnit.Base.Test)); {-# NEED (~?=) #-} (~?=){-# 2 #-}::(Prelude.Eq a,Prelude.Show a) => (a -> (a -> Test.HUnit.Base.Test)); {-# NEED (~:) #-} (~:){-# 2 #-}::(Test.HUnit.Base.Testable a) => (Prelude.String -> (a -> Test.HUnit.Base.Test)); {-# NEED {Testable test} #-} class Testable a where { test{-# 1 #-}::(a -> Test.HUnit.Base.Test); }; {-# NEED performTest #-} performTest{-# 5 #-}::((Test.HUnit.Base.ReportStart a) -> ((Test.HUnit.Base.ReportProblem a) -> ((Test.HUnit.Base.ReportProblem a) -> (a -> (Test.HUnit.Base.Test -> (NHC.Internal.IO (Test.HUnit.Base.Counts,a))))))); {-# NEED {Test TestCase TestList TestLabel} #-} data Test = TestCase Test.HUnit.Lang.Assertion | TestList [Test.HUnit.Base.Test] | TestLabel Prelude.String Test.HUnit.Base.Test; interface ! Test.HUnit.Lang {-# NEED Assertion #-} type {-# 1 #-} Assertion = (NHC.Internal.IO ()); interface ! Test.HUnit.Base {-# NEED ReportProblem #-} type {-# 4 #-} ReportProblem a = (Prelude.String -> (State -> (a -> (NHC.Internal.IO a)))); {-# NEED ReportStart #-} type {-# 3 #-} ReportStart a = (State -> (a -> (NHC.Internal.IO a))); interface NHC.Internal {-# NEED IO #-} newtype {-# #-} IO a; {-# NEED World #-} data World; interface ! Test.HUnit.Base {-# NEED {State State path counts} #-} data State = State {Test.HUnit.Base.path :: Test.HUnit.Base.Path} {Test.HUnit.Base.counts :: Test.HUnit.Base.Counts}; {-# NEED {Counts Counts cases tried errors failures} #-} data Counts = Counts {Test.HUnit.Base.cases :: Prelude.Int} {Test.HUnit.Base.tried :: Prelude.Int} {Test.HUnit.Base.errors :: Prelude.Int} {Test.HUnit.Base.failures :: Prelude.Int}; {-# NEED Path #-} type {-# 2 #-} Path = [Node]; {-# NEED {Node ListItem Label} #-} data Node = ListItem Prelude.Int | Label Prelude.String; }