int main(int argc, char ** argv)
{
GAP_Initialize(argc, argv, 0, 0, 1);
test_eval("g:=FreeGroup(2);");
test_eval("a:=g.1;");
test_eval("b:=g.2;");
test_eval("lis:=[a^2, a^2, b*a];");
test_eval("h:=g/lis;");
/* TODO: use unique temporary filename to avoid a race */
test_eval("SaveWorkspace(\"/tmp/libgap.ws\");\n");
printf("# done\n");
return 0;
}
int main(int argc, char ** argv)
{
char *args[50];
char lpar[3] = "-L";
char wsname[16] = "/tmp/libgap.ws"; /* the name must match the one used in wscreate.c */
memcpy(args, argv, argc*sizeof(char*));
args[argc] = lpar;
args[argc+1] = wsname;
args[argc+2] = NULL;
GAP_Initialize(argc+2, args, environ, 0L, 0L);
printf("# looking at saved stuff...\n");
test_eval("g;");
test_eval("a;");
test_eval("b;");
test_eval("[a^2, a^2, b*a];");
test_eval("Order(h);");
printf("# done\n");
return 0;
}
