From: Julian Seward <jseward@acm.org>
Date: Mon, 31 Jan 2005 18:54:23 +0000 (+0000)
Subject: Autotest dregs
X-Git-Tag: svn/VALGRIND_3_0_1^2~537
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=e2443682c4fbb259ca33a860d12008cf50433f0b;p=thirdparty%2Fvalgrind.git

Autotest dregs


git-svn-id: svn://svn.valgrind.org/vex/trunk@797
---

diff --git a/VEX/orig_amd64/Compare.hs b/VEX/orig_amd64/Compare.hs
index 6ac6b665c3..66412677a1 100644
--- a/VEX/orig_amd64/Compare.hs
+++ b/VEX/orig_amd64/Compare.hs
@@ -21,7 +21,7 @@ import Char ( isSpace )
 /home/sewardj/Tools/HugsInst/bin/runhugs Compare.hs | grep FAIL 
 -}
 
-main = mayn "test1.sorted" "out.txt"
+main = mayn "test2.sorted" "out.txt"
 
 mayn :: String -> String -> IO ()
 
diff --git a/VEX/orig_amd64/SortedToOrig.hs b/VEX/orig_amd64/SortedToOrig.hs
index 70925a9456..0d947b6754 100644
--- a/VEX/orig_amd64/SortedToOrig.hs
+++ b/VEX/orig_amd64/SortedToOrig.hs
@@ -2,12 +2,12 @@
 module Main where
 
 main 
-  = do x1 <- readFile "sorted3.txt"
+  = do x1 <- readFile "test2.sorted"
        let x2 = lines x1
            x3 = zip [1 ..] x2
            x4 = concat (map qq x3)
        --putStr x4
-       writeFile "test1.orig" x4
+       writeFile "test2.orig" x4
 
 
 qq :: (Int, String) -> String