From 80e8def12af5f3e6c536dfb444175fea678542a6 Mon Sep 17 00:00:00 2001
From: Max Horn <max@quendi.de>
Date: Thu, 5 Sep 2024 12:36:03 +0200
Subject: [PATCH] Don't use IO package in tests

---
 tst/testall.g      | 4 +---
 tst/testlong.g     | 3 +--
 tst/testvalgrind.g | 5 ++---
 3 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/tst/testall.g b/tst/testall.g
index 65da2fd..9cb9c3e 100644
--- a/tst/testall.g
+++ b/tst/testall.g
@@ -1,9 +1,7 @@
 #
-#
 # This file runs package tests. It is also referenced in the package
 # metadata in PackageInfo.g.
 #
-LoadPackage( "io" );
 LoadPackage( "ferret" );
 
 # Sanity check that we loaded ferret correctly
@@ -17,4 +15,4 @@ dirs := DirectoriesPackageLibrary( "ferret", "tst" );
 
 TestDirectory(dirs, rec(exitGAP := true));
 
-IO_exit(1);
\ No newline at end of file
+FORCE_QUIT_GAP(1);
diff --git a/tst/testlong.g b/tst/testlong.g
index e157341..f8e7047 100644
--- a/tst/testlong.g
+++ b/tst/testlong.g
@@ -3,7 +3,6 @@
 # This file runs a longer version of tests
 #
 #
-LoadPackage( "io" );
 LoadPackage( "ferret" );
 
 
@@ -21,4 +20,4 @@ dirs := DirectoriesPackageLibrary( "ferret", "tst" );
 
 TestDirectory(dirs, rec(exitGAP := true));
 
-IO_exit(1);
\ No newline at end of file
+FORCE_QUIT_GAP(1);
diff --git a/tst/testvalgrind.g b/tst/testvalgrind.g
index eb00d11..f736367 100644
--- a/tst/testvalgrind.g
+++ b/tst/testvalgrind.g
@@ -1,9 +1,8 @@
 # This file is designed to just run one test, 'testvalgrind.tst', which we run
 # through the 'valgrind' system, to check for memory issues
 
-LoadPackage("io");
 if Test( Filename(DirectoriesPackageLibrary( "ferret", "tst/tstfiles" ),"testvalgrind.tst"), rec(showProgress := true) ) = true then
-  IO_exit(0);
+  FORCE_QUIT_GAP(0);
 else
-  IO_exit(1);
+  FORCE_QUIT_GAP(1);
 fi;