syslog: Improve the manual test case
This commit is contained in:
parent
9f364cbcd1
commit
65dcb80ff9
24
LogTest.st
24
LogTest.st
|
@ -36,19 +36,35 @@ Osmo.LogArea subclass: LogAreaSCCP [
|
||||||
]
|
]
|
||||||
|
|
||||||
Eval [
|
Eval [
|
||||||
|
| syslog |
|
||||||
'123' logDebug: 'TEST' area: #sccp.
|
'123' logDebug: 'TEST' area: #sccp.
|
||||||
|
|
||||||
'123' logException: 'TEST' area: #sccp.
|
'123' logException: 'TEST' area: #sccp.
|
||||||
|
|
||||||
|
|
||||||
"SYSLOG"
|
"SYSLOG"
|
||||||
Object logManager target:
|
syslog := (Osmo.LogTargetSyslog
|
||||||
(Osmo.LogTargetSyslog
|
|
||||||
openlog: 'ow' option: 0 facility: Osmo.LogTargetSyslog LOG_USER).
|
openlog: 'ow' option: 0 facility: Osmo.LogTargetSyslog LOG_USER).
|
||||||
'123' logException: 'ABC' area: #sccp.
|
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:
|
Object logManager target:
|
||||||
(Osmo.LogTargetSyslog
|
(Osmo.LogTargetSyslog
|
||||||
openlog: 'ow2' option: 0 facility: Osmo.LogTargetSyslog LOG_USER).
|
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.
|
||||||
|
].
|
||||||
]
|
]
|
||||||
|
|
Reference in New Issue