diff options
author | Björn Persson <bjorn@rombobjörn.se> | 2012-01-08 08:23:58 +0000 |
---|---|---|
committer | Björn Persson <bjorn@rombobjörn.se> | 2012-01-08 08:23:58 +0000 |
commit | b72ba12362369ec729742e84c6ac89e1af497dc3 (patch) | |
tree | dd79d79cf2299d4e0663e19f70bd7e6cec7380d8 /test | |
parent | 67bda4b246ee01749b68172affe2d1cbf0193502 (diff) |
Added a very basic test program.
Diffstat (limited to 'test')
-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; |