Sha256: 7e9621e28f54c4424dadd2eb16166c408a849a7aa934c0740d8e8f392ee38fba
Contents?: true
Size: 1.92 KB
Versions: 116
Compression:
Stored size: 1.92 KB
Contents
-module( circular_buffer_tests ).
-include_lib("erl_exercism/include/exercism.hrl").
-include_lib("eunit/include/eunit.hrl").
create_test() ->
Pid = circular_buffer:create( 5 ),
?assert( {ok, 5} =:= circular_buffer:size(Pid) ).
write_read_test() ->
Pid = circular_buffer:create( 4 ),
?assert( {error, empty} =:= circular_buffer:read(Pid) ),
circular_buffer:write( Pid, 1 ),
?assert( {ok, 1} =:= circular_buffer:read(Pid) ).
write_read_many_test() ->
Pid = circular_buffer:create( 3 ),
circular_buffer:write( Pid, 1 ),
circular_buffer:write( Pid, 2 ),
circular_buffer:write( Pid, 3 ),
?assert( {ok, 1} =:= circular_buffer:read(Pid) ),
?assert( {ok, 2} =:= circular_buffer:read(Pid) ),
?assert( {ok, 3} =:= circular_buffer:read(Pid) ).
over_write_read_test() ->
Pid = circular_buffer:create( 2 ),
circular_buffer:write( Pid, 1 ),
circular_buffer:write( Pid, 2 ),
circular_buffer:write( Pid, 3 ),
circular_buffer:write( Pid, 4 ),
?assert( {ok, 3} =:= circular_buffer:read(Pid) ),
?assert( {ok, 4} =:= circular_buffer:read(Pid) ),
?assert( {error, empty} =:= circular_buffer:read(Pid) ).
write_attempt_test() ->
Pid = circular_buffer:create( 1 ),
Attempt1 = circular_buffer:write_attempt( Pid, 1 ),
?assert( ok =:= Attempt1 ),
Attempt2 = circular_buffer:write_attempt( Pid, 2 ),
?assert( {error, full} =:= Attempt2 ),
?assert( {ok, 1} =:= circular_buffer:read(Pid) ).
producer_consumer_test() ->
Pid = circular_buffer:create( 3 ),
erlang:spawn( fun() ->
[circular_buffer:write(Pid, X) || X <- [1,2,3]]
end ),
My_pid = erlang:self(),
Ref = erlang:make_ref(),
erlang:spawn( fun() ->
My_pid ! {Ref, [circular_buffer:read(Pid) || _X <- [1,2,3]]}
end ),
Reads = receive
{Ref, R} -> R
end,
?assert( Reads =:= [{ok, 1}, {ok, 2}, {ok, 3}] ).
version_test() ->
?assertMatch(1, circular_buffer:test_version()).
Version data entries
116 entries across 116 versions & 1 rubygems