anchor.diff:      ].
   
   
  -driver_timeout_test_() ->
  +timeout_test_() ->
       { ok, Port } = start_test_driver( "stuck.sh" ),
       [ { "driver timeout"
         , ?_assertThrow( { timeout, _ }, get_event( Port, "SomeEvent" ) ) }
  
positive.code:             ] } }.
  
  
  driver_start_stop_test_() ->
      { ok, Port } = start_test_driver( "echo.sh" ),
      IsPort = erlang:is_port( Port ),
      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 ) ) }
      ].
  