-- AlpineFSTest.cm
-- Commands for hand-testing AlpineFS. This command file is not intended
-- to be executed sequentially in its entirety.

run AlpineUserImpls
interp

%AMModelContextImpl.worldGFNameList _ NIL

&sgf[AlpineFSImpl]

&file _ Create["[Luther.alpine]<Taft.pa>Test"]
&file _ Open["[Luther.alpine]<Taft.pa>Test", LOOPHOLE[%BasicTime.nullGMT]]
&file _ Open["[Luther.alpine]<Taft.pa>Test", LOOPHOLE[%BasicTime.nullGMT], write]

%FS.GetInfo[&file]
%FS.SetPageCount[&file, 50]
ReadProperties[&file, %AlpFile.allProperties]

%FS.Close[&file]
Abort[&file]

&stream _ StreamOpen["[Luther.alpine]<Taft.pa>Test"]
&stream _ StreamOpen["[Luther.alpine]<Taft.pa>Test", write]

%IO.PutRope[&stream, "The quick brown fox jumps over the lazy dog.\n"]
%IO.GetLineRope[&stream]

&stream.streamProcs.close[&stream,FALSE]