| LanMan98 test suite.  Edit SetUp first, then run this.
Obey <Obey$Dir>.SetUp
Set LM98Test$Res <Obey$Dir>.Results
CDir <LM98Test$Scrap>
CDir <LM98Test$Res>
CDir <LM98Test$Scrap>.back

Echo
Echo LanMan98 test suite
Echo -------------------
Echo Making test data (this takes a moment)
Run <Obey$Dir>.MakeData

Echo
Echo 1  Mounting <LM98Test$Server> share <LM98Test$Share>
LM98Mount
Echo    mounted as <LM98Test$M>
Cat <LM98Test$M> { > <LM98Test$Res>.01_listing }

Echo 2  Writing eight files to the server
Copy <LM98Test$Scrap>.a_1     <LM98Test$M>.a_1     ~C~V F
Copy <LM98Test$Scrap>.a_1k    <LM98Test$M>.a_1k    ~C~V F
Copy <LM98Test$Scrap>.a_4k    <LM98Test$M>.a_4k    ~C~V F
Copy <LM98Test$Scrap>.a_60k_1 <LM98Test$M>.a_60k_1 ~C~V F
Copy <LM98Test$Scrap>.a_60k   <LM98Test$M>.a_60k   ~C~V F
Copy <LM98Test$Scrap>.a_60k1  <LM98Test$M>.a_60k1  ~C~V F
Copy <LM98Test$Scrap>.a_250k  <LM98Test$M>.a_250k  ~C~V F
Copy <LM98Test$Scrap>.a_odd   <LM98Test$M>.a_odd   ~C~V F
Echo    written

Echo 3  Reading them back
Copy <LM98Test$M>.a_1     <LM98Test$Scrap>.back.a_1     ~C~V F
Copy <LM98Test$M>.a_1k    <LM98Test$Scrap>.back.a_1k    ~C~V F
Copy <LM98Test$M>.a_4k    <LM98Test$Scrap>.back.a_4k    ~C~V F
Copy <LM98Test$M>.a_60k_1 <LM98Test$Scrap>.back.a_60k_1 ~C~V F
Copy <LM98Test$M>.a_60k   <LM98Test$Scrap>.back.a_60k   ~C~V F
Copy <LM98Test$M>.a_60k1  <LM98Test$Scrap>.back.a_60k1  ~C~V F
Copy <LM98Test$M>.a_250k  <LM98Test$Scrap>.back.a_250k  ~C~V F
Copy <LM98Test$M>.a_odd   <LM98Test$Scrap>.back.a_odd   ~C~V F
Echo    read back

Echo 4  Comparing, byte by byte
Run <Obey$Dir>.Compare <LM98Test$Scrap>.a_1     <LM98Test$Scrap>.back.a_1
Run <Obey$Dir>.Compare <LM98Test$Scrap>.a_1k    <LM98Test$Scrap>.back.a_1k
Run <Obey$Dir>.Compare <LM98Test$Scrap>.a_4k    <LM98Test$Scrap>.back.a_4k
Run <Obey$Dir>.Compare <LM98Test$Scrap>.a_60k_1 <LM98Test$Scrap>.back.a_60k_1
Run <Obey$Dir>.Compare <LM98Test$Scrap>.a_60k   <LM98Test$Scrap>.back.a_60k
Run <Obey$Dir>.Compare <LM98Test$Scrap>.a_60k1  <LM98Test$Scrap>.back.a_60k1
Run <Obey$Dir>.Compare <LM98Test$Scrap>.a_250k  <LM98Test$Scrap>.back.a_250k
Run <Obey$Dir>.Compare <LM98Test$Scrap>.a_odd   <LM98Test$Scrap>.back.a_odd

Echo 5  Directory: create, fill, list, remove
CDir <LM98Test$M>.lmtdir
Copy <LM98Test$Scrap>.a_4k <LM98Test$M>.lmtdir.inside ~C~V F
Cat <LM98Test$M>.lmtdir { > <LM98Test$Res>.05_subdir }
Copy <LM98Test$M>.lmtdir.inside <LM98Test$Scrap>.back.inside ~C~V F
Run <Obey$Dir>.Compare <LM98Test$Scrap>.a_4k <LM98Test$Scrap>.back.inside
Delete <LM98Test$M>.lmtdir.inside
Delete <LM98Test$M>.lmtdir
Echo    created, used and removed

Echo 6  Rename, then delete
Rename <LM98Test$M>.a_1k <LM98Test$M>.a_renamed
Delete <LM98Test$M>.a_renamed
Echo    renamed and deleted

Echo 7  A directory bigger than one reply
Run <Obey$Dir>.BigDir <LM98Test$M>.lmtbig

Echo 8  Tidying up
Delete <LM98Test$M>.a_1
Delete <LM98Test$M>.a_4k
Delete <LM98Test$M>.a_60k_1
Delete <LM98Test$M>.a_60k
Delete <LM98Test$M>.a_60k1
Delete <LM98Test$M>.a_250k
Delete <LM98Test$M>.a_odd
Cat <LM98Test$M> { > <LM98Test$Res>.07_after }
LM98Unmount

Echo
Echo Suite finished.  Every comparison above should read IDENTICAL.
Echo Listings are in <LM98Test$Res>
Echo
