X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Ftests%2Flib%2FIO%2FhSeek002.hs;fp=ghc%2Ftests%2Fio%2Fshould_run%2Fio025.hs;h=a23481f2bfabe56d2dd0e41faf61d17e89aa082a;hb=d9af408e5c512501cfa991f5e4a76c9154bca917;hp=a378b3d974a2eb463871f11f0927aa14e731dfcf;hpb=5f6f90850d5c82dc56d13bbc035d635e1cb2106b;p=ghc-hetmet.git 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 --- 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