From a287456e6ea61b2f5ddff15a766546d28554e785 Mon Sep 17 00:00:00 2001
From: Max Horn <max@quendi.de>
Date: Wed, 26 Jul 2023 16:15:54 +0200
Subject: [PATCH] Refactor NiceMonomorphismByDomain to use new style hashtable
 API

---
 tst/misc.tst  | 17 +++++++++++++++++
 tst/testall.g |  1 +
 2 files changed, 18 insertions(+)
 create mode 100644 tst/misc.tst

diff --git a/tst/misc.tst b/tst/misc.tst
new file mode 100644
index 0000000..40eda6f
--- /dev/null
+++ b/tst/misc.tst
@@ -0,0 +1,17 @@
+#
+gap> START_TEST("misc.tst");
+
+# test NiceMonomorphism for subgeometries, which uses hash tables
+gap> pg := PG(1,5^4);
+ProjectiveSpace(1, 625)
+gap> sub := CanonicalSubgeometryOfProjectiveSpace(pg, GF(5));
+Subgeometry PG(1, 5) of ProjectiveSpace(1, 625)
+gap> g := CollineationGroup(sub);
+The FinInG collineation group PGL(2,5) of Subgeometry PG(1, 5) of ProjectiveSpace(1, 625)
+gap> Size(g);
+480
+gap> Number([1..10], i -> PseudoRandom(g) in g);
+10
+
+#
+gap> STOP_TEST("misc.tst", 10000 );
diff --git a/tst/testall.g b/tst/testall.g
index 2ded7e2..d193429 100644
--- a/tst/testall.g
+++ b/tst/testall.g
@@ -6,6 +6,7 @@ pkgdir := DirectoriesPackageLibrary( pkgname, "tst" );
 # Arrange chapters as required
 testfiles := [
 "bugfix.tst",
+"misc.tst",
 "tst_regular13system.tst",
 "tst_segrevariety.tst",
 "tst_hermitianspreads.tst",