smalltalk
/
osmo-st-logging
Archived
1
0
Fork 0
Code Releases Activity

syslog: Improve the manual test case

This commit is contained in:
Holger Hans Peter Freyther 2011-04-14 12:40:01 +02:00
parent 9f364cbcd1
commit 65dcb80ff9
1 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
LogTest.st
View File

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