hunit_tests.hs

module Main where 

import System.Exit

import Test.HUnit

import SecondTransfer.Test.DecoySession
import SecondTransfer

import Tests.HTTP2Session
import Tests.Utils
import Tests.HTTP1Parse


tests = TestList [
    --TestLabel "testPrefaceChecks" testPrefaceChecks
    TestLabel "testPrefaceChecks2" testPrefaceChecks2
    ,TestLabel "testLowercaseHeaders" testLowercaseHeaders
    ,TestLabel "testCRLFLocate" testCRLFLocate
    ,TestLabel "testHTTP1Parse" testParse
    ,TestLabel "testGenerate" testGenerate
    ,TestLabel "testReplaceHostByAuthority" testReplaceHostByAuthority
    ,TestLabel "testFirstFrameIsSettings" testFirstFrameMustBeSettings
    ,TestLabel "testFirstFrameIsSettings2" testFirstFrameMustBeSettings2
    ,TestLabel "testFirstFrameIsSettings3" testFirstFrameMustBeSettings3
    ,TestLabel "testIGet500Status" testIGet500Status
    ,TestLabel "testSessionBreaksOnLateError" testSessionBreaksOnLateError
    ,TestLabel "WindowUpdate to unexistent stream" testUpdateWindowFrameAborts
    ,TestLabel "testClosedInteraction0" testClosedInteraction0
    ,TestLabel "testClosedInteraction1" testClosedInteraction1
    ,TestLabel "testClosedInteraction3" testClosedInteraction3
    ,TestLabel "testWorkerClosesAfter"  testWorkerClosesAfter
    ,TestLabel "testWorkerClosesBefore" testWorkerClosesBefore
    ]


main = do
    rets <- runTestTT tests
    if (errors rets == 0 && failures rets == 0)
        then exitWith ExitSuccess
        else exitWith $ ExitFailure (-1)