syslog: Improve the manual test case

1 files changed, 21 insertions, 5 deletions

diff --git a/LogTest.st b/LogTest.st
index 25680c4..b8f0558 100644
--- a/LogTest.st
+++ b/LogTest.st
@@ -36,19 +36,35 @@ Osmo.LogArea subclass: LogAreaSCCP [
 ]
 
 Eval [
+    | syslog |
     '123' logDebug: 'TEST' area: #sccp.
 
     '123' logException: 'TEST' area: #sccp.
 
 
     "SYSLOG"
-    Object logManager target:
-            (Osmo.LogTargetSyslog
-                    openlog: 'ow' option: 0 facility: Osmo.LogTargetSyslog LOG_USER).
-    '123' logException: 'ABC' area: #sccp.
+    syslog := (Osmo.LogTargetSyslog
+                openlog: 'ow' option: 0 facility: Osmo.LogTargetSyslog LOG_USER).
+    syslog prefix: 'abc:'.
+    Object logManager target: syslog.
+
+
+    '123' logError: 'Error message' area: #sccp.
+
+    [
+        '123' error: 'ABC DEF'.
+    ] on: Error do: [:e |
+        e logException: 'Exception... ' area: #sccp.
+    ].
 
     Object logManager target:
             (Osmo.LogTargetSyslog
                     openlog: 'ow2' option: 0 facility: Osmo.LogTargetSyslog LOG_USER).
-    '123' logException: 'ABC' area: #sccp.
+    '123' logError: 'Error message' area: #sccp.
+
+    [
+        '123' error: 'ABC DEF'.
+    ] on: Error do: [:e |
+        e logException: 'Exception... ' area: #sccp.
+    ].
 ]