init

tests/LoggerTest.Mod

@@ -0,0 +1,37 @@
+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.