From 31d7defb6f310b9b6d368bd215b10d4391482891 Mon Sep 17 00:00:00 2001
From: Alexander Konovalov <alex-konovalov@users.noreply.github.com>
Date: Thu, 21 Mar 2019 07:38:53 +0000
Subject: [PATCH] Separate testextra from teststandard (#3362)

Co-Authored-By: alex-konovalov <alex-konovalov@users.noreply.github.com>
---
 Makefile.rules     | 14 ++++++++++++++
 tst/testextra.g    | 25 +++++++++++++++++++++++++
 tst/teststandard.g |  1 -
 3 files changed, 39 insertions(+), 1 deletion(-)
 create mode 100644 tst/testextra.g

diff --git a/Makefile.rules b/Makefile.rules
index c3a2b054a4..8584a7b79f 100644
--- a/Makefile.rules
+++ b/Makefile.rules
@@ -1040,6 +1040,20 @@ teststandard: all
           ReadGapRoot( "tst/teststandard.g" );' | $(TESTGAP) | \
             tee `date -u +dev/log/teststandard2_%Y-%m-%d-%H-%M` )
 
+# run testextra.g twice:
+# - without packages (except needed to run GAP)
+# - with all packages loaded
+testextra: all
+	$(MKDIR_P) dev/log
+	( echo 'SetUserPreference("UseColorsInTerminal",false); \
+          SetUserPreference("ReproducibleBehaviour", true); \
+          ReadGapRoot( "tst/testextra.g" );' | $(TESTGAP) | \
+            tee `date -u +dev/log/testextra1_%Y-%m-%d-%H-%M` )
+	( echo 'SetUserPreference("UseColorsInTerminal",false); LoadAllPackages(); \
+	      SetUserPreference("ReproducibleBehaviour", true); \
+          ReadGapRoot( "tst/testextra.g" );' | $(TESTGAP) | \
+            tee `date -u +dev/log/testextra2_%Y-%m-%d-%H-%M` )
+
 # run testbugfix.g twice:
 # - without packages (except needed to run GAP)
 # - with all packages loaded
diff --git a/tst/testextra.g b/tst/testextra.g
new file mode 100644
index 0000000000..e64301ca1d
--- /dev/null
+++ b/tst/testextra.g
@@ -0,0 +1,25 @@
+#############################################################################
+##
+##  This file is part of GAP, a system for computational discrete algebra.
+##
+##  Copyright of GAP belongs to its developers, whose names are too numerous
+##  to list here. Please refer to the COPYRIGHT file for details.
+##
+##  SPDX-License-Identifier: GPL-2.0-or-later
+##
+##  This file exercises 'tst/testextra' tests, which are very slow. 
+##
+##  To run it, use this command:
+##
+##  gap> Read( Filename( DirectoriesLibrary( "tst" ), "testextra.g" ) );
+##
+
+Print( "You should start GAP4 using `gap -A -x 80 -r -m 100m -o 1g -K 2g'.\n\n" );
+
+dirs := [
+  DirectoriesLibrary( "tst/testextra" )
+];
+TestDirectory( dirs, rec(exitGAP := true) );
+  
+# Should never get here
+FORCE_QUIT_GAP(1);
diff --git a/tst/teststandard.g b/tst/teststandard.g
index ca613c1bad..0c2f659303 100644
--- a/tst/teststandard.g
+++ b/tst/teststandard.g
@@ -21,7 +21,6 @@ Print( "You should start GAP4 using `gap -A -x 80 -r -m 100m -o 1g -K 2g'.\n\n"
 dirs := [
   DirectoriesLibrary( "tst/teststandard" ),
   DirectoriesLibrary( "tst/testinstall" ),
-  DirectoriesLibrary( "tst/testextra" ),
 ];
 TestDirectory( dirs, rec(exitGAP := true) );