anchor.diff:  % server tests - API
   
   server_scenario_test_() ->
  -    { setup
  +    { foreach
       , fun() -> application:start( gproc ) end
       , fun( _ ) -> application:stop( gproc ) end
  -    , fun test_server_scenario/1
  +    , [ fun test_server_scenario/1
  +      , fun test_crash_scenario/1
  +      ]
       }.
   
   test_server_scenario( _ ) ->
  
positive.code:     , { "server pid not alive", ?_assertEqual( ok, ResExit ) }
      ].
  
  % Helper functions
  test_driver_path( Driver ) ->
      filename:join( [ "test", Driver ] ).
  
negative.code: 
  exit_test_server( Pid, MonRef ) ->
      ExitRes = receive
          { 'DOWN', MonRef, process, Pid, Info } -> ok
      after
          ?DRIVER_TIMEOUT -> timeout
      end,
  