Rombobjörn

summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--test/build_test_system_log.gpr19
-rw-r--r--test/test_system_log.adb17
2 files changed, 36 insertions, 0 deletions
diff --git a/test/build_test_system_log.gpr b/test/build_test_system_log.gpr
new file mode 100644
index 0000000..f9ba70b
--- /dev/null
+++ b/test/build_test_system_log.gpr
@@ -0,0 +1,19 @@
+-- Use this project file to compile the test program.
+-- Copyright 2012 B. Persson, Bjorn@Rombobeorn.se
+--
+-- This project file is free software: you can redistribute it and/or modify it
+-- under the terms of the GNU General Public License version 3, as published
+-- by the Free Software Foundation.
+
+
+with "system_log";
+
+project Build_Test_System_Log is
+
+ for Main use ("test_system_log");
+
+ package Binder is
+ for Default_Switches ("Ada") use ("-shared");
+ end Binder;
+
+end Build_Test_System_Log;
diff --git a/test/test_system_log.adb b/test/test_system_log.adb
new file mode 100644
index 0000000..319c039
--- /dev/null
+++ b/test/test_system_log.adb
@@ -0,0 +1,17 @@
+-- This is a simple test program for testing System_Log.
+-- Copyright 2012 B. Persson, Bjorn@Rombobeorn.se
+--
+-- This program is free software: you can redistribute it and/or modify it
+-- under the terms of the GNU General Public License version 3, as published
+-- by the Free Software Foundation.
+
+
+with System_Log; use System_Log;
+
+procedure Test_System_Log is
+begin
+ Open_Log("Test_System_Log", User, Standard_Error_Too => True,
+ Include_PID => True);
+ Log(Info, "This is a test message on the info level.");
+ Log(Debug, "This is a test message on the debug level.");
+end Test_System_Log;