testMoreFeatures: Commander.CommandProc = {
in: STREAM = cmd.in;
out: STREAM = cmd.out;
err: STREAM = cmd.err;
commandLine: ROPE ← cmd.commandLine;
smallFileToCat, writeTime, readTime: STREAM;
smallFileToCat ← FS.StreamOpen["GlobalSmallFileToCat.txt"];
out.Put[IO.rope["
Type GlobalSmallFileToCat on stdout
"]];
DO
out.PutChar[smallFileToCat.GetChar[! IO.EndOfStream => EXIT]];
ENDLOOP;
smallFileToCat.Close[];
writeTime ← FS.StreamOpen["WriteTimeTest.file", $create];
now ← BasicTime.Now[];
writeTime.Put[IO.time[now]];
writeTime.Close[];
readTime ← FS.StreamOpen["WriteTimeTest.file"];
out.Put[IO.rope["
Time written to file is:
"], IO.time[now], IO.rope["
Time read from file is:
"]];
DO
out.PutChar[readTime.GetChar[! IO.EndOfStream => EXIT]];
ENDLOOP;
readTime.Close[];
out.Put[IO.rope["
The tests are all done "]];
};
ComputeServerControl.Register[key: "SummonerTestFeatures2", version: "1", proc: testMoreFeatures, doc: NIL, clientData: NIL];