aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2012-02-04 03:21:33 +0100
committerDavid Waern <david.waern@gmail.com>2012-02-04 03:21:33 +0100
commitfbef8bafd21d34f83326f7dd06bb82c563571345 (patch)
tree0525ac86a7f6daa40866edc930829a68ed81df5c
parent8b5294785bb5bbe2de738e03c3961a4317ffcf86 (diff)
Remove copy.hs - use accept.hs instead.
-rw-r--r--tests/html-tests/copy.hs37
1 files changed, 0 insertions, 37 deletions
diff --git a/tests/html-tests/copy.hs b/tests/html-tests/copy.hs
deleted file mode 100644
index 188bfd33..00000000
--- a/tests/html-tests/copy.hs
+++ /dev/null
@@ -1,37 +0,0 @@
-import System.Cmd
-import System.Environment
-import System.FilePath
-import System.Exit
-import System.Directory
-import Data.List
-import Control.Monad
-
-
-main :: IO ()
-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 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