test case for buildinfo with multiple executables

haskell · Apr 8, 2006 · 7b042d2 · 7b042d2
1 parent 855cf93
commit 7b042d2
Show file tree

Hide file tree

Showing 7 changed files with 51 additions and 0 deletions.
diff --git a/tests/ModuleTest.hs b/tests/ModuleTest.hs
@@ -275,6 +275,19 @@ tests currDir comp compConf = [
             assertCmd "./,tmp/bin/testA isA" "A is not A"
             assertCmd "./,tmp/bin/testB isB" "B is not B"
             -- no register, since there's no library
+-- buildinfo
+         ,TestLabel ("buildinfo with multiple executables " ++ compIdent) $ TestCase $
+         do setCurrentDirectory $ (testdir `joinFileName` "buildInfo")
+            testPrelude
+            assertConfigure ",tmp"
+            assertCmd' compCmd "haddock" "setup haddock returned error code."
+            assertBuild
+            assertCopy
+            doesFileExist ",tmp/bin/exe1" >>= 
+              assertBool "install did not create the executable: exe1"
+            doesFileExist ",tmp/bin/exe2" >>= 
+              assertBool "install did not create the executable: exe2"
+            -- no register, since there's no library
 -- mutually recursive modules
          ,TestLabel ("package recursive: building " ++ compIdent) $ TestCase $
            when (comp == GHC) (do

diff --git a/tests/buildInfo/Makefile b/tests/buildInfo/Makefile
@@ -0,0 +1 @@
+include ../Tests.mk
diff --git a/tests/buildInfo/Setup.lhs b/tests/buildInfo/Setup.lhs
@@ -0,0 +1,5 @@
+#!/usr/bin/runhaskell
+
+> import Distribution.Simple
+> main = defaultMainWithHooks defaultUserHooks
+
diff --git a/tests/buildInfo/buildinfo2.buildinfo b/tests/buildInfo/buildinfo2.buildinfo
@@ -0,0 +1,5 @@
+Executable: exe1
+Buildable: True
+
+Executable: exe2
+Buildable: True
diff --git a/tests/buildInfo/buildinfo2.cabal b/tests/buildInfo/buildinfo2.cabal
@@ -0,0 +1,19 @@
+Name: buildinfo2
+Version: 0.0
+License: GPL
+License-file: COPYING
+Build-Depends: base
+Author: Evgeny Chukreev
+Copyright: Evgeny Chukreev (C) 2005
+Maintainer: Evgeny Chukreev <public@toril.ru>
+Synopsis: Buildinfo testcase
+Description:
+ Buildinfo testcase
+
+Executable: exe1
+Main-is: exe1.hs
+HS-source-dirs: src
+
+Executable: exe2
+Main-is: exe2.hs
+HS-source-dirs: src
diff --git a/tests/buildInfo/src/exe1.hs b/tests/buildInfo/src/exe1.hs
@@ -0,0 +1,4 @@
+module Main () where
+
+main :: IO ()
+main = return ()
diff --git a/tests/buildInfo/src/exe2.hs b/tests/buildInfo/src/exe2.hs
@@ -0,0 +1,4 @@
+module Main () where
+
+main :: IO ()
+main = return ()