From e67ed9a76dcdf9d4d98659559ed108d1c6325d1d Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sun, 22 Nov 2009 14:48:47 +0000
Subject: Make copy.hs strip link contents before copying
No more updating of reference files when URLs in links changes.
---
tests/copy.hs | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
(limited to 'tests')
diff --git a/tests/copy.hs b/tests/copy.hs
index d19dff7b..fa18fe9c 100644
--- a/tests/copy.hs
+++ b/tests/copy.hs
@@ -5,6 +5,8 @@ import System.Exit
import System.Directory
import Data.List
import Control.Monad
+import Text.Regex
+
main = do
args <- getArgs
@@ -13,11 +15,16 @@ main = do
if not $ null args
then
mapM copy [ "output" </> file | file <- contents, ".html" `isSuffixOf` file, takeBaseName file `elem` args ]
- else
+ else
mapM copy [ "output" </> file | file <- contents, ".html" `isSuffixOf` file ]
+
copy file = do
let new = "tests" </> takeFileName file <.> ".ref"
- print file
+ print file
print new
- copyFile file ("tests" </> takeFileName file <.> ".ref")
+ contents <- readFile file
+ writeFile new (stripLinks contents)
+
+
+stripLinks f = subRegex (mkRegexWithOpts "<A HREF=[^>]*>" False False) f "<A HREF=\"\">"
--
cgit v1.2.3