anchor.diff:      after 100 ->
               error
       end.
  -    
  +
   
   -endif.
  
positive.code:       {"all priority",
         ?_test(begin
                    ok = set_max_priority(),
                    [?assertEqual(ok, priority_work(P)) || P <- ?all_prioritys]
                end)
        },
        {"priority barriers",
         ?_test([
                 begin
                     ok = set_priority(CP),
                     GreatPriority = get_great_prioritys(CP),
                     [?assertEqual(error, priority_work(P)) || P <- GreatPriority],
                     LowPriority = get_low_prioritys(CP),
                     [?assertEqual(ok, priority_work(P)) || P <- [CP | LowPriority]]
                 end
                 || CP <- ?all_prioritys
                ])
        }
       ]
  
negative.code: remove_test_logger_iface(State) ->
      ok.
  
  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)    ->
      alog_parse_trans:load_config(
        [{{mod,[?MODULE]}, {'=<', P},[alog_test_logger_iface]}]),
      ok.
  