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
    ]


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