[project @ 2001-05-18 16:54:04 by simonmar]

[ghc-hetmet.git] / ghc / tests / lib / IO / hSeek002.hs

diff --git a/ghc/tests/io/should_run/io025.hs b/ghc/tests/lib/IO/hSeek002.hs
similarity index 90%
rename from ghc/tests/io/should_run/io025.hs
rename to ghc/tests/lib/IO/hSeek002.hs
index a378b3d..a23481f 100644 (file)
--- a/ghc/tests/io/should_run/io025.hs
+++ b/ghc/tests/lib/IO/hSeek002.hs
@@ -6,7 +6,7 @@ import Directory ( removeFile )
 
 main :: IO ()
 main = do
-   hdl <- openFile "io025.hs" ReadMode
+   hdl <- openFile "hSeek002.hs" ReadMode
    flg <- hIsEOF hdl
    print flg
    hSeek hdl SeekFromEnd 0