1
0
Fork 0
Browse Source

syslog: Improve the manual test case

master
Holger Hans Peter Freyther 12 years ago
parent
commit
65dcb80ff9
  1. 26
      LogTest.st

26
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.
].
]