Add tests to GAP_pkg_ wrappers

GAP_pkg_4ti2interface/test/Project.toml

@@ -0,0 +1,4 @@
+[deps]
+Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40"
+
+[compat]

GAP_pkg_4ti2interface/test/runtests.jl

@@ -1,5 +1,49 @@
-using GAP_pkg_4ti2interface
 using Test
 
 import GAP_pkg_4ti2interface
+import GAP_pkg_4ti2interface.GAP
+
+# verify loading works
 GAP_pkg_4ti2interface.load()
+
+# run package test suite
+# we need to hack around the fact that most of them end with quitting
+# the running process...
+# TODO: allow specifying a collection of (name => value) pairs...
+function with_gap_var(f, n::String, val)
+    name = GAP.Obj(n)
+    old_value = GAP.Globals.ValueGlobal(name)
+    GAP.Globals.MakeReadWriteGlobal(name)
+    GAP.Globals.UnbindGlobal(name)
+    GAP.Globals.BindGlobal(name, val)
+    try
+        f()
+    finally
+      GAP.Globals.MakeReadWriteGlobal(name);
+      GAP.Globals.UnbindGlobal(name);
+      GAP.Globals.BindGlobal(name, old_value);
+    end
+end
+
+error_occurred = false
+function fake_QuitGap(code)
+     global error_occurred
+     if code != 0
+         error_occurred = true
+     end
+end
+
+GAP.disable_error_handler[] = true
+try
+    with_gap_var("ERROR_OUTPUT", GAP.Globals._JULIAINTERFACE_ORIGINAL_ERROR_OUTPUT) do
+        with_gap_var("QuitGap", fake_QuitGap) do
+            with_gap_var("FORCE_QUIT_GAP", identity) do
+                GAP.Globals.TestPackage(GAP.Obj("4ti2interface"))
+            end
+        end
+    end
+finally
+    GAP.disable_error_handler[] = false
+end
+
+@test !error_occurred

GAP_pkg_ace/test/Project.toml

@@ -0,0 +1,4 @@
+[deps]
+Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40"
+
+[compat]

GAP_pkg_ace/test/runtests.jl

@@ -1,5 +1,49 @@
-using GAP_pkg_ace
 using Test
 
 import GAP_pkg_ace
+import GAP_pkg_ace.GAP
+
+# verify loading works
 GAP_pkg_ace.load()
+
+# run package test suite
+# we need to hack around the fact that most of them end with quitting
+# the running process...
+# TODO: allow specifying a collection of (name => value) pairs...
+function with_gap_var(f, n::String, val)
+    name = GAP.Obj(n)
+    old_value = GAP.Globals.ValueGlobal(name)
+    GAP.Globals.MakeReadWriteGlobal(name)
+    GAP.Globals.UnbindGlobal(name)
+    GAP.Globals.BindGlobal(name, val)
+    try
+        f()
+    finally
+      GAP.Globals.MakeReadWriteGlobal(name);
+      GAP.Globals.UnbindGlobal(name);
+      GAP.Globals.BindGlobal(name, old_value);
+    end
+end
+
+error_occurred = false
+function fake_QuitGap(code)
+     global error_occurred
+     if code != 0
+         error_occurred = true
+     end
+end
+
+GAP.disable_error_handler[] = true
+try
+    with_gap_var("ERROR_OUTPUT", GAP.Globals._JULIAINTERFACE_ORIGINAL_ERROR_OUTPUT) do
+        with_gap_var("QuitGap", fake_QuitGap) do
+            with_gap_var("FORCE_QUIT_GAP", identity) do
+                GAP.Globals.TestPackage(GAP.Obj("ace"))
+            end
+        end
+    end
+finally
+    GAP.disable_error_handler[] = false
+end
+
+@test !error_occurred

GAP_pkg_aclib/test/Project.toml

@@ -0,0 +1,4 @@
+[deps]
+Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40"
+
+[compat]

GAP_pkg_aclib/test/runtests.jl

@@ -1,5 +1,49 @@
-using GAP_pkg_aclib
 using Test
 
 import GAP_pkg_aclib
+import GAP_pkg_aclib.GAP
+
+# verify loading works
 GAP_pkg_aclib.load()
