DEBUG printenv

Rufflewind · Jan 6, 2025 · e9280e9 · e9280e9
1 parent 6780dc1
commit e9280e9
Show file tree

Hide file tree

Showing 4 changed files with 31 additions and 8 deletions.
diff --git a/.github/workflows/build.yml b/.github/workflows/build.yml
@@ -14,16 +14,16 @@ jobs:
       fail-fast: false
       matrix:
         include:
-          - { os: macOS-13, stack: lts-15.3, stack-extra-deps: "bytestring-0.11.3.0, file-io-0.1.4, filepath-1.4.100.0, unix-2.8.0.0" }
-          - { os: macos-latest, stack: lts-22.7, stack-extra-deps: "bytestring-0.11.5.3, file-io-0.1.4, filepath-1.5.2.0, os-string-2.0.2, unix-2.8.5.1", stack-package-flags: "{directory: {os-string: true}, file-io: {os-string: true}, unix: {os-string: true}}", ghc-flags: -Werror=deprecations }
-          - { os: ubuntu-latest, ghc: 8.10.7, cabal: 3.8.1.0 }
-          - { os: ubuntu-latest, ghc: 9.0.2, cabal: 3.8.1.0 }
-          - { os: ubuntu-latest, ghc: 9.2.4, cabal: 3.8.1.0 }
+          # - { os: macOS-13, stack: lts-15.3, stack-extra-deps: "bytestring-0.11.3.0, file-io-0.1.4, filepath-1.4.100.0, unix-2.8.0.0" }
+          # - { os: macos-latest, stack: lts-22.7, stack-extra-deps: "bytestring-0.11.5.3, file-io-0.1.4, filepath-1.5.2.0, os-string-2.0.2, unix-2.8.5.1", stack-package-flags: "{directory: {os-string: true}, file-io: {os-string: true}, unix: {os-string: true}}", ghc-flags: -Werror=deprecations }
+          # - { os: ubuntu-latest, ghc: 8.10.7, cabal: 3.8.1.0 }
+          # - { os: ubuntu-latest, ghc: 9.0.2, cabal: 3.8.1.0 }
+          # - { os: ubuntu-latest, ghc: 9.2.4, cabal: 3.8.1.0 }
           - { os: ubuntu-latest, ghc: 9.4.3, cabal: 3.8.1.0 }
           - { os: ubuntu-latest, ghc: latest, cabal: latest, cabal-package-flags: +os-string, ghc-flags: -Werror=deprecations }
-          - { os: windows-latest, stack: lts-15.3, stack-extra-deps: "bytestring-0.11.3.0, file-io-0.1.4, filepath-1.4.100.0, time-1.9.3, Win32-2.13.3.0", overrides: "before_prepare() { sed -i.bak -e /CreateSymbolicLinkW/d -e /GetFinalPathNameByHandleW/d configure.ac; }" }
-          - { os: windows-latest, stack: lts-17.5, stack-extra-deps: "bytestring-0.11.3.0, file-io-0.1.4, filepath-1.4.100.0, time-1.9.3, Win32-2.13.3.0" }
-          - { os: windows-latest, stack: lts-22.7, stack-extra-deps: "bytestring-0.11.5.3, file-io-0.1.4, filepath-1.5.2.0, os-string-2.0.2, time-1.14, Win32-2.14.0.0", stack-package-flags: "{directory: {os-string: true}, file-io: {os-string: true}, Win32: {os-string: true}}", ghc-flags: -Werror=deprecations }
+          # - { os: windows-latest, stack: lts-15.3, stack-extra-deps: "bytestring-0.11.3.0, file-io-0.1.4, filepath-1.4.100.0, time-1.9.3, Win32-2.13.3.0", overrides: "before_prepare() { sed -i.bak -e /CreateSymbolicLinkW/d -e /GetFinalPathNameByHandleW/d configure.ac; }" }
+          # - { os: windows-latest, stack: lts-17.5, stack-extra-deps: "bytestring-0.11.3.0, file-io-0.1.4, filepath-1.4.100.0, time-1.9.3, Win32-2.13.3.0" }
+          # - { os: windows-latest, stack: lts-22.7, stack-extra-deps: "bytestring-0.11.5.3, file-io-0.1.4, filepath-1.5.2.0, os-string-2.0.2, time-1.14, Win32-2.14.0.0", stack-package-flags: "{directory: {os-string: true}, file-io: {os-string: true}, Win32: {os-string: true}}", ghc-flags: -Werror=deprecations }
     runs-on: ${{ matrix.os }}
     env:
       CABAL_PACKAGE_FLAGS: ${{ matrix.cabal-package-flags }}

diff --git a/print_envs.hs b/print_envs.hs
@@ -0,0 +1,4 @@
+module Main where
+import System.Environment
+
+main = print =<< fmap (fmap fst) getEnvironment
diff --git a/printenvs.c b/printenvs.c
@@ -0,0 +1,11 @@
+#include <stdio.h>
+#include <string.h>
+
+extern char **environ;
+
+int main(void) {
+    int i;
+    for (i = 0; environ[i]; ++i) {
+        printf("printenvs: %s\n", strtok(environ[i], "="));
+    }
+}
diff --git a/tests/Main.hs b/tests/Main.hs
@@ -1,4 +1,6 @@
 module Main (main) where
+import System.Environment
+import Data.List
 import qualified Util as T
 import qualified CanonicalizePath
 import qualified CopyFile001
@@ -34,6 +36,8 @@ import qualified Xdg
 
 main :: IO ()
 main = T.testMain $ \ _t -> do
+  print "!!!!!!!!!!!! 1"
+  print =<< fmap (sort . fmap fst) getEnvironment
   T.isolatedRun _t "CanonicalizePath" CanonicalizePath.main
   T.isolatedRun _t "CopyFile001" CopyFile001.main
   T.isolatedRun _t "CopyFile002" CopyFile002.main
@@ -46,6 +50,8 @@ main = T.testMain $ \ _t -> do
   T.isolatedRun _t "DoesPathExist" DoesPathExist.main
   T.isolatedRun _t "FileTime" FileTime.main
   T.isolatedRun _t "FindFile001" FindFile001.main
+  print "!!!!!!!!!!!! 2"
+  print =<< fmap (sort . fmap fst) getEnvironment
   T.isolatedRun _t "GetDirContents001" GetDirContents001.main
   T.isolatedRun _t "GetDirContents002" GetDirContents002.main
   T.isolatedRun _t "GetFileSize" GetFileSize.main
@@ -64,4 +70,6 @@ main = T.testMain $ \ _t -> do
   T.isolatedRun _t "Simplify" Simplify.main
   T.isolatedRun _t "T8482" T8482.main
   T.isolatedRun _t "WithCurrentDirectory" WithCurrentDirectory.main
+  print "!!!!!!!!!!!! 3"
+  print =<< fmap (sort . fmap fst) getEnvironment
   T.isolatedRun _t "Xdg" Xdg.main