1LoadPackage("io");
2
3# Test if GAP hangs while exiting. We will not
4# clean up these processes, but hopefully they won't
5# cause too much trouble.
6
7# Get script location
8# We can't call 'sleep' directly, as we need to
9# close stdin, stdout and stderr so they are not
10# kept open
11dir := DirectoriesPackageLibrary("io", "tst");
12sleep := Filename(dir, "sleep.sh");
13
14
15x1 := IO_Popen(sleep, ["3600"],"r");
16x2 := IO_Popen(sleep, ["3600"],"w");
17x3 := IO_Popen2(sleep, ["3600"]);
18x4 := IO_Popen3(sleep, ["3600"]);
19
20y1 := IO_Popen(sleep, ["3600"],"r");
21y2 := IO_Popen(sleep, ["3600"],"w");
22y3 := IO_Popen2(sleep, ["3600"]);
23y4 := IO_Popen3(sleep, ["3600"]);
24Print("trying to exit...\n");
25