+
+# run package test suite
+# we need to hack around the fact that most of them end with quitting
+# the running process...
+# TODO: allow specifying a collection of (name => value) pairs...
+function with_gap_var(f, n::String, val)
+    name = GAP.Obj(n)
+    old_value = GAP.Globals.ValueGlobal(name)
+    GAP.Globals.MakeReadWriteGlobal(name)
+    GAP.Globals.UnbindGlobal(name)
+    GAP.Globals.BindGlobal(name, val)
+    try
+        f()
+    finally
+      GAP.Globals.MakeReadWriteGlobal(name);
+      GAP.Globals.UnbindGlobal(name);
+      GAP.Globals.BindGlobal(name, old_value);
+    end
+end
+
+error_occurred = false
+function fake_QuitGap(code)
+     global error_occurred
+     if code != 0
+         error_occurred = true
+     end
+end
+
+GAP.disable_error_handler[] = true
+try
+    with_gap_var("ERROR_OUTPUT", GAP.Globals._JULIAINTERFACE_ORIGINAL_ERROR_OUTPUT) do
+        with_gap_var("QuitGap", fake_QuitGap) do
+            with_gap_var("FORCE_QUIT_GAP", identity) do
+                GAP.Globals.TestPackage(GAP.Obj("aclib"))
+            end
+        end
+    end
+finally
+    GAP.disable_error_handler[] = false
+end
+
+@test !error_occurred

GAP_pkg_agt/test/Project.toml

@@ -0,0 +1,4 @@
+[deps]
+Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40"
+
+[compat]

GAP_pkg_agt/test/runtests.jl

@@ -1,5 +1,49 @@
-using GAP_pkg_agt
 using Test
 
 import GAP_pkg_agt
+import GAP_pkg_agt.GAP
+
+# verify loading works
 GAP_pkg_agt.load()
+
+# run package test suite
+# we need to hack around the fact that most of them end with quitting
+# the running process...
+# TODO: allow specifying a collection of (name => value) pairs...
+function with_gap_var(f, n::String, val)
+    name = GAP.Obj(n)
+    old_value = GAP.Globals.ValueGlobal(name)
+    GAP.Globals.MakeReadWriteGlobal(name)
+    GAP.Globals.UnbindGlobal(name)
+    GAP.Globals.BindGlobal(name, val)
+    try
+        f()
+    finally
+      GAP.Globals.MakeReadWriteGlobal(name);
+      GAP.Globals.UnbindGlobal(name);
+      GAP.Globals.BindGlobal(name, old_value);
+    end
+end
+
+error_occurred = false
+function fake_QuitGap(code)
+     global error_occurred
+     if code != 0
+         error_occurred = true
+     end
+end
+
+GAP.disable_error_handler[] = true
+try
+    with_gap_var("ERROR_OUTPUT", GAP.Globals._JULIAINTERFACE_ORIGINAL_ERROR_OUTPUT) do
+        with_gap_var("QuitGap", fake_QuitGap) do
+            with_gap_var("FORCE_QUIT_GAP", identity) do
+                GAP.Globals.TestPackage(GAP.Obj("agt"))
+            end
+        end
+    end
+finally
+    GAP.disable_error_handler[] = false
+end
+
+@test !error_occurred

GAP_pkg_alnuth/test/Project.toml

@@ -0,0 +1,4 @@
+[deps]
+Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40"
+
+[compat]

GAP_pkg_alnuth/test/runtests.jl

@@ -1,5 +1,49 @@
-using GAP_pkg_alnuth
 using Test
 
 import GAP_pkg_alnuth
+import GAP_pkg_alnuth.GAP
+
+# verify loading works
 GAP_pkg_alnuth.load()
+
+# run package test suite
+# we need to hack around the fact that most of them end with quitting
+# the running process...
+# TODO: allow specifying a collection of (name => value) pairs...
+function with_gap_var(f, n::String, val)
+    name = GAP.Obj(n)
+    old_value = GAP.Globals.ValueGlobal(name)
+    GAP.Globals.MakeReadWriteGlobal(name)
+    GAP.Globals.UnbindGlobal(name)
+    GAP.Globals.BindGlobal(name, val)
+    try
+        f()
+    finally
+      GAP.Globals.MakeReadWriteGlobal(name);
+      GAP.Globals.UnbindGlobal(name);
+      GAP.Globals.BindGlobal(name, old_value);
+    end
+end
+
+error_occurred = false
+function fake_QuitGap(code)
+     global error_occurred
+     if code != 0
+         error_occurred = true
+     end
+end
+
+GAP.disable_error_handler[] = true
+try
+    with_gap_var("ERROR_OUTPUT", GAP.Globals._JULIAINTERFACE_ORIGINAL_ERROR_OUTPUT) do
+        with_gap_var("QuitGap", fake_QuitGap) do
+            with_gap_var("FORCE_QUIT_GAP", identity) do
+                GAP.Globals.TestPackage(GAP.Obj("alnuth"))
+            end
+        end
+    end
+finally
+    GAP.disable_error_handler[] = false
+end
+
+@test !error_occurred

