From e3a7fe3a3b273c2660f25c34c99faf6047b85c07 Mon Sep 17 00:00:00 2001 From: Björn Persson Date: Sat, 6 May 2017 22:32:13 +0200 Subject: Fixed Set_Log_Levels on big-endian platforms. --- test/test_system_log.adb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'test/test_system_log.adb') diff --git a/test/test_system_log.adb b/test/test_system_log.adb index 319c039..5a0a053 100644 --- a/test/test_system_log.adb +++ b/test/test_system_log.adb @@ -1,5 +1,5 @@ -- This is a simple test program for testing System_Log. --- Copyright 2012 B. Persson, Bjorn@Rombobeorn.se +-- Copyright 2009 - 2017 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 @@ -14,4 +14,8 @@ begin 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."); + Set_Log_Threshold(Info); + Log(Debug, "This test message is below the threshold and shouldn't be seen."); + Log(Info, "This test message is above the threshold and should be seen."); + Log(Local5, Info, "This is a test message logged as the Local5 facility."); end Test_System_Log; -- cgit v1.2.3