diff options
| author | Björn Persson <Bjorn@Rombobjörn.se> | 2017-05-06 22:32:13 +0200 | 
|---|---|---|
| committer | Björn Persson <Bjorn@Rombobjörn.se> | 2017-05-06 22:32:13 +0200 | 
| commit | e3a7fe3a3b273c2660f25c34c99faf6047b85c07 (patch) | |
| tree | a949f514181930a65d85e1b93016614bb6b1974f /test | |
| parent | ab788c1b4841a58d8807b5846d1ee9323142ee9c (diff) | |
Fixed Set_Log_Levels on big-endian platforms.version_1.6
Diffstat (limited to 'test')
| -rw-r--r-- | test/test_system_log.adb | 6 | 
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; |