GAP_pkg_anupq/test/Project.toml

@@ -0,0 +1,4 @@
+[deps]
+Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40"
+
+[compat]

GAP_pkg_anupq/test/runtests.jl

@@ -1,5 +1,49 @@
-using GAP_pkg_anupq
 using Test
 
 import GAP_pkg_anupq
+import GAP_pkg_anupq.GAP
+
+# verify loading works
 GAP_pkg_anupq.load()
+
+# run package test suite
+# we need to hack around the fact that most of them end with quitting
+# the running process...
+# TODO: allow specifying a collection of (name => value) pairs...
+function with_gap_var(f, n::String, val)
+    name = GAP.Obj(n)
+    old_value = GAP.Globals.ValueGlobal(name)
+    GAP.Globals.MakeReadWriteGlobal(name)
+    GAP.Globals.UnbindGlobal(name)
+    GAP.Globals.BindGlobal(name, val)
+    try
+        f()
+    finally
+      GAP.Globals.MakeReadWriteGlobal(name);
+      GAP.Globals.UnbindGlobal(name);
+      GAP.Globals.BindGlobal(name, old_value);
+    end
+end
+
+error_occurred = false
+function fake_QuitGap(code)
+     global error_occurred
+     if code != 0
+         error_occurred = true
+     end
+end
+
+GAP.disable_error_handler[] = true
+try
+    with_gap_var("ERROR_OUTPUT", GAP.Globals._JULIAINTERFACE_ORIGINAL_ERROR_OUTPUT) do
+        with_gap_var("QuitGap", fake_QuitGap) do
+            with_gap_var("FORCE_QUIT_GAP", identity) do
+                GAP.Globals.TestPackage(GAP.Obj("anupq"))
+            end
+        end
+    end
+finally
+    GAP.disable_error_handler[] = false
+end
+
+@test !error_occurred

GAP_pkg_atlasrep/test/Project.toml

@@ -0,0 +1,4 @@
+[deps]
+Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40"
+
+[compat]

GAP_pkg_atlasrep/test/runtests.jl

@@ -1,5 +1,49 @@
-using GAP_pkg_atlasrep
 using Test
 
 import GAP_pkg_atlasrep
+import GAP_pkg_atlasrep.GAP
+
+# verify loading works
 GAP_pkg_atlasrep.load()
+
+# run package test suite
+# we need to hack around the fact that most of them end with quitting
+# the running process...
+# TODO: allow specifying a collection of (name => value) pairs...
+function with_gap_var(f, n::String, val)
+    name = GAP.Obj(n)
+    old_value = GAP.Globals.ValueGlobal(name)
+    GAP.Globals.MakeReadWriteGlobal(name)
+    GAP.Globals.UnbindGlobal(name)
+    GAP.Globals.BindGlobal(name, val)
+    try
+        f()
+    finally
+      GAP.Globals.MakeReadWriteGlobal(name);
+      GAP.Globals.UnbindGlobal(name);
+      GAP.Globals.BindGlobal(name, old_value);
+    end
+end
+
+error_occurred = false
+function fake_QuitGap(code)
+     global error_occurred
+     if code != 0
+         error_occurred = true
+     end
+end
+
+GAP.disable_error_handler[] = true
+try
+    with_gap_var("ERROR_OUTPUT", GAP.Globals._JULIAINTERFACE_ORIGINAL_ERROR_OUTPUT) do
+        with_gap_var("QuitGap", fake_QuitGap) do
+            with_gap_var("FORCE_QUIT_GAP", identity) do
+                GAP.Globals.TestPackage(GAP.Obj("atlasrep"))
+            end
+        end
+    end
+finally
+    GAP.disable_error_handler[] = false
+end
+
+@test !error_occurred

GAP_pkg_autodoc/test/Project.toml

@@ -0,0 +1,4 @@
+[deps]
+Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40"
+
+[compat]