Fix the testsuite.

This commit is contained in:
Lemmih 2007-01-29 03:18:27 +00:00
parent 2b876f52e9
commit e930951796
8 changed files with 16 additions and 13 deletions

View File

@ -3,12 +3,12 @@
include $(TOP)/config.mk include $(TOP)/config.mk
include $(TOP)/testsuite/check.mk include $(TOP)/testsuite/check.mk
BIN= prog/a.out BIN= prog/Main
OBJ= prog/Main.o OBJ= prog/Main.o
SRC= prog/Main.hs SRC= prog/Main.hs
BINDIR= prog BINDIR= prog
REALBIN= ./a.out REALBIN= ./Main
API_OBJ= api/API.o API_OBJ= api/API.o
@ -32,7 +32,7 @@ $(BIN) : $(PRIOR_OBJS) $(API_OBJ) $(SRC) $(EXTRA_OBJS)
clean: clean:
find . -name '*~' -exec rm {} \; find . -name '*~' -exec rm {} \;
rm -rf *.{o,hi,dep} rm -rf *.{o,hi,dep}
rm -rf */*.{hi,o,old} */a.out rm -rf */*.{hi,o,old} */Main
rm -rf */*core rm -rf */*core
rm -rf */*.a rm -rf */*.a
rm -rf */package.conf rm -rf */package.conf

View File

@ -1,7 +1,7 @@
include $(TOP)/config.mk include $(TOP)/config.mk
include $(TOP)/testsuite/check.mk include $(TOP)/testsuite/check.mk
BIN=a.out BIN=Main
SRC=Main.hs SRC=Main.hs
BINDIR= "." BINDIR= "."

View File

@ -11,7 +11,7 @@
#include "../../../config.h" #include "../../../config.h"
import System.Eval import System.Eval
import AltData.Dynamic import Data.Dynamic
main = do main = do
a <- return $ toDyn (3::Integer) a <- return $ toDyn (3::Integer)
@ -19,7 +19,7 @@ main = do
-- so, we try to compile a function that takes a dyn. -- so, we try to compile a function that takes a dyn.
-- looks like with GHC 6.4, we need to make sure the package.confs work: -- looks like with GHC 6.4, we need to make sure the package.confs work:
m_b <- unsafeEval_ "\\dyn -> fromDyn dyn (7 :: Integer)" m_b <- unsafeEval_ "\\dyn -> fromDyn dyn (7 :: Integer)"
["AltData.Dynamic"] ["Data.Dynamic"]
[ ] [ ]
[ ] [ ]
[] []

View File

@ -7,7 +7,7 @@ INCLUDES= -I$(TOP)
# compile with GHC to save us setting all the necessary include and # compile with GHC to save us setting all the necessary include and
# lib flags. use ghc -v to find out what these are if you wish to go # lib flags. use ghc -v to find out what these are if you wish to go
# via gcc. # via gcc.
BIN=./a.out BIN=./Main
SRC=main.c SRC=main.c
BINDIR= "." BINDIR= "."

View File

@ -1,5 +1,4 @@
interface "Main" Main interface "main" Main
module dependencies: A, B module dependencies: A, B
package dependencies: base, haskell98, hi package dependencies: base, plugins-1.0
import A
import B

View File

@ -9,6 +9,10 @@ module TestIO ( resource, resource_dyn ) where
import API import API
import Data.Dynamic import Data.Dynamic
import Distribution.Package
import Language.Haskell.Parser
import Network.HxWeb
import System.IO import System.IO
import System.Posix.Types ( ProcessID, Fd ) import System.Posix.Types ( ProcessID, Fd )
import System.Posix.Process ( forkProcess, executeFile, getProcessID ) import System.Posix.Process ( forkProcess, executeFile, getProcessID )

View File

@ -3,4 +3,4 @@ merge failed:
parse error in ../TestIO.conf parse error in ../TestIO.conf
line: 17, col: 1 line: 17, col: 1
a.out: failed Main: failed

View File

@ -3,4 +3,4 @@ merge failed:
parse error in ../Unsafe.conf parse error in ../Unsafe.conf
line: 13, col: 1 line: 13, col: 1
a.out: failed Main: failed