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