VT100/tests/TestAnsiErase.mod

MODULE TestAnsiErase;

IMPORT Ansi;
FROM STextIO IMPORT WriteString, WriteLn;
FROM Delay IMPORT Delay;

BEGIN
  Ansi.EraseScreen;
  Ansi.Home;
  WriteString("--- ANSI Erase test ---"); WriteLn;

  WriteString("garbage garbage");
  Ansi.Position(2, 20);
  Ansi.EraseLineRight;
  WriteLn; WriteString("EraseLineRight done"); WriteLn;

  WriteString("garbage garbage");
  Ansi.Position(3, 20);
  Ansi.EraseLineLeft;
  WriteLn; WriteString("EraseLineLeft done"); WriteLn;

  WriteString("to be cleared");
  Ansi.Position(4, 1);
  Ansi.EraseLine;
  Ansi.Position(4, 1);
  WriteString("EraseLine done"); WriteLn;

  Ansi.Position(10, 1); WriteString("below filler");
  Ansi.Position(8, 1);
  Ansi.EraseDown;
  Ansi.Position(8, 1); WriteString("EraseDown done"); WriteLn;

  Ansi.Position(12, 1); WriteString("filler");
  Ansi.Position(12, 1);
  Ansi.EraseUp;
  Ansi.Position(12, 1); WriteString("EraseUp done"); WriteLn;

  Ansi.EraseSavedLines;
  WriteString("EraseSavedLines sent"); WriteLn;
  Delay(300);

  Ansi.EraseScreen;
  Ansi.Home;
  WriteString("EraseScreen done"); WriteLn;
  WriteString("--- end Erase ---"); WriteLn;
END TestAnsiErase.