1 files changed, 22 insertions, 0 deletions
diff --git a/packages/syslog/tests/testlog.pp b/packages/syslog/tests/testlog.pp
new file mode 100644
index 0000000000..2af3f10393
--- /dev/null
+++ b/packages/syslog/tests/testlog.pp
@@ -0,0 +1,22 @@
+program testlog;
+
+uses linux,systemlog,sysutils;
+
+procedure dotest;
+
+var i : longint;
+    prefix : ansistring;
+
+begin
+  i:=getpid;
+  prefix:=format('testlog[%d] ',[i]);
+  // prefix will be prepended to every message now.
+  openlog(pchar(prefix),LOG_NOWAIT,LOG_DEBUG);
+  for i:=1 to 10 do
+    syslog(log_info,'This is message number %d'#10,[i]);
+  prefix:='';
+end;
+
+begin
+  dotest;
+end.