From b72ba12362369ec729742e84c6ac89e1af497dc3 Mon Sep 17 00:00:00 2001 From: Björn Persson Date: Sun, 8 Jan 2012 08:23:58 +0000 Subject: Added a very basic test program. --- test/test_system_log.adb | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 test/test_system_log.adb (limited to 'test/test_system_log.adb') 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; -- cgit v1.2.3