Fix the testsuite.
This commit is contained in:
parent
2b876f52e9
commit
e930951796
@ -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
|
||||||
|
@ -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= "."
|
||||||
|
@ -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"]
|
||||||
[ ]
|
[ ]
|
||||||
[ ]
|
[ ]
|
||||||
[]
|
[]
|
||||||
|
@ -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= "."
|
||||||
|
@ -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
|
|
||||||
|
@ -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 )
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user