From a7cfb1d83c7e0f97a806e1f2c202416e625b2ce2 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Tue, 11 May 2010 19:14:31 +0000
Subject: Re-organise the testsuite structure

---
 tests/copy.hs | 30 ------------------------------
 1 file changed, 30 deletions(-)
 delete mode 100644 tests/copy.hs

(limited to 'tests/copy.hs')

diff --git a/tests/copy.hs b/tests/copy.hs
deleted file mode 100644
index fa18fe9c..00000000
--- a/tests/copy.hs
+++ /dev/null
@@ -1,30 +0,0 @@
-import System.Cmd
-import System.Environment
-import System.FilePath
-import System.Exit
-import System.Directory
-import Data.List
-import Control.Monad
-import Text.Regex
-
-
-main = do
-  args <- getArgs
-  dir <- getCurrentDirectory
-  contents <- getDirectoryContents (dir </> "output")
-  if not $ null args
-    then
-      mapM copy [ "output" </> file  | file <- contents, ".html" `isSuffixOf` file, takeBaseName file `elem` args  ]
-    else
-      mapM copy [ "output" </> file | file <- contents, ".html" `isSuffixOf` file ]
-
-
-copy file = do
-  let new = "tests" </> takeFileName file <.> ".ref"
-  print file
-  print new
-  contents <- readFile file
-  writeFile new (stripLinks contents)
-
-
-stripLinks f = subRegex (mkRegexWithOpts "<A HREF=[^>]*>" False False) f "<A HREF=\"\">"
-- 
cgit v1.2.3