anchor.diff:      ].
   
   
  -driver_get_event_test_() ->
  +get_event_test_() ->
       { ok, Port } = start_test_driver( "echo.sh" ),
       Res = get_event( Port, "SomeEvent" ),
       ExpData = { ok, [ "EVENT", "SomeEvent" ] },
  
positive.code:     ].
  
  
  driver_start_nonexistent_test_() ->
      ?_assertEqual( { error, enoent }, start_test_driver( "nonexistent.sh" ) ).
  
  
  driver_stuck_test_() ->
      { ok, Port } = start_test_driver( "stuck.sh" ),
      { os_pid, OsPid } = erlang:port_info( Port, os_pid ),
      stop_driver( Port ),
  
negative.code:     ].
  
  
  timeout2_test_() ->
      { ok, Port } = start_test_driver( "garbage.sh" ),
      [ { "driver timeout when sending garbage"
        , ?_assertThrow( { timeout, _ }, get_event( Port, "SomeEvent" ) ) }
      , { "stop driver" , ?_assertEqual( ok, stop_driver( Port ) ) }
      ].
  