VT100/tests/TestVT100LedTest.mod

MODULE TestVT100LedTest;

(* LEDs + confidence tests. ResetTerminal isolated here. *)

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

BEGIN
  VT100.ClearScreen;
  VT100.CursorHome;
  WriteString("--- VT100 LED/Test ---"); WriteLn;

  VT100.LedsOff; WriteString("LedsOff"); WriteLn;
  VT100.Led1; WriteString("Led1"); WriteLn;
  VT100.Led2; WriteString("Led2"); WriteLn;
  VT100.Led3; WriteString("Led3"); WriteLn;
  VT100.Led4; WriteString("Led4"); WriteLn;
  VT100.LedsOff;
  Delay(500);

  (* Confidence tests are destructive on real hardware;
     emit only on explicit confirmation via TestPowerUp etc.
     Left commented by default. *)
  (*
  VT100.TestPowerUp;
  VT100.TestLoopback;
  VT100.TestPowerRepeat;
  VT100.TestLoopRepeat;
  *)
  WriteString("DECTST calls present but commented out."); WriteLn;

  WriteString("--- end LED/Test ---"); WriteLn;
END TestVT100LedTest.