anchor.diff:                      StartResult <- StartResults ],
       [ [ { "start device", ?_assertEqual( ok, Res ) } || { Res, _ } <- StartResults ]
       , [ { "stop device", ?_assertMatch( ok, Res ) } || Res <- StopResults ]
  +    ].
  +
  +
  +test_concurent_stop( _ ) ->
  +    { ok, Id } = start_device( dummy_driver_config() ),
  +    Self = self(),
  +    ClientFun = fun() ->
  +        Self ! { self(), catch stop_device( Id ) }
  +    end,
  +    Pid1 = spawn( ClientFun ),
  +    Pid2 = spawn( ClientFun ),
  +    Res1 = receive { Pid1, R1 } -> R1 end,
  +    Res2 = receive { Pid2, R2 } -> R2 end,
  +    [ ?_assertEqual( ok, Res1 )
  +    , ?_assertEqual( ok, Res2 )
       ].
   
   
  
positive.code:     end.
  
  
  
  %% ===================================================================
  %% Tests
  
negative.code:     , fun setup_server_stop/1
      , [ fun test_start_stop_device/1
        , fun test_add_list_devices/1
        , fun test_concurent_stop/1
        ]
      }.
  
  