Rombobjörn

summaryrefslogtreecommitdiff
path: root/test/test_system_log.adb
diff options
context:
space:
mode:
authorBjörn Persson <Bjorn@Rombobjörn.se>2017-05-06 22:32:13 +0200
committerBjörn Persson <Bjorn@Rombobjörn.se>2017-05-06 22:32:13 +0200
commite3a7fe3a3b273c2660f25c34c99faf6047b85c07 (patch)
treea949f514181930a65d85e1b93016614bb6b1974f /test/test_system_log.adb
parentab788c1b4841a58d8807b5846d1ee9323142ee9c (diff)
Fixed Set_Log_Levels on big-endian platforms.HEADversion_1.6master
Diffstat (limited to 'test/test_system_log.adb')
-rw-r--r--test/test_system_log.adb6
1 files changed, 5 insertions, 1 deletions
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;