重构和测试我们的发电机克隆

店铺（店铺=#kvs_store.{数据=数据那pending_reads.=读那pending_writes.=写道}）- >收到{发件人那取回那客户那钥匙}- >message_retrieve.（店铺那发件人那客户那钥匙）;％％ 等等..

message_retrieve.（店铺那发件人那客户那钥匙）- >发件人！！{自己（），检索到那客户那钥匙那普罗斯运选者：get_value.（钥匙那数据）}，店铺（店铺）。

-模块（kvs_tests.）。-include_lib.（“eUnit /包括/ eunit.hrl”）。
%% @doc测试响应当空kvs进程组时not_running_test.（）- >kvs.：停止（），{错误那not_running.}=kvs.：得到（B.），{错误那not_running.}=kvs.：放（C那100.）
%% @doc测试最基本的功能Basic_test.（）- >开始=kvs.：开始（3.），{好的那不明确的}=kvs.：得到（一种），{好的那更新}=kvs.：放（一种那5.），{好的那5.}=kvs.：得到（一种），停了下来=kvs.：停止（）。
%% @doc测试执行许多并发读取many_reads_test.（）- >开始=kvs.：开始（3.），{好的那更新}=kvs.：放（B.那100.），读=乐趣（）- >{好的那100.}=kvs.：得到（B.）结尾那清单：Foreach.（乐趣（_）- >产卵（读）结尾那清单：SEQ.（0.那100.）），停了下来=kvs.：停止（）。
%% @doc测试执行许多并发写字many_writes_test.（）- >开始=kvs.：开始（3.），写=乐趣（）- >{好的那更新}=kvs.：放（一种那101.）结尾那清单：Foreach.（乐趣（_）- >产卵（写）结尾那清单：SEQ.（0.那100.）），停了下来=kvs.：停止（）。

eShell v5.7.2（中止^ g）1>C（kvs.）。{好的，kvs}2>C（kvs_tests.）。{好的，kvs_tests}3>kvs_tests.：测试（）。kvs_tests：not_running_test ... *失败*::错误：Badarg在功能kvs：get / 2在kvs_tests的调用中：not_running_test / 0
=======================================================失败：1。跳过：0。通过：3。错误

5>C（kvs.）。{好的，kvs}6>C（kvs_server）。{好的，kvs_server}8>C（kvs_tests.）。{好的，kvs_tests}9.kvs_tests.：测试（）。kvs_tests：not_running_test ... *失败*::错误：function_clause在功能列表中：' - 过滤器/ 2-LC $ ^ 0 / 1-0  - '/ 2叫做'-filter / 2-lc $ ^ 0 / 1-0  - '（{error，{no_such_group，kvs}}，#fun ）在kvs的呼叫中：停止/ 0在kvs_tests的调用中：not_running_test / 0
=======================================================失败：1。跳过：0。通过：3。错误10.

%%旧启动功能开始（N）- >PG2.：创造（kvs.），清单：Foreach.（乐趣（_）- >店铺=#kvs_store.{数据=[]，pending_reads.=[]，pending_writes.=[]}，PG2.：加入（kvs.那产卵（kvs_server那店铺那[店铺]））结尾那清单：SEQ.（0.那N）），开始。
%%新的启动功能开始（N）- >清单：Foreach.（乐趣（_）- >kvs_server：start_link.（）。结尾那清单：SEQ.（0.那N）），开始。

%%旧停止功能停止（）- >清单：Foreach.（乐趣（PID）- >PG2.：离开（kvs.那PID），PID！！停止结尾那PG2.：get_members.（kvs.）），停了下来。
%%新停止功能停止（）- >清单：Foreach.（乐趣（PID）- >Gen_Server：称呼（PID那停止）结尾那PG2.：get_members.（kvs.）），停了下来。

%%旧获得实施得到（钥匙那超时）- >PID=PG2.：get_closest_pid.（kvs.），PID！！{自己（），得到那钥匙}，收到{PID那得到了那价值}- >{好的那价值};{错误那错误}- >{错误那错误}后超时- >{错误那超时}结尾。
%%新进展得到（钥匙那超时）- >PID=PG2.：get_closest_pid.（kvs.），Gen_Server：称呼（PID那{得到那钥匙}，超时）。

%%旧设置实施放（钥匙那瓦那超时）- >PID=PG2.：get_closest_pid.（kvs.），PID！！{自己（），放那钥匙那瓦}，收到{PID那已收到那{放那钥匙那瓦}}- >{好的那更新};{错误那错误}- >{错误那错误}后超时- >{错误那超时}结尾。
%%新设置实现放（钥匙那瓦那超时）- >PID=PG2.：get_closest_pid.（kvs.），Gen_Server：称呼（PID那{放那钥匙那瓦}，超时）。

%%从旧的实施中摘录店铺（店铺）- >收到{发件人那得到那钥匙}- >message_get.（店铺那发件人那钥匙）;%%其他一些模式匹配停止- >好的结尾。
重量％摘录新实施%% @doc处理显式停止请求handle_call.（停止那发件人那状态）- >{停止那停了下来那停了下来那状态};
handle_call.（{得到那钥匙}，SNDR.那状态=#kvs_store.{pending_reads.=读}）- >％％ 执行…