> import Distribution.Simple
> import System.Cmd
> import System.Exit
-> main = defaultMainWithHooks (defaultUserHooks { runTests = runTestUnit })
+> main = defaultMainWithHooks (simpleUserHooks { runTests = runTestUnit })
> where
> runTestUnit _ _ _ _
> = system "./dist/build/DNSUnitTest/DNSUnitTest" >> return ()