diff options
| -rw-r--r-- | test/build_test_system_log.gpr | 19 | ||||
| -rw-r--r-- | test/test_system_log.adb | 17 |
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; |