aboutsummaryrefslogtreecommitdiff
path: root/tests/html-tests/accept.hs
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2011-11-05 20:37:29 +0100
committerDavid Waern <david.waern@gmail.com>2011-11-05 20:37:29 +0100
commit86cf889e7d746f68d65900f3b5f0d31b24aef7bf (patch)
tree7f6cf2277e086b44f61bd89043180e0a4a5b4ea1 /tests/html-tests/accept.hs
parent208b7ccf44341f8a43c0976589eca3c6e81f7f19 (diff)
Rename copy.hs -> accept.hs.
Diffstat (limited to 'tests/html-tests/accept.hs')
-rw-r--r--tests/html-tests/accept.hs30
1 files changed, 30 insertions, 0 deletions
diff --git a/tests/html-tests/accept.hs b/tests/html-tests/accept.hs
new file mode 100644
index 00000000..fa18fe9c
--- /dev/null
+++ b/tests/html-tests/accept.hs
@@ -0,0 +1,30 @@
+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=\"\">"