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/build_test_system_log.gpr | 19 +++++++++++++++++++ test/test_system_log.adb | 17 +++++++++++++++++ 2 files changed, 36 insertions(+) create mode 100644 test/build_test_system_log.gpr create mode 100644 test/test_system_log.adb (limited to 'test') 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; -- cgit v1.2.3