anchor.diff:  remove_test_logger_iface(State) ->
       ok.
   
  -get_great_prioritys(P) -> [Rp || Rp <- ?all_prioritys, Rp > P].
  -get_low_prioritys(P)   -> [Rp || Rp <- ?all_prioritys, Rp < P].
  -get_max_priotity()     -> lists:max(?all_prioritys).
  +get_great_priorities(P) -> [Rp || Rp <- ?all_priorities, Rp > P].
  +get_low_priorities(P)   -> [Rp || Rp <- ?all_priorities, Rp < P].
  +get_max_priotity()     -> lists:max(?all_priorities).
   set_max_priority() -> set_priority(get_max_priotity()).
  -set_priority(P)    -> 
  +set_priority(P)    ->
       alog_parse_trans:load_config(
         [{{mod,[?MODULE]}, {'=<', P},[alog_test_logger_iface]}]),
       ok.
  
positive.code: -include_lib("eunit/include/eunit.hrl").
  -include("alog.hrl").
  
  -define(all_prioritys, [
                         ?emergency, 
                         ?alert,     
                         ?critical,  
                         ?error,     
                         ?warning,   
                         ?notice,
                         ?info,
                         ?debug
  
negative.code:       {"all priority",
         ?_test(begin
                    ok = set_max_priority(),
                    [?assertEqual(ok, priority_work(P)) || P <- ?all_priorities]
                end)
        },
        {"priority barriers",
         ?_test([
                 begin
                     ok = set_priority(CP),
                     GreatPriority = get_great_priorities(CP),
                     [?assertEqual(error, priority_work(P)) || P <- GreatPriority],
                     LowPriority = get_low_priorities(CP),
                     [?assertEqual(ok, priority_work(P)) || P <- [CP | LowPriority]]
                 end
                 || CP <- ?all_priorities
                ])
        }
       ]
  