MODULE LoggerTest;

  IMPORT Logger;

VAR
  log: Logger.Logger;

BEGIN
  (* Initialize logger instance *)
  log := Logger.New();

  (* Show default level (INFO) in action *)
  log.Info("Logger initialized");
  log.InfoInt("Connected users: ", 42);

  (* Prefix usage *)
  log.SetPrefix("unit-test");
  log.Warn("Warning with prefix");
  log.WarnInt("Sessions: ", 5);

  log.Error("Something went wrong");
  log.ErrorInt("Error code: ", -7);

  (* Switch to DEBUG level *)
  log.SetLevel(Logger.DEBUG);
  log.Debug("This is a debug message");
  log.DebugInt("File descriptor: ", 3);

  (* Clear prefix *)
  log.ClearPrefix();
  log.Info("Prefix cleared");

  (* Suppress all output *)
  log.SetLevel(-1);
  log.Error("This should NOT print");
  log.Debug("This should NOT print");
END LoggerTest.