Quelle  testall.g   Sprache: unbekannt

# SPDX-License-Identifier: GPL-2.0-or-later
# NConvex: A Gap package to perform polyhedral computations
#
# This file runs package tests. It is also referenced in the package
# metadata in PackageInfo.g.
#

# Until the issue https://github.com/homalg-project/NConvex/issues/5 has been solved
exclude := [];
if IsBound( IsPackageLoaded ) and IsPackageLoaded( "majoranaalgebras" ) then
  exclude := [ "nconvex02.tst" ];
fi;

options := rec(
    exitGAP := true,
    exclude := exclude,
    testOptions := rec(
        compareFunction := "uptowhitespace",
    ),
);

# reverse RecNames 50% of the time to detect code relying on the order of RecNames
if Random( RandomSource( IsMersenneTwister, NanosecondsSinceEpoch( ) ), [ false, true ] ) then
    
    Display( "Executing with reversed RecNames" );
    
    MakeReadWriteGlobal( "RecNames" );
    
    old_RecNames := RecNames;
    
    RecNames := record -> Reversed( old_RecNames( record ) );
    
    MakeReadOnlyGlobal( "RecNames" );
    
else
    
    Display( "Executing with non-reversed RecNames" );
    
fi;

TestDirectory( DirectoriesPackageLibrary( "NConvex", "tst" ), options );

FORCE_QUIT_GAP( 1 ); # if we ever get here, there was an error