Add GAP distro tests

.github/workflows/CI-distro.yml

@@ -0,0 +1,117 @@
+name: Test GAP package distro
+
+on:
+  push:
+    branches:
+      - 'master'
+      - 'release-*'
+    tags: '*'
+  pull_request:
+  schedule:
+    # Every Monday at 3:08 AM UTC
+    - cron: '8 3 * * 1'
+  workflow_dispatch:
+
+concurrency:
+  # group by workflow and ref; the last slightly strange component ensures that for pull
+  # requests, we limit to 1 concurrent job, but for the default repository branch we don't
+  group: ${{ github.workflow }}-${{ github.ref }}-${{ github.ref_name != github.event.repository.default_branch || github.run_number }}
+  # Cancel intermediate builds, but only if it is a pull request build.
+  cancel-in-progress: ${{ startsWith(github.ref, 'refs/pull/') }}
+
+jobs:
+  generate-matrix:
+    runs-on: ubuntu-latest
+    outputs:
+      gap-packages: ${{ steps.set-matrix.outputs.gap-packages }}
+    steps:
+      - uses: actions/checkout@v4
+      - name: "Set up Julia"
+        uses: julia-actions/setup-julia@v2
+        with:
+          version: '1'
+      - name: "Cache artifacts"
+        uses: julia-actions/cache@v2
+        with:
+          include-matrix: false # don't create a cache per GAP package
+      - name: "Build package"
+        uses: julia-actions/julia-buildpkg@v1
+      - name: Get list of GAP packages
+        id: set-matrix
+        run: julia --project=. -e '
+                  using Artifacts, TOML;
+                  output = sprint(print, "gap-packages=", map(name -> name[9:end], sort!(collect(filter(startswith("GAP_pkg_"), keys(TOML.parsefile(find_artifacts_toml(Base.active_project()))))))));
+                  println(output);
+                  open(ENV["GITHUB_OUTPUT"], "a") do io;
+                    println(io, output);
+                  end;'
+
+  test:
+    name: ${{ matrix.gap-package }}
+    needs: generate-matrix
+    runs-on: ${{ matrix.os }}
+    timeout-minutes: 20
+    continue-on-error: ${{ matrix.julia-version == 'nightly' }}
+    strategy:
+      fail-fast: false
+      matrix:
+        julia-version:
+          - '1'
+        julia-arch:
+          - x64
+        os:
+          - ubuntu-latest
+        gap-package: ${{fromJSON(needs.generate-matrix.outputs.gap-packages)}}
+        exclude:
+          - gap-package: '4ti2interface'              # ???
+          - gap-package: 'alnuth'                     # `AL_EXECUTABLE, the executable for PARI/GP, has to be set`
+          - gap-package: 'autodoc'                    # test failure
+          - gap-package: 'caratinterface'             # `Carat program Bravais_inclusions failed with error code 1`
+          - gap-package: 'curlinterface'              # no jll
+          - gap-package: 'example'                    # no jll
+          - gap-package: 'examplesforhomalg'          # `Error, found no Singular executable in PATH while searching the following list`
+          - gap-package: 'gapdoc'                     # test failure
+          - gap-package: 'gradedmodules'              # `Error, found no Singular executable in PATH while searching the following list`
+          - gap-package: 'gradedringforhomalg'        # `Error, found no Singular executable in PATH while searching the following list` 
+          - gap-package: 'guarana'                    # `AL_EXECUTABLE, the executable for PARI/GP, has to be set`
+          #- gap-package: 'guava'                      # test failure
+          - gap-package: 'hap'                        # `polymake command not found. Please set POLYMAKE_COMMAND by hand`
+          - gap-package: 'hapcryst'                   # `polymake command not found. Please set POLYMAKE_COMMAND by hand`
+          #- gap-package: 'io'                         # test failure
+          - gap-package: 'itc'                        # dependency `xgap` has no jll
+          - gap-package: 'jupyterkernel'              # no jll
+          - gap-package: 'localizeringforhomalg'      # `Error, found no Singular executable in PATH while searching the following list`'
+          - gap-package: 'modulepresentationsforcap'  # `Error, found no Singular executable in PATH while searching the following list`'
+          - gap-package: 'normalizinterface'          # `Error, Some error in the normaliz input data detected: Cone Property in last line not allowed for lattice ideals`
+          #- gap-package: 'packagemanager'             # test failure
+          - gap-package: 'polenta'                    # `AL_EXECUTABLE, the executable for PARI/GP, has to be set`
+          - gap-package: 'polycyclic'                 # ???
+          - gap-package: 'polymaking'                 # `polymake command not found. Please set POLYMAKE_COMMAND by hand`
+          - gap-package: 'profiling'                  # segfaults during testing
+          - gap-package: 'radiroot'                   # `AL_EXECUTABLE, the executable for PARI/GP, has to be set`
+          - gap-package: 'ringsforhomalg'             # `Error, found no Singular executable in PATH while searching the following list`'
+          - gap-package: 'semigroups'                 # no jll
+          - gap-package: 'singular'                   # `Error, Singular executable file not found!`
+          - gap-package: 'toricvarieties'             # `Error, found no Singular executable in PATH while searching the following list`'
+          #- gap-package: 'typeset'                    # `ReadPackage could not read <digraphs>/gap/doc.g`
+          #- gap-package: 'wpe'                        # ???
+          - gap-package: 'xgap'                       # no jll
+
+    steps:
+      - uses: actions/checkout@v4
+      - name: "Set up Julia"
+        uses: julia-actions/setup-julia@v2
+        with:
+          version: ${{ matrix.julia-version }}
+          arch: ${{ matrix.julia-arch }}
+      - name: "Cache artifacts"
+        uses: julia-actions/cache@v2
+        with:
+          cache-scratchspaces: false
+      - name: "Build package"
+        uses: julia-actions/julia-buildpkg@v1
+      - name: "Run GAP package tests"
+        run: |
+          JULIA_DEBUG=GAP julia --color=yes --project=. -e 'using GAP'  # ensure initialization
+          ls -l /home/runner/.julia/scratchspaces/*/binarywrappers_v1.11/bin
+          JULIA_DEBUG=GAP julia --color=yes --project=. -e 'using GAP, Test; @test GAP.Packages.test("${{ matrix.gap-package }}")'

CHANGES.md

@@ -31,6 +31,7 @@
   - orb
   - profiling
   - simpcomp
+- Add `GAP.Packages.test(name)`
 
 ## Version 0.12.1 (released 2024-12-09)
 

docs/src/packages.md

@@ -14,6 +14,7 @@ GAP.Packages.install
 GAP.Packages.update
 GAP.Packages.remove
 GAP.Packages.build
+GAP.Packages.test
 GAP.Packages.locate_package
 ```
 

src/packages.jl

@@ -3,7 +3,7 @@ module Packages
 
 import Downloads
 import Pidfile
-import ...GAP: Globals, GapObj, replace_global!, RNamObj, sysinfo, Wrappers
+import ...GAP: disable_error_handler, Globals, GapObj, replace_global!, RNamObj, sysinfo, Wrappers
 
 const DEFAULT_PKGDIR = Ref{String}()
 const DOWNLOAD_HELPER = Ref{Downloads.Downloader}()
@@ -408,6 +408,66 @@ function build(name::String; quiet::Bool = false,
   return res
 end
 
+"""
+    test(name::String)
+
+Return a boolean indicating if the GAP package with name `name` succeeds
+in running its tests.
+
+It is inteded to be used with the `@test` macro from the `Test` package.
+
+The function uses [the function `TestPackage`](GAP_ref(ref:TestPackage)).
+"""
+function test(name::String)
+  global disable_error_handler
+
+  function with_gap_var(f, name::String, val)
+    gname = GapObj(name)
+    old_value = Globals.ValueGlobal(gname)
+    Globals.MakeReadWriteGlobal(gname)
+    Globals.UnbindGlobal(gname)
+    Globals.BindGlobal(gname, val)
+    try
+        f()
+    finally
+      Globals.MakeReadWriteGlobal(gname);
+      Globals.UnbindGlobal(gname);
+      Globals.BindGlobal(gname, old_value);
+    end
+  end
+
+  error_occurred = false
+  ended_using_QuitGap = false
+  function fake_QuitGap(code)
+    if code != 0
+      error_occurred = true
+    end
+    ended_using_QuitGap = true
+  end
+
+  disable_error_handler[] = true
+  result = false
+  try
+    with_gap_var("ERROR_OUTPUT", Globals._JULIAINTERFACE_ORIGINAL_ERROR_OUTPUT) do
+      with_gap_var("QuitGap", fake_QuitGap) do
+        with_gap_var("QUIT_GAP", fake_QuitGap) do
+          with_gap_var("ForceQuitGap", identity) do
+            with_gap_var("FORCE_QUIT_GAP", identity) do
+              result = Globals.TestPackage(GapObj(name))              
+            end
+          end
+        end
+      end
+    end
+  finally
+    disable_error_handler[] = false
+  end
+
+  # Due to the hack above, we run into an error in TestPackage that is usually unreachable.
+  # In the case of a `QuitGap` call, we thus don't check for `result == true`.
+  return !error_occurred && (ended_using_QuitGap || result == true)
+end
+
 """
     locate_package(name::String)