1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#############################################################################
##
#W tomlib.tst GAP 4 package `tomlib' Thomas Breuer
##
#H @(#)$Id: tomlib.tst,v 1.3 2003/10/30 08:00:31 gap Exp $
##
#Y Copyright (C) 2003, Lehrstuhl D fuer Mathematik, RWTH Aachen, Germany
##
gap> START_TEST("$Id: tomlib.tst,v 1.3 2003/10/30 08:00:31 gap Exp $");
gap> LoadPackage( "tomlib" );
true
# Check that all tables of marks can be loaded without problems
# (The test whether they are internally consistent takes too long.)
gap> for name in AllLibTomNames() do
> tom:= TableOfMarks( name );
> if not IsTableOfMarks( tom ) then
> Print( "#E problem loading t.o.m. of `", name, "'\n" );
> fi;
> od;
gap> STOP_TEST( "tomlib.tst", 200000000000 );
#############################################################################
##
#E
|
