Add tests for autogen-modules as main-is

philderbeast · philderbeast · commit c95905053b84 · 2026-01-26T14:34:17.000-05:00
diff --git a/cabal-testsuite/PackageTests/AutogenModules/MainIsBench/LICENSE b/cabal-testsuite/PackageTests/AutogenModules/MainIsBench/LICENSE
@@ -0,0 +1 @@
+LICENSE
diff --git a/cabal-testsuite/PackageTests/AutogenModules/MainIsBench/MainIsBench.cabal b/cabal-testsuite/PackageTests/AutogenModules/MainIsBench/MainIsBench.cabal
@@ -0,0 +1,23 @@
+cabal-version: 3.12
+name: MainIsBench
+version: 0.1
+license: BSD-3-Clause
+license-file: LICENSE
+author: Federico Mastellone
+maintainer: Federico Mastellone
+synopsis: MainIsBench
+category: PackageTests
+build-type: Simple
+
+description:
+    Check if Cabal accepts an autogen-module in a benchmark as the main-is field.
+
+Benchmark Bench
+    default-language: Haskell2010
+    main-is: MyDummy.hs
+    type: exitcode-stdio-1.0
+    build-depends: base == 4.*
+    other-modules:
+        MyDummy
+    autogen-modules:
+        MyDummy
diff --git a/cabal-testsuite/PackageTests/AutogenModules/MainIsBench/setup.cabal.out b/cabal-testsuite/PackageTests/AutogenModules/MainIsBench/setup.cabal.out
@@ -0,0 +1,6 @@
+# Setup configure
+Configuring MainIsBench-0.1...
+# Setup sdist
+Building source dist for MainIsBench-0.1...
+Error: [Cabal-2115]
+MyDummy.hs doesn't exist
diff --git a/cabal-testsuite/PackageTests/AutogenModules/MainIsBench/setup.out b/cabal-testsuite/PackageTests/AutogenModules/MainIsBench/setup.out
@@ -0,0 +1,6 @@
+# Setup configure
+Configuring MainIsBench-0.1...
+# Setup sdist
+Building source dist for MainIsBench-0.1...
+Error: [Cabal-2115]
+MyDummy.hs doesn't exist
diff --git a/cabal-testsuite/PackageTests/AutogenModules/MainIsBench/setup.test.hs b/cabal-testsuite/PackageTests/AutogenModules/MainIsBench/setup.test.hs
@@ -0,0 +1,11 @@
+import Test.Cabal.Prelude
+
+-- Test that setup shows all the 'autogen-modules' warnings.
+main = setupAndCabalTest $ do
+
+        configureResult <- setup' "configure" []
+        assertOutputDoesNotContain "MyDummy.hs doesn't exist" configureResult
+        sdistResult <- fails $ setup' "sdist" []
+        assertOutputContains "MyDummy.hs doesn't exist" sdistResult
+
+        return ()
diff --git a/cabal-testsuite/PackageTests/AutogenModules/MainIsExe/LICENSE b/cabal-testsuite/PackageTests/AutogenModules/MainIsExe/LICENSE
@@ -0,0 +1 @@
+LICENSE
diff --git a/cabal-testsuite/PackageTests/AutogenModules/MainIsExe/MainIsExe.cabal b/cabal-testsuite/PackageTests/AutogenModules/MainIsExe/MainIsExe.cabal
@@ -0,0 +1,22 @@
+cabal-version: 3.12
+name: MainIsExe
+version: 0.1
+license: BSD-3-Clause
+license-file: LICENSE
+author: Federico Mastellone
+maintainer: Federico Mastellone
+synopsis: AutogenModules
+category: PackageTests
+build-type: Simple
+
+description:
+    Check if Cabal accepts an autogen-module in an executable as the main-is field.
+
+Executable Exe
+    default-language: Haskell2010
+    main-is: MyDummy.hs
+    build-depends: base == 4.*
+    other-modules:
+        MyDummy
+    autogen-modules:
+        MyDummy
diff --git a/cabal-testsuite/PackageTests/AutogenModules/MainIsExe/setup.cabal.out b/cabal-testsuite/PackageTests/AutogenModules/MainIsExe/setup.cabal.out
@@ -0,0 +1,6 @@
+# Setup configure
+Configuring MainIsExe-0.1...
+# Setup sdist
+Building source dist for MainIsExe-0.1...
+Error: [Cabal-2115]
+MyDummy.hs doesn't exist
diff --git a/cabal-testsuite/PackageTests/AutogenModules/MainIsExe/setup.out b/cabal-testsuite/PackageTests/AutogenModules/MainIsExe/setup.out
@@ -0,0 +1,6 @@
+# Setup configure
+Configuring MainIsExe-0.1...
+# Setup sdist
+Building source dist for MainIsExe-0.1...
+Error: [Cabal-2115]
+MyDummy.hs doesn't exist
diff --git a/cabal-testsuite/PackageTests/AutogenModules/MainIsExe/setup.test.hs b/cabal-testsuite/PackageTests/AutogenModules/MainIsExe/setup.test.hs
@@ -0,0 +1,11 @@
+import Test.Cabal.Prelude
+
+-- Test that setup shows all the 'autogen-modules' warnings.
+main = setupAndCabalTest $ do
+
+        configureResult <- setup' "configure" []
+        assertOutputDoesNotContain "MyDummy.hs doesn't exist" configureResult
+        sdistResult <- fails $ setup' "sdist" []
+        assertOutputContains "MyDummy.hs doesn't exist" sdistResult
+
+        return ()
diff --git a/cabal-testsuite/PackageTests/AutogenModules/MainIsTest/LICENSE b/cabal-testsuite/PackageTests/AutogenModules/MainIsTest/LICENSE
@@ -0,0 +1 @@
+LICENSE
diff --git a/cabal-testsuite/PackageTests/AutogenModules/MainIsTest/MainIsTest.cabal b/cabal-testsuite/PackageTests/AutogenModules/MainIsTest/MainIsTest.cabal
@@ -0,0 +1,23 @@
+cabal-version: 3.12
+name: MainIsTest
+version: 0.1
+license: BSD-3-Clause
+license-file: LICENSE
+author: Federico Mastellone
+maintainer: Federico Mastellone
+synopsis: MainIsTest
+category: PackageTests
+build-type: Simple
+
+description:
+    Check if Cabal accepts an autogen-module in a test-suite as the main-is field.
+
+Test-Suite Test
+    default-language: Haskell2010
+    main-is: MyDummy.hs
+    type: exitcode-stdio-1.0
+    build-depends: base == 4.*
+    other-modules:
+        MyDummy
+    autogen-modules:
+        MyDummy
diff --git a/cabal-testsuite/PackageTests/AutogenModules/MainIsTest/setup.cabal.out b/cabal-testsuite/PackageTests/AutogenModules/MainIsTest/setup.cabal.out
@@ -0,0 +1,6 @@
+# Setup configure
+Configuring MainIsTest-0.1...
+# Setup sdist
+Building source dist for MainIsTest-0.1...
+Error: [Cabal-2115]
+MyDummy.hs doesn't exist
diff --git a/cabal-testsuite/PackageTests/AutogenModules/MainIsTest/setup.out b/cabal-testsuite/PackageTests/AutogenModules/MainIsTest/setup.out
@@ -0,0 +1,6 @@
+# Setup configure
+Configuring MainIsTest-0.1...
+# Setup sdist
+Building source dist for MainIsTest-0.1...
+Error: [Cabal-2115]
+MyDummy.hs doesn't exist
diff --git a/cabal-testsuite/PackageTests/AutogenModules/MainIsTest/setup.test.hs b/cabal-testsuite/PackageTests/AutogenModules/MainIsTest/setup.test.hs
@@ -0,0 +1,11 @@
+import Test.Cabal.Prelude
+
+-- Test that setup shows all the 'autogen-modules' warnings.
+main = setupAndCabalTest $ do
+
+        configureResult <- setup' "configure" []
+        assertOutputDoesNotContain "MyDummy.hs doesn't exist" configureResult
+        sdistResult <- fails $ setup' "sdist" []
+        assertOutputContains "MyDummy.hs doesn't exist" sdistResult
+
+        return ()
