Update examples
This commit is contained in:
3
testsuite/make/remake001_should_fail/Bar.hs
Normal file
3
testsuite/make/remake001_should_fail/Bar.hs
Normal file
@ -0,0 +1,3 @@
|
||||
module Bar where
|
||||
|
||||
bar = undef {- error -}
|
3
testsuite/make/remake001_should_fail/Foo.hs
Normal file
3
testsuite/make/remake001_should_fail/Foo.hs
Normal file
@ -0,0 +1,3 @@
|
||||
module Foo where
|
||||
|
||||
foo = undefined
|
31
testsuite/make/remake001_should_fail/Main.hs
Normal file
31
testsuite/make/remake001_should_fail/Main.hs
Normal file
@ -0,0 +1,31 @@
|
||||
|
||||
import System.Plugins
|
||||
|
||||
import System.Directory
|
||||
|
||||
main = do
|
||||
status <- make "Foo.hs" [] -- should make
|
||||
print status
|
||||
|
||||
status <- make "Foo.hs" [] -- shouldn't make
|
||||
print status
|
||||
|
||||
status <- merge "Foo.hs" "Bar.hs"
|
||||
case status of
|
||||
MergeFailure e -> error $ show e
|
||||
MergeSuccess _ _ fp -> do {
|
||||
|
||||
;status <- make fp [] -- should make
|
||||
;() <- case status of
|
||||
MakeSuccess c _ -> print c
|
||||
MakeFailure _ -> print "make failure"
|
||||
|
||||
;status <- make fp [] -- shouldn't make
|
||||
;case status of
|
||||
MakeSuccess c _ -> print c
|
||||
MakeFailure _ -> print "make failure"
|
||||
|
||||
;removeFile "Foo.o" -- make test deterministic
|
||||
}
|
||||
|
||||
|
4
testsuite/make/remake001_should_fail/Makefile
Normal file
4
testsuite/make/remake001_should_fail/Makefile
Normal file
@ -0,0 +1,4 @@
|
||||
TEST= make/remake001_should_fail
|
||||
|
||||
TOP=../../..
|
||||
include ../../eval.mk
|
4
testsuite/make/remake001_should_fail/expected
Normal file
4
testsuite/make/remake001_should_fail/expected
Normal file
@ -0,0 +1,4 @@
|
||||
MakeSuccess ReComp "Foo.o"
|
||||
MakeSuccess NotReq "Foo.o"
|
||||
"make failure"
|
||||
"make failure"
|
Reference in New Issue
Block a user