Get rid of obsolete testing utilities.

8 files changed, 0 insertions, 671 deletions

diff --git a/html-test/README.markdown b/html-test/README.markdown
deleted file mode 100644
index 717bac5c..00000000
--- a/html-test/README.markdown
+++ /dev/null
@@ -1,27 +0,0 @@
-This is a testsuite for Haddock that uses the concept of "golden files". That
-is, it compares output files against a set of reference files.
-
-To add a new test:
-
- 1. Create a module in the `html-test/src` directory.
-
- 2. Run `cabal test`. You should now have `html-test/out/<modulename>.html`.
-    The test passes since there is no reference file to compare with.
-
- 3. To make a reference file from the output file, run
-
-        html-test/accept.lhs <modulename>
-
-Tips and tricks:
-
-To "accept" all output files (copy them to reference files), run
-
-    runhaskell accept.lhs
-
-You can run all tests despite failing tests, like so
-
-    cabal test --test-option=all
-
-You can pass extra options to haddock like so
-
-    cabal test --test-options='all --title="All Tests"'
diff --git a/html-test/accept.lhs b/html-test/accept.lhs
deleted file mode 100755
index f6dfc4cd..00000000
--- a/html-test/accept.lhs
+++ /dev/null
@@ -1,49 +0,0 @@
-#!/usr/bin/env runhaskell
-\begin{code}
-{-# LANGUAGE CPP #-}
-import System.Cmd
-import System.Environment
-import System.FilePath
-import System.Directory
-import Data.List
-import Control.Applicative
-
-baseDir = takeDirectory __FILE__
-
-main :: IO ()
-main = do
-  contents <- filter (not . ignore) <$> getDirectoryContents (baseDir </> "out")
-  args <- getArgs
-  if not $ null args then
-    mapM_ copy [ baseDir </> "out" </> file | file <- contents, ".html" `isSuffixOf` file, takeBaseName file `elem` args  ]
-  else
-    mapM_ copy [ baseDir </> "out" </> file | file <- contents]
-  where
-    ignore =
-      foldr (liftA2 (||)) (const False) [
-        (== ".")
-      , (== "..")
-      , (isPrefixOf "index")
-      , (isPrefixOf "doc-index")
-      ]
-
-copy :: FilePath -> IO ()
-copy file = do
-  let new = baseDir </> "ref" </> takeFileName file
-  if ".html" `isSuffixOf` file then do
-    putStrLn (file ++ " -> " ++ new)
-    stripLinks <$> readFile file >>= writeFile new
-  else do
-    -- copy css, images, etc.
-    copyFile file new
-
-stripLinks :: String -> String
-stripLinks str =
-  let prefix = "<a href=\"" in
-  case stripPrefix prefix str of
-    Just str' -> prefix ++ stripLinks (dropWhile (/= '"') str')
-    Nothing ->
-      case str of
-        [] -> []
-        x : xs -> x : stripLinks xs
-\end{code}
diff --git a/html-test/run.lhs b/html-test/run.lhs
deleted file mode 100755
index 1f19b723..00000000
--- a/html-test/run.lhs
+++ /dev/null
@@ -1,191 +0,0 @@
-#!/usr/bin/env runhaskell
-\begin{code}
-{-# LANGUAGE CPP #-}
-import Prelude hiding (mod)
-import Control.Monad
-import Control.Applicative
-import Data.List
-import Data.Maybe
-import Distribution.InstalledPackageInfo
-import Distribution.Package (PackageName (..))
-import Distribution.Simple.Compiler
-import Distribution.Simple.GHC
-import Distribution.Simple.PackageIndex
-import Distribution.Simple.Program
-import Distribution.Simple.Utils
-import Distribution.Verbosity
-import System.IO
-import System.Directory
-import System.Environment
-import System.Exit
-import System.FilePath
-import System.Process (ProcessHandle, runProcess, waitForProcess, system)
-
-packageRoot, dataDir, haddockPath, baseDir, testDir, outDir :: FilePath
-baseDir = takeDirectory __FILE__
-testDir       = baseDir </> "src"
-refDir        = baseDir </> "ref"
-outDir        = baseDir </> "out"
-packageRoot   = baseDir </> ".."
-dataDir       = packageRoot </> "resources"
-haddockPath   = packageRoot </> "dist" </> "build" </> "haddock" </> "haddock"
-
-
-main :: IO ()
-main = do
-  test
-  putStrLn "All tests passed!"
-
-
-test :: IO ()
-test = do
-  x <- doesFileExist haddockPath
-  unless x $ System.Exit.die "you need to run 'cabal build' successfully first"
-
-  contents <- getDirectoryContents testDir
-  args <- getArgs
-  let (opts, spec) = span ("-" `isPrefixOf`) args
-  let mods =
-        case spec of
-          y:_ | y /= "all" -> [y ++ ".hs"]
-          _ -> filter ((==) ".hs" . takeExtension) contents
-
-  let mods' = map (testDir </>) mods
-
-  -- add haddock_datadir to environment for subprocesses
-  env <- Just . (:) ("haddock_datadir", Main.dataDir) <$> getEnvironment
-
-  putStrLn ""
-  putStrLn "Haddock version: "
-  h1 <- runProcess haddockPath ["--version"] Nothing
-                   env Nothing Nothing Nothing
-  wait h1 "*** Running `haddock --version' failed!"
-  putStrLn ""
-  putStrLn "GHC version: "
-  h2 <- runProcess haddockPath ["--ghc-version"] Nothing
-                   env Nothing Nothing Nothing
-  wait h2 "*** Running `haddock --ghc-version' failed!"
-  putStrLn ""
-
-  -- TODO: maybe do something more clever here using haddock.cabal
-  ghcPath <- fmap init $ rawSystemStdout normal haddockPath ["--print-ghc-path"]
-  (_, _, conf) <- configure normal (Just ghcPath) Nothing defaultProgramConfiguration
-  pkgIndex <- getInstalledPackages normal [GlobalPackageDB] conf
-  let mkDep pkgName =
-        fromMaybe (error "Couldn't find test dependencies") $ do
-          let pkgs = lookupPackageName pkgIndex (PackageName pkgName)
-          (_, pkgs') <- listToMaybe pkgs
-          pkg <- listToMaybe pkgs'
-          ifacePath <- listToMaybe (haddockInterfaces pkg)
-          htmlPath <- listToMaybe (haddockHTMLs pkg)
-          return ("-i " ++ htmlPath ++ "," ++ ifacePath)
-
-  let base    = mkDep "base"
-      process = mkDep "process"
-      ghcprim = mkDep "ghc-prim"
-
-  putStrLn "Running tests..."
-  handle <- runProcess haddockPath
-                       (["-w", "-o", outDir, "-h", "--pretty-html"
-                        , "--optghc=-w", base, process, ghcprim] ++ opts ++ mods')
-                       Nothing env Nothing
-                       Nothing Nothing
-
-  wait handle "*** Haddock run failed! Exiting."
-  check mods (if not (null args) && args !! 0 == "all" then False else True)
-  where
-    wait :: ProcessHandle -> String -> IO ()
-    wait h msg = do
-      r <- waitForProcess h
-      unless (r == ExitSuccess) $ do
-        hPutStrLn stderr msg
-        exitFailure
-
-check :: [FilePath] -> Bool -> IO ()
-check modules strict = do
-  forM_ modules $ \mod -> do
-    let outfile = outDir </> dropExtension mod ++ ".html"
-    let reffile = refDir </> dropExtension mod ++ ".html"
-    b <- doesFileExist reffile
-    if b
-      then do
-        out <- readFile outfile
-        ref <- readFile reffile
-        if not $ haddockEq (outfile, out) (reffile, ref)
-          then do
-            putStrLn $ "Output for " ++ mod ++ " has changed! Exiting with diff:"
-            let ref' = maybeStripLinks outfile ref
-                out' = maybeStripLinks reffile out
-            let reffile' = outDir </> takeFileName reffile ++ ".nolinks"
-                outfile' = outDir </> takeFileName outfile ++ ".ref.nolinks"
-            writeFile reffile' ref'
-            writeFile outfile' out'
-            r <- programOnPath "colordiff"
-            code <- if r
-              then system $ "colordiff " ++ reffile' ++ " " ++ outfile'
-              else system $ "diff " ++ reffile' ++ " " ++ outfile'
-            if strict then exitFailure else return ()
-            unless (code == ExitSuccess) $ do
-              hPutStrLn stderr "*** Running diff failed!"
-              exitFailure
-          else do
-            putStrLn $ "Pass: " ++ mod
-      else do
-        putStrLn $ "Pass: " ++ mod ++ " (no .ref file)"
-
--- | List of modules in which we don't 'stripLinks'
-preserveLinksModules :: [String]
-preserveLinksModules = map (++ ".html") ["Bug253"]
-
--- | A rather nasty way to drop the Haddock version string from the
--- end of the generated HTML files so that we don't have to change
--- every single test every time we change versions. We rely on the the
--- last paragraph of the document to be the version. We end up with
--- malformed HTML but we don't care as we never look at it ourselves.
-dropVersion :: String -> String
-dropVersion = reverse . dropTillP . reverse
-  where
-    dropTillP [] = []
-    dropTillP ('p':'<':xs) = xs
-    dropTillP (_:xs) = dropTillP xs
-
-haddockEq :: (FilePath, String) -> (FilePath, String) -> Bool
-haddockEq (fn1, file1) (fn2, file2) =
-  maybeStripLinks fn1 (dropVersion file1)
-  == maybeStripLinks fn2 (dropVersion file2)
-
-maybeStripLinks :: String -- ^ Module we're considering for stripping
-                -> String -> String
-maybeStripLinks m = if any (`isSuffixOf` m) preserveLinksModules
-                    then id
-                    else stripLinks
-
-stripLinks :: String -> String
-stripLinks str =
-  let prefix = "<a href=\"" in
-  case stripPrefix prefix str of
-    Just str' -> case dropWhile (/= '>') (dropWhile (/= '"') str') of
-      [] -> []
-      x:xs -> stripLinks (stripHrefEnd xs)
-    Nothing ->
-      case str of
-        [] -> []
-        x : xs -> x : stripLinks xs
-
-stripHrefEnd :: String -> String
-stripHrefEnd s =
-  let pref = "</a" in
-  case stripPrefix pref s of
-    Just str' -> case dropWhile (/= '>') str' of
-      [] -> []
-      x:xs -> xs
-    Nothing ->
-      case s of
-        [] -> []
-        x : xs -> x : stripHrefEnd xs
-
-programOnPath :: FilePath -> IO Bool
-programOnPath p = do
-  result <- findProgramLocation silent p
-  return (isJust result)
-\end{code}
diff --git a/hypsrc-test/Utils.hs b/hypsrc-test/Utils.hs
deleted file mode 100644
index e15fabee..00000000
--- a/hypsrc-test/Utils.hs
+++ /dev/null
@@ -1,47 +0,0 @@
-{-# LANGUAGE CPP #-}
-
-
-module Utils
-    ( baseDir, rootDir
-    , srcDir, refDir, outDir, refDir', outDir'
-    , haddockPath
-    , stripLocalAnchors, stripLocalLinks, stripLocalReferences
-    ) where
-
-
-import Data.List
-
-import System.FilePath
-
-
-baseDir, rootDir :: FilePath
-baseDir = takeDirectory __FILE__
-rootDir = baseDir </> ".."
-
-srcDir, refDir, outDir, refDir', outDir' :: FilePath
-srcDir = baseDir </> "src"
-refDir = baseDir </> "ref"
-outDir = baseDir </> "out"
-refDir' = refDir </> "src"
-outDir' = outDir </> "src"
-
-haddockPath :: FilePath
-haddockPath = rootDir </> "dist" </> "build" </> "haddock" </> "haddock"
-
-
-replaceBetween :: Eq a => [a] -> a -> [a] -> [a] -> [a]
-replaceBetween _ _ _ [] = []
-replaceBetween pref end val html@(x:xs') = case stripPrefix pref html of
-    Just strip -> pref ++ val ++ (replaceBetween' . dropWhile (/= end)) strip
-    Nothing -> x:(replaceBetween' xs')
-  where
-    replaceBetween' = replaceBetween pref end val
-
-stripLocalAnchors :: String -> String
-stripLocalAnchors = replaceBetween "<a name=\"local-" '\"' "0"
-
-stripLocalLinks :: String -> String
-stripLocalLinks = replaceBetween "<a href=\"#local-" '\"' "0"
-
-stripLocalReferences :: String -> String
-stripLocalReferences = stripLocalLinks . stripLocalAnchors
diff --git a/hypsrc-test/accept.hs b/hypsrc-test/accept.hs
deleted file mode 100755
index 4606b2df..00000000
--- a/hypsrc-test/accept.hs
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/env runhaskell
-{-# LANGUAGE CPP #-}
-
-
-import System.Directory
-import System.FilePath
-import System.Environment
-
-import Utils
-
-
-main :: IO ()
-main = do
-    args <- getArgs
-    files <- filter isHtmlFile <$> getDirectoryContents outDir'
-    let files' = if args == ["--all"] || args == ["-a"]
-        then files
-        else filter ((`elem` args) . takeBaseName) files
-    mapM_ copy files'
-  where
-    isHtmlFile = (== ".html") . takeExtension
-
-
-copy :: FilePath -> IO ()
-copy file = do
-    content <- stripLocalReferences <$> readFile (outDir' </> file)
-    writeFile (refDir' </> file) content
diff --git a/hypsrc-test/run.hs b/hypsrc-test/run.hs
deleted file mode 100755
index 853c4f09..00000000
--- a/hypsrc-test/run.hs
+++ /dev/null
@@ -1,122 +0,0 @@
-#!/usr/bin/env runhaskell
-{-# LANGUAGE CPP #-}
-
-
-import Control.Monad
-
-import Data.List
-import Data.Maybe
-
-import System.Directory
-import System.Environment
-import System.Exit
-import System.FilePath
-import System.Process
-
-import Distribution.Verbosity
-import Distribution.Simple.Utils hiding (die)
-
-import Utils
-
-
-main :: IO ()
-main = do
-    haddockAvailable <- doesFileExist haddockPath
-    unless haddockAvailable $ die "Haddock exectuable not available"
-
-    (args, mods) <- partition ("-" `isPrefixOf`) <$> getArgs
-    let args' = filter (\arg -> not $ arg == "--all" || arg == "-a") args
-    mods' <- map (srcDir </>) <$> case args of
-        [] -> getAllSrcModules
-        _ -> return $ map (++ ".hs") mods
-
-    putHaddockVersion
-    putGhcVersion
-
-    putStrLn "Running tests..."
-    runHaddock $
-        [ "--odir=" ++ outDir
-        , "--no-warnings"
-        , "--hyperlinked-source"
-        , "--pretty-html"
-        ] ++ args' ++ mods'
-
-    forM_ mods' $ check True
-
-
-check :: Bool -> FilePath -> IO ()
-check strict mdl = do
-    hasReference <- doesFileExist refFile
-    if hasReference
-    then do
-        ref <- readFile refFile
-        out <- readFile outFile
-        compareOutput strict mdl ref out
-    else do
-        putStrLn $ "Pass: " ++ mdl ++ " (no reference file)"
-  where
-    refFile = refDir' </> takeBaseName mdl ++ ".html"
-    outFile = outDir' </> takeBaseName mdl ++ ".html"
-
-
-compareOutput :: Bool -> FilePath -> String -> String -> IO ()
-compareOutput strict mdl ref out = do
-    if ref' == out'
-    then putStrLn $ "Pass: " ++ mdl
-    else do
-        putStrLn $ "Fail: " ++ mdl
-        diff mdl ref' out'
-        when strict $ die "Aborting further tests."
-  where
-    ref' = stripLocalReferences ref
-    out' = stripLocalReferences out
-
-
-diff :: FilePath -> String -> String -> IO ()
-diff mdl ref out = do
-    colorDiffPath <- findProgramLocation silent "colordiff"
-    let cmd = fromMaybe "diff" colorDiffPath
-
-    writeFile refFile ref
-    writeFile outFile out
-
-    result <- system $ cmd ++ " " ++ refFile ++ " " ++ outFile
-    unless (result == ExitSuccess) $ die "Failed to run `diff` command."
-  where
-    refFile = outDir </> takeBaseName mdl ++ ".ref.nolinks"
-    outFile = outDir </> takeBaseName mdl ++ ".nolinks"
-
-
-
-getAllSrcModules :: IO [FilePath]
-getAllSrcModules =
-    filter isHaskellFile <$> getDirectoryContents srcDir
-  where
-    isHaskellFile = (== ".hs") . takeExtension
-
-
-putHaddockVersion :: IO ()
-putHaddockVersion = do
-    putStrLn "Haddock version:"
-    runHaddock ["--version"]
-    putStrLn ""
-
-
-putGhcVersion :: IO ()
-putGhcVersion = do
-    putStrLn "GHC version:"
-    runHaddock ["--ghc-version"]
-    putStrLn ""
-
-
-runHaddock :: [String] -> IO ()
-runHaddock args = do
-    menv <- Just <$> getEnvironment
-    handle <- runProcess haddockPath args Nothing menv Nothing Nothing Nothing
-    waitForSuccess handle $ "Failed to invoke haddock with " ++ show args
-
-
-waitForSuccess :: ProcessHandle -> String -> IO ()
-waitForSuccess handle msg = do
-    result <- waitForProcess handle
-    unless (result == ExitSuccess) $ die msg
diff --git a/latex-test/accept.lhs b/latex-test/accept.lhs
deleted file mode 100755
index 4d0b0127..00000000
--- a/latex-test/accept.lhs
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/env runhaskell
-\begin{code}
-{-# LANGUAGE CPP #-}
-import System.Environment
-import System.FilePath
-import System.Directory
-import Data.List
-import Control.Applicative
-import Control.Monad
-
-baseDir :: FilePath
-baseDir = takeDirectory __FILE__
-
-main :: IO ()
-main = do
-  contents <- filter (not . ignore) <$> getDirectoryContents (baseDir </> "out")
-  args <- getArgs
-  mapM_ copyDir $ if not (null args)
-                  then filter ((`elem` args) . takeBaseName) contents
-                  else contents
-  where
-    ignore =
-      foldr (liftA2 (||)) (const False) [
-        (== ".")
-      , (== "..")
-      , isPrefixOf "index"
-      , isPrefixOf "doc-index"
-      ]
-
--- | Copy a directory to ref, one level deep.
-copyDir :: FilePath -> IO ()
-copyDir dir = do
-  let old = baseDir </> "out" </> dir
-      new = baseDir </> "ref" </> dir
-  alreadyExists <- doesDirectoryExist new
-  unless alreadyExists $ do
-    putStrLn (old ++ " -> " ++ new)
-    createDirectoryIfMissing True new
-    files <- getDirectoryContents old >>= filterM (liftM not . doesDirectoryExist)
-    let files' = filter (\x -> x /= "." && x /= "..") files
-    mapM_ (\f -> copyFile' (old </> f) (new </> f)) files'
-      where
-        copyFile' o n = do
-          putStrLn $ o ++ " -> " ++ n
-          copyFile o n
-\end{code}
diff --git a/latex-test/run.lhs b/latex-test/run.lhs
deleted file mode 100755
index d3e39e90..00000000
--- a/latex-test/run.lhs
+++ /dev/null
@@ -1,162 +0,0 @@
-#!/usr/bin/env runhaskell
-\begin{code}
-{-# LANGUAGE CPP #-}
-import Prelude hiding (mod)
-import Control.Monad
-import Control.Applicative
-import Data.List
-import Data.Maybe
-import Distribution.InstalledPackageInfo hiding (dataDir)
-import Distribution.Package (PackageName (..))
-import Distribution.Simple.Compiler
-import Distribution.Simple.GHC
-import Distribution.Simple.PackageIndex
-import Distribution.Simple.Program
-import Distribution.Simple.Utils
-import Distribution.Verbosity
-import System.IO
-import System.Directory
-import System.Environment
-import System.Exit
-import System.FilePath
-import System.Process (ProcessHandle, runProcess, waitForProcess, system)
-
-
-packageRoot, dataDir, haddockPath, baseDir, testDir, outDir, refDir :: FilePath
-baseDir = takeDirectory __FILE__
-testDir       = baseDir </> "src"
-refDir        = baseDir </> "ref"
-outDir        = baseDir </> "out"
-packageRoot   = baseDir </> ".."
-dataDir       = packageRoot </> "resources"
-haddockPath   = packageRoot </> "dist" </> "build" </> "haddock" </> "haddock"
-
-
-main :: IO ()
-main = do
-  test
-  putStrLn "All tests passed!"
-
-
-test :: IO ()
-test = do
-  x <- doesFileExist haddockPath
-  unless x $ System.Exit.die "you need to run 'cabal build' successfully first"
-
-  contents <- getDirectoryContents testDir
-
-  args <- getArgs
-  let (opts, spec) = span ("-" `isPrefixOf`) args
-      isDir x' = liftM2 (&&) (doesDirectoryExist $ testDir </> x')
-                             (return $ x' /= "." && x' /= "..")
-  modDirs <- case spec of
-    y:_ | y /= "all" -> return [y]
-    _ -> filterM isDir contents
-
-  let modDirs' = map (testDir </>) modDirs
-
-  -- add haddock_datadir to environment for subprocesses
-  env <- Just . (:) ("haddock_datadir", dataDir) <$> getEnvironment
-
-  putStrLn ""
-  putStrLn "Haddock version: "
-  h1 <- runProcess haddockPath ["--version"] Nothing
-                   env Nothing Nothing Nothing
-  wait h1 "*** Running `haddock --version' failed!"
-  putStrLn ""
-  putStrLn "GHC version: "
-  h2 <- runProcess haddockPath ["--ghc-version"] Nothing
-                   env Nothing Nothing Nothing
-  wait h2 "*** Running `haddock --ghc-version' failed!"
-  putStrLn ""
-
-  -- TODO: maybe do something more clever here using haddock.cabal
-  ghcPath <- fmap init $ rawSystemStdout normal haddockPath ["--print-ghc-path"]
-  (_, _, conf) <- configure normal (Just ghcPath) Nothing defaultProgramConfiguration
-  pkgIndex <- getInstalledPackages normal [GlobalPackageDB] conf
-  let mkDep pkgName =
-        fromMaybe (error "Couldn't find test dependencies") $ do
-          let pkgs = lookupPackageName pkgIndex (PackageName pkgName)
-          (_, pkgs') <- listToMaybe pkgs
-          pkg <- listToMaybe pkgs'
-          ifacePath <- listToMaybe (haddockInterfaces pkg)
-          htmlPath <- listToMaybe (haddockHTMLs pkg)
-          return ("-i " ++ htmlPath ++ "," ++ ifacePath)
-
-  let base    = mkDep "base"
-      process = mkDep "process"
-      ghcprim = mkDep "ghc-prim"
-
-  putStrLn "Running tests..."
-
-  forM_ modDirs' $ \modDir -> do
-    testModules <- getDirectoryContents modDir
-
-    let mods = filter ((==) ".hs" . takeExtension) testModules
-        mods' = map (modDir </>) mods
-
-    unless (null mods') $ do
-      handle <- runProcess haddockPath
-                (["-w", "-o", outDir </> last (splitPath modDir), "--latex"
-                 , "--optghc=-fglasgow-exts"
-                 , "--optghc=-w", base, process, ghcprim] ++ opts ++ mods')
-                Nothing env Nothing
-                Nothing Nothing
-
-      wait handle "*** Haddock run failed! Exiting."
-
-  check modDirs (if not (null args) && args !! 0 == "all" then False else True)
-  where
-    wait :: ProcessHandle -> String -> IO ()
-    wait h msg = do
-      r <- waitForProcess h
-      unless (r == ExitSuccess) $ do
-        hPutStrLn stderr msg
-        exitFailure
-
-check :: [FilePath] -> Bool -> IO ()
-check modDirs strict = do
-  forM_ modDirs $ \modDir -> do
-    let oDir = outDir </> modDir
-        rDir = refDir </> modDir
-
-    refDirExists <- doesDirectoryExist rDir
-    when refDirExists $ do
-      -- we're not creating sub-directories, I think.
-      refFiles <- getDirectoryContents rDir >>= filterM doesFileExist
-
-      forM_ refFiles $ \rFile -> do
-        let refFile = rDir </> rFile
-            outFile = oDir </> rFile
-        oe <- doesFileExist outFile
-        if oe
-          then do
-            out <- readFile outFile
-            ref <- readFile refFile
-
-            if out /= ref
-               then do
-                 putStrLn $ "Output for " ++ modDir ++ " has changed! Exiting with diff:"
-
-                 let reffile' = outDir </> takeFileName refFile ++ ".nolinks"
-                     outfile' = outDir </> takeFileName outFile ++ ".ref.nolinks"
-                 writeFile reffile' ref
-                 writeFile outfile' out
-                 r <- programOnPath "colordiff"
-                 code <- if r
-                   then system $ "colordiff " ++ reffile' ++ " " ++ outfile'
-                   else system $ "diff " ++ reffile' ++ " " ++ outfile'
-                 if strict then exitFailure else return ()
-                 unless (code == ExitSuccess) $ do
-                   hPutStrLn stderr "*** Running diff failed!"
-                   exitFailure
-               else do
-                 putStrLn $ "Pass: " ++ modDir
-           else do
-             putStrLn $ "Pass: " ++ modDir ++ " (no .ref file)"
-
-programOnPath :: FilePath -> IO Bool
-programOnPath p = do
-  result <- findProgramLocation silent p
-  return (isJust result)
-\end{code}