|
############################################################################
#
# This is a test file for the SCSCP package.
#
LoadPackage( "scscp" );
LoadPackage( "smallgrp" );
# First check that SCSCP servers are available
if PingSCSCPservice( "localhost", 26133 ) = fail then
Print("No SCSCP server at port 26133 - test terminated.\n");
FORCE_QUIT_GAP(1);
fi;
if PingSCSCPservice( "localhost", 26134 ) = fail then
Print("No SCSCP server at port 26134 - test terminated.\n");
FORCE_QUIT_GAP(1);
fi;
# Run tests which include technical details like random call
# identifiers and need manual inspection
TestDirectory(DirectoriesPackageLibrary( "scscp", "tst" ),
rec(exitGAP := false,
exclude := [ "scscp.tst", "offline.tst", "xmltree.tst" ],
testOptions := rec(compareFunction := "uptowhitespace") ) );
# Run test files which should have no diffs
TestDirectory(DirectoriesPackageLibrary( "scscp", "tst" ),
rec(exitGAP := true,
exclude := [ "scscp04.tst", "scscp05.tst", "scscp06.tst", "scscp07.tst", "scscp08.tst", "scscp09.tst" ],
testOptions := rec(compareFunction := "uptowhitespace") ) );
FORCE_QUIT_GAP(1); # if we ever get here, there was an error
[ Dauer der Verarbeitung: 0.18 Sekunden
(vorverarbeitet)
]
|
