Commit 6d0aa9ff authored by thomie's avatar thomie
Browse files

Testsuite: delete Windows line endings [skip ci] (#11631)

parent 28620ba6
-- !!! testing hGetLine
import System.IO
-- one version of 'cat'
main = do
let loop h = do b <- hIsEOF h
if b then return ()
else do l <- hGetLine h; putStrLn l; loop h
loop stdin
h <- openFile "hGetLine001.hs" ReadMode
hSetBinaryMode stdout True
hSetBuffering h NoBuffering
loop h
hSeek h AbsoluteSeek 0
hSetBuffering h LineBuffering
loop h
hSeek h AbsoluteSeek 0
hSetBuffering h (BlockBuffering (Just 83))
loop h
-- !!! testing hGetLine
import System.IO
-- one version of 'cat'
main = do
let loop h = do b <- hIsEOF h
if b then return ()
else do l <- hGetLine h; putStrLn l; loop h
loop stdin
h <- openFile "hGetLine001.hs" ReadMode
hSetBinaryMode stdout True
hSetBuffering h NoBuffering
loop h
hSeek h AbsoluteSeek 0
hSetBuffering h LineBuffering
loop h
hSeek h AbsoluteSeek 0
hSetBuffering h (BlockBuffering (Just 83))
loop h
-- !!! testing hGetLine
import System.IO
-- one version of 'cat'
main = do
let loop h = do b <- hIsEOF h
if b then return ()
else do l <- hGetLine h; putStrLn l; loop h
loop stdin
h <- openFile "hGetLine001.hs" ReadMode
hSetBinaryMode stdout True
hSetBuffering h NoBuffering
loop h
hSeek h AbsoluteSeek 0
hSetBuffering h LineBuffering
loop h
hSeek h AbsoluteSeek 0
hSetBuffering h (BlockBuffering (Just 83))
loop h
-- !!! testing hGetLine
import System.IO
-- one version of 'cat'
main = do
let loop h = do b <- hIsEOF h
if b then return ()
else do l <- hGetLine h; putStrLn l; loop h
loop stdin
h <- openFile "hGetLine001.hs" ReadMode
hSetBinaryMode stdout True
hSetBuffering h NoBuffering
loop h
hSeek h AbsoluteSeek 0
hSetBuffering h LineBuffering
loop h
hSeek h AbsoluteSeek 0
hSetBuffering h (BlockBuffering (Just 83))
loop h
-- !!! testing hGetLine
import System.IO
-- one version of 'cat'
main = do
let loop h = do b <- hIsEOF h
if b then return ()
else do l <- hGetLine h; putStrLn l; loop h
loop stdin
h <- openFile "hGetLine001.hs" ReadMode
hSetBinaryMode stdout True
hSetBuffering h NoBuffering
loop h
hSeek h AbsoluteSeek 0
hSetBuffering h LineBuffering
loop h
hSeek h AbsoluteSeek 0
hSetBuffering h (BlockBuffering (Just 83))
loop h
-- !!! testing hGetLine
import System.IO
-- one version of 'cat'
main = do
let loop h = do b <- hIsEOF h
if b then return ()
else do l <- hGetLine h; putStrLn l; loop h
loop stdin
h <- openFile "hGetLine001.hs" ReadMode
hSetBinaryMode stdout True
hSetBuffering h NoBuffering
loop h
hSeek h AbsoluteSeek 0
hSetBuffering h LineBuffering
loop h
hSeek h AbsoluteSeek 0
hSetBuffering h (BlockBuffering (Just 83))
loop h
-- !!! testing hGetLine
import System.IO
-- one version of 'cat'
main = do
let loop h = do b <- hIsEOF h
if b then return ()
else do l <- hGetLine h; putStrLn l; loop h
loop stdin
h <- openFile "hGetLine001.hs" ReadMode
hSetBinaryMode stdout True
hSetBuffering h NoBuffering
loop h
hSeek h AbsoluteSeek 0
hSetBuffering h LineBuffering
loop h
hSeek h AbsoluteSeek 0
hSetBuffering h (BlockBuffering (Just 83))
loop h
-- !!! testing hGetLine
import System.IO
-- one version of 'cat'
main = do
let loop h = do b <- hIsEOF h
if b then return ()
else do l <- hGetLine h; putStrLn l; loop h
loop stdin
h <- openFile "hGetLine001.hs" ReadMode
hSetBinaryMode stdout True
hSetBuffering h NoBuffering
loop h
hSeek h AbsoluteSeek 0
hSetBuffering h LineBuffering
loop h
hSeek h AbsoluteSeek 0
hSetBuffering h (BlockBuffering (Just 83))
loop h
Left openFile003Dir: openFile: permission denied (Permission denied)
Left openFile003Dir: openFile: permission denied (Permission denied)
Left openFile003Dir: openFile: permission denied (Permission denied)
Left openFile003Dir: openFile: permission denied (Permission denied)
Left openFile003Dir: openFile: permission denied (Permission denied)
Left openFile003Dir: openFile: permission denied (Permission denied)
Left openFile003Dir: openFile: permission denied (Permission denied)
Left openFile003Dir: openFile: permission denied (Permission denied)
sind 1.0e20
-0.7304509250633894
-0.7469218912594929
(-6579317027855829,-53)
(-6727674302302237,-53)
cosd 1.0e20
-0.6829651865754496
-0.6649117899070088
(-6151603519536432,-53)
(-5988992978518909,-53)
tand 1.0e20
1.0695287833425957
1.123339821307656
(4816729430123734,-52)
(5059072800651599,-52)
Done
sind 1.0e20
-0.7304509250633894
-0.7469218912594929
(-6579317027855829,-53)
(-6727674302302237,-53)
cosd 1.0e20
-0.6829651865754496
-0.6649117899070088
(-6151603519536432,-53)
(-5988992978518909,-53)
tand 1.0e20
1.0695287833425957
1.123339821307656
(4816729430123734,-52)
(5059072800651599,-52)
Done
arrowfail002.hs:6:17: error: Variable not in scope: x :: Int
arrowfail002.hs:6:17: error: Variable not in scope: x :: Int
install1:
bin
test-1.0
install2:
bin
test-1.0
dist:
build
package.conf.inplace
setup-config
src
test-1.0.tar.gz
install1:
bin
test-1.0
install2:
bin
test-1.0
dist:
build
package.conf.inplace
setup-config
src
test-1.0.tar.gz
Before
After 2000 , 2001
Before
After 2000 , 2001
T2604.hs:7:35:
Can't make a derived instance of `Typeable (DList a)':
You need -XDeriveDataTypeable to derive an instance for this class
In the data type declaration for `DList'
T2604.hs:9:38:
Can't make a derived instance of `Typeable (NList a)'
(even with cunning newtype deriving):
You need -XDeriveDataTypeable to derive an instance for this class
In the newtype declaration for `NList'
T9968a.hs:8:13: error:
• Can't make a derived instance of ‘Bifunctor Blah’:
‘Bifunctor’ is not a standard derivable class (Eq, Show, etc.)
The last argument of class ‘Bifunctor’ does not have kind * or (* -> *)
• In the data declaration for ‘Blah’
T9968a.hs:8:13: error:
• Can't make a derived instance of ‘Bifunctor Blah’:
‘Bifunctor’ is not a standard derivable class (Eq, Show, etc.)
The last argument of class ‘Bifunctor’ does not have kind * or (* -> *)
• In the data declaration for ‘Blah’
drvfail006.hs:9:45:
Can't make a derived instance of `MonadState T'
(even with cunning newtype deriving):
`MonadState' does not have arity 1
In the newtype declaration for `T'
drvfail006.hs:9:45:
Can't make a derived instance of `MonadState T'
(even with cunning newtype deriving):
`MonadState' does not have arity 1
In the newtype declaration for `T'
show (:=:) = (:=:)
read (show (:=:)) :: T = (:=:)
show (:=:) = (:=:)
read (show (:=:)) :: T = (:=:)
#include <stdio.h>
void __attribute__((stdcall)) test(int arg)
{
printf("The argument passed was %i\n", arg );
}
#include <stdio.h>
void __attribute__((stdcall)) test(int arg)
{
printf("The argument passed was %i\n", arg );
}
#include <stdio.h>
void __attribute__((stdcall)) test(int arg)
{
printf("The argument passed was %i\n", arg );
}
#include <stdio.h>
void __attribute__((stdcall)) test(int arg)
{
printf("The argument passed was %i\n", arg );
}
#include <stdio.h>
void __attribute__((stdcall)) test(int arg)
{
printf("The argument passed was %i\n", arg );
}
#include <stdio.h>
void __attribute__((stdcall)) test(int arg)
{
printf("The argument passed was %i\n", arg );
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment