%% Author: hillqand
%% Created: 5 dec 2007
%% Description: TODO: Add description to test_priority_queue
-module(test_priority_queue).

-export([start/0]).

start() ->
    {ok, Pid} = priority_queue:start_link(),
    
    sys:statistics(Pid, true),
	sys:trace(Pid, true),
    
    Data = [{1, a},
            {3, b},
            {2, c},
            {2, d},
            {1, e},
            {3, f},
            {2, g}],
    
    Fun = fun({Priority, Message}) ->
              priority_queue:push(Pid, Priority, Message)
          end,
    
    lists:foreach(Fun, Data), 
    
    timer:sleep(1000),                             
                                 
    b = priority_queue:pull(Pid),
    f = priority_queue:pull(Pid),
    c = priority_queue:pull(Pid),
    d = priority_queue:pull(Pid),
    g = priority_queue:pull(Pid),
    a = priority_queue:pull(Pid),
    e = priority_queue:pull(Pid),
     
    success.