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

syslog: Improve the manual test case

master
Holger Hans Peter Freyther 12 years ago
parent
9f364cbcd1
commit
65dcb80ff9
1 changed files with 21 additions and 5 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 26
      LogTest.st

26
LogTest.st
Unescape 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.
].
]