Add test

Author: sergv

cabal-testsuite/PackageTests/PreProcess/TooManyCommandLineArgs/Foo.hsc

@@ -0,0 +1,149 @@
+-- |
+-- Module:     Foo
+-- Copyright:  (c) Sergey Vinokurov 2025
+-- License:    Apache-2.0 (see LICENSE)
+-- Maintainer: serg.foo@gmail.com
+
+{-# LANGUAGE CPP #-}
+
+module Foo (foo) where
+
+import Foo01
+import Foo02
+import Foo03
+import Foo04
+import Foo05
+import Foo06
+import Foo07
+import Foo08
+import Foo09
+import Foo10
+
+#include <include_Foo01.h>
+#include <include_Foo02.h>
+#include <include_Foo03.h>
+#include <include_Foo04.h>
+#include <include_Foo05.h>
+#include <include_Foo06.h>
+#include <include_Foo07.h>
+#include <include_Foo08.h>
+#include <include_Foo09.h>
+#include <include_Foo10.h>
+#include <include_FooDep01.h>
+#include <include_FooDep02.h>
+#include <include_FooDep03.h>
+#include <include_FooDep04.h>
+#include <include_FooDep05.h>
+#include <include_FooDep06.h>
+#include <include_FooDep07.h>
+#include <include_FooDep08.h>
+#include <include_FooDep09.h>
+#include <include_FooDep10.h>
+#include <include_FooDepDep01.h>
+#include <include_FooDepDep02.h>
+#include <include_FooDepDep03.h>
+#include <include_FooDepDep04.h>
+#include <include_FooDepDep05.h>
+#include <include_FooDepDep06.h>
+#include <include_FooDepDep07.h>
+#include <include_FooDepDep08.h>
+#include <include_FooDepDep09.h>
+#include <include_FooDepDep10.h>
+
+foo :: Int
+foo = sum
+  [ #{const TEST_OPTION}
+  , foo01
+  , foo02
+  , foo03
+  , foo04
+  , foo05
+  , foo06
+  , foo07
+  , foo08
+  , foo09
+  , foo10
+
+  , #{const DEF_foo01}
+  , #{const DEF_foo02}
+  , #{const DEF_foo03}
+  , #{const DEF_foo04}
+  , #{const DEF_foo05}
+  , #{const DEF_foo06}
+  , #{const DEF_foo07}
+  , #{const DEF_foo08}
+  , #{const DEF_foo09}
+  , #{const DEF_foo10}
+
+  , #{const DEF_fooDep01}
+  , #{const DEF_fooDep02}
+  , #{const DEF_fooDep03}
+  , #{const DEF_fooDep04}
+  , #{const DEF_fooDep05}
+  , #{const DEF_fooDep06}
+  , #{const DEF_fooDep07}
+  , #{const DEF_fooDep08}
+  , #{const DEF_fooDep09}
+  , #{const DEF_fooDep10}
+
+  , #{const DEF_fooDepDep01}
+  , #{const DEF_fooDepDep02}
+  , #{const DEF_fooDepDep03}
+  , #{const DEF_fooDepDep04}
+  , #{const DEF_fooDepDep05}
+  , #{const DEF_fooDepDep06}
+  , #{const DEF_fooDepDep07}
+  , #{const DEF_fooDepDep08}
+  , #{const DEF_fooDepDep09}
+  , #{const DEF_fooDepDep10}
+  ]
+
+    -- [ ("TEST_OPTION", #{const TEST_OPTION})
+    --
+    -- , ("foo{01..10}", sum[foo01, foo02, foo03, foo04, foo05, foo06, foo07, foo08, foo09, foo10])
+    --
+    -- , ( "DEF_foo{01..10}"
+    --   , sum
+    --     [ #{const DEF_foo01}
+    --     , #{const DEF_foo02}
+    --     , #{const DEF_foo03}
+    --     , #{const DEF_foo04}
+    --     , #{const DEF_foo05}
+    --     , #{const DEF_foo06}
+    --     , #{const DEF_foo07}
+    --     , #{const DEF_foo08}
+    --     , #{const DEF_foo09}
+    --     , #{const DEF_foo10}
+    --     ]
+    --   )
+    --
+    -- , ( "DEF_fooDep{01..10}"
+    --   , sum
+    --     [ #{const DEF_fooDep01}
+    --     , #{const DEF_fooDep02}
+    --     , #{const DEF_fooDep03}
+    --     , #{const DEF_fooDep04}
+    --     , #{const DEF_fooDep05}
+    --     , #{const DEF_fooDep06}
+    --     , #{const DEF_fooDep07}
+    --     , #{const DEF_fooDep08}
+    --     , #{const DEF_fooDep09}
+    --     , #{const DEF_fooDep10}
+    --     ]
+    --   )
+    --
+    -- , ( "DEF_fooDepDep{01..10}"
+    --   , sum
+    --     [ #{const DEF_fooDepDep01}
+    --     , #{const DEF_fooDepDep02}
+    --     , #{const DEF_fooDepDep03}
+    --     , #{const DEF_fooDepDep04}
+    --     , #{const DEF_fooDepDep05}
+    --     , #{const DEF_fooDepDep06}
+    --     , #{const DEF_fooDepDep07}
+    --     , #{const DEF_fooDepDep08}
+    --     , #{const DEF_fooDepDep09}
+    --     , #{const DEF_fooDepDep10}
+    --     ]
+    --   )
+    -- ]

cabal-testsuite/PackageTests/PreProcess/TooManyCommandLineArgs/Main.hs

@@ -0,0 +1,6 @@
+module Main (main) where
+
+import Foo
+
+main :: IO ()
+main = putStrLn $ "Result = " ++ show foo

cabal-testsuite/PackageTests/PreProcess/TooManyCommandLineArgs/cabal.project

@@ -0,0 +1,34 @@
+packages:
+  my-toplevel.cabal
+  deps/my01/my01.cabal
+  deps/my02/my02.cabal
+  deps/my03/my03.cabal
+  deps/my04/my04.cabal
+  deps/my05/my05.cabal
+  deps/my06/my06.cabal
+  deps/my07/my07.cabal
+  deps/my08/my08.cabal
+  deps/my09/my09.cabal
+  deps/my10/my10.cabal
+
+  deps/my-dep01/my-dep01.cabal
+  deps/my-dep02/my-dep02.cabal
+  deps/my-dep03/my-dep03.cabal
+  deps/my-dep04/my-dep04.cabal
+  deps/my-dep05/my-dep05.cabal
+  deps/my-dep06/my-dep06.cabal
+  deps/my-dep07/my-dep07.cabal
+  deps/my-dep08/my-dep08.cabal
+  deps/my-dep09/my-dep09.cabal
+  deps/my-dep10/my-dep10.cabal
+
+  deps/my-dep-dep01/my-dep-dep01.cabal
+  deps/my-dep-dep02/my-dep-dep02.cabal
+  deps/my-dep-dep03/my-dep-dep03.cabal
+  deps/my-dep-dep04/my-dep-dep04.cabal
+  deps/my-dep-dep05/my-dep-dep05.cabal
+  deps/my-dep-dep06/my-dep-dep06.cabal
+  deps/my-dep-dep07/my-dep-dep07.cabal
+  deps/my-dep-dep08/my-dep-dep08.cabal
+  deps/my-dep-dep09/my-dep-dep09.cabal
+  deps/my-dep-dep10/my-dep-dep10.cabal

cabal-testsuite/PackageTests/PreProcess/TooManyCommandLineArgs/deps/my-dep-dep01/FooDepDep01.hs

@@ -0,0 +1,4 @@
+module FooDepDep01 (fooDepDep01) where
+
+fooDepDep01 :: Int
+fooDepDep01 = 01

cabal-testsuite/PackageTests/PreProcess/TooManyCommandLineArgs/deps/my-dep-dep01/include/include_FooDepDep01.h

@@ -0,0 +1 @@
+#define DEF_fooDepDep01 1

cabal-testsuite/PackageTests/PreProcess/TooManyCommandLineArgs/deps/my-dep-dep01/lib/libdummy-unused-lib.a

@@ -0,0 +1,10 @@
+cabal-version:  3.0
+name:           my-dep-dep01
+version:        0.1
+license:        BSD-3-Clause
+build-type:     Simple
+
+library
+  exposed-modules:    FooDepDep01
+  default-language:   Haskell2010
+  build-depends:      base

cabal-testsuite/PackageTests/PreProcess/TooManyCommandLineArgs/deps/my-dep-dep01/my-dep-dep01.cabal

@@ -0,0 +1,4 @@
+module FooDepDep02 (fooDepDep02) where
+
+fooDepDep02 :: Int
+fooDepDep02 = 02

cabal-testsuite/PackageTests/PreProcess/TooManyCommandLineArgs/deps/my-dep-dep02/FooDepDep02.hs

@@ -0,0 +1 @@
+#define DEF_fooDepDep02